Hi.<br>
<br>
Não testei os módulos que você exemplificou, mas consigo enviar emails
normalmente com o GMail através do módulo Net::SMTP::TLS.<br><br>Se ajudar em algo...<br><a href="https://gist.github.com/f7cecd4edc80e165b09b">https://gist.github.com/f7cecd4edc80e165b09b</a><br><br>[]'s<br><br><br>
<div class="gmail_quote">2011/9/21 Márcio Ferreira Ribeiro <span dir="ltr"><<a href="mailto:mmmferreira@gmail.com" target="_blank">mmmferreira@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Olá Pessoal,<br><br>como vão?<br>Eu sei que é uma coisa simples, mas não consigo fazer funcionar. Eu sempre enviei emails usando o sendmail local dos servidores onde trabalhei, e nesse projeto não estava diferente, até que decidiram em mudar o provedor de emails para o Google, usando o Gmail.<br>
E há uma exigência para que o envio de emails (boletins de forma geral), seja feito através dos servidores do Google.<br>Então fui procurar sobre isso na internet e encontrei algumas coisas bem praticas mas nada funcionou<br>
<br>Receita de bolo 1 (Não retorna erros, alertas, nem nada):<br>use warnings; <br>use Mail::Webmail::Gmail;<br> my $gmail = Mail::Webmail::Gmail->new( <br> username => '<a href="mailto:mmmferreira@gmail.com" target="_blank">mmmferreira@gmail.com</a>', password => 'XXXXXX',<br>
);<br> <br> $gmail->send_message( to => '<a href="mailto:mmmferreira@gmail.com" target="_blank">mmmferreira@gmail.com</a>', subject => 'Test Gmail', msgbody => 'This is a test 1.' );<br>
<br><br>Receita de bolo 2 (Não retorna erros, alertas, nem nada): <br> use strict;<br> use warnings;<br> use Email::Send;<br> use Email::Send::Gmail;<br> use Email::Simple::Creator;<br><br> my $email1 = Email::Simple->create(<br>
header => [<br>
From => '<a href="mailto:mmmferreira@gmail.com" target="_blank">mmmferreira@gmail.com</a>',<br> To => '<a href="mailto:mmmferreira@gmail.com" target="_blank">mmmferreira@gmail.com</a>',<br>
Subject => 'Test Gmail',<br>
],<br> body => 'Test test',<br> );<br> <br> my $sender = Email::Send->new(<br> { mailer => 'SMTP::TLS',<br> mailer_args => [<br> Host => '<a href="http://smtp.gmail.com" target="_blank">smtp.gmail.com</a>',<br>
Port => 587,<br> username => '<a href="mailto:mmmferreira@gmail.com" target="_blank">mmmferreira@gmail.com</a>',<br> password => 'XXXXXX',<br> ]<br> }<br>
);<br><br> eval { $sender->send($email1) };<br>
die "Error sending email Gmail: $@" if $@;<br><br><br>Receita de bolo 3 (retorna esse erro: "Could not connect to SMTP server", mas mesmo alterando SMTP para algumas sugestões que encontrei na internet, tb não funcionou):<br>
use warnings;<br> use Email::Send::SMTP::Gmail;<br><br> my $mail=Email::Send::SMTP::Gmail->new( -smtp=>'<a href="http://gmail.com" target="_blank">gmail.com</a>',<br>
-login=>'<a href="mailto:mmmferreira@gmail.com" target="_blank">mmmferreira@gmail.com</a>',<br> -pass=>'XXXXXX');<br>
<br> $mail->send(-to=><a href="mailto:mmmferreira@gmail.com" target="_blank">mmmferreira@gmail.com</a>',<br>
-subject=>'Hello!',<br> -verbose=>'1',<br> -body=>'Just testing it'<br> #,-attachments=>'full_path_to_file'<br> );<br><br> $mail->bye;<br>
<br><br><br>Já verifiquei se há algum bloqueio de portas nas duas máquinas que estou testando e não encontrei nada. O POP3 e o IMAP estão habilitados na minha conta pessoal que estou usando para testar.<br>Só me restou recorrer a vocês.<br>
<br>Agradeço por qq ajuda, dica ou direção q me derem.<br><br>Márcio Ferreira<br><font color="#888888"><br>-- <br><a href="http://empregar.com%20" target="_blank">Empregar.com </a>- Uma forma simples de encontrar seu próximo emprego na Internet.<br>
<br>
</font><br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br>