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>