Почему я получаю сообщение «SMTP Failed to connect to mail server:» при попытке отправить электронное письмо на учетную запись Gmail с помощью MIME :: Lite?
У меня есть следующий код для отправки электронной почты в 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";
Когда я запускаю его, я получаю следующую ошибку:
SMTP Failed to connect to mail server:
Когда я звоню$msg->send с аргументами (см. прокомментированные строки выше) я получаю следующую ошибку:
SMTP auth() command not supported on smtp.gmail.com
Как я могу это исправить?