Por que recebo a mensagem "SMTP Falha na conexão com o servidor de email:" quando tento enviar um email para uma conta do Gmail usando o MIME :: Lite?
Eu tenho o seguinte código para enviar um email em Perl:
#!/usr/bin/perl
use MIME::Lite;
$to = '[email protected]';
$cc = '[email protected]';
$from = '[email protected]';
$subject = 'Test Email';
$message = 'This is test email sent by Perl Script';
$msg = MIME::Lite->new(
From => $from,
To => $to,
Cc => $cc,
Subject => $subject,
Data => $message
);
$msg->send;
#$msg->send('smtp', "smtp.gmail.com", AuthUser=>"[email protected]", AuthPass=>"mypass" );
#$msg->send('smtp', "smtp.gmail.com", Debug=>0 );
#$msg->send('type',@args);
print "Email Sent Successfully\n";
Quando o executo, recebo o seguinte erro:
SMTP Failed to connect to mail server:
Quando eu ligo$msg->send
com argumentos (veja as linhas comentadas acima), recebo o seguinte erro:
SMTP auth() command not supported on smtp.gmail.com
Como posso consertar isso?