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><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>