Perl: SMTP не удалось подключиться к почтовому серверу

Question

Я закодировал простой скрипт Perl для отправки почты с использованием модулей MIME :: Lite и Net :: SMTP. Но это привело к ошибке, «SMTP Не удалось подключиться к почтовому серверу: немедленная немедленная операция сокета не может быть завершена».

Perl скрипт Я попытался,

use strict; 
use warnings; 
use MIME::Lite; 
use Net::SMTP; 

my $from = 'agnesgrusteven@gmail.com'; 
my $to = 'agnesgrusteven@gmail.com'; 
my $host = 'smtp.gmail.com'; 

my $subject = 'A test message by script '; 
my $body = "Please ignore this message as this is test from Perl scripts "; 

my $msg = MIME::Lite->new (
    From => $from, 
    To => $to, 
    Subject => $subject, 
    Type =>'multipart/mixed' 
) or die "Error creating multipart container: $!\n"; 

$msg->attach (
    Type => 'TEXT', 
    Data => $body 
) or die "Error adding the text message part: $!\n"; 

MIME::Lite->send('smtp', $host, Timeout=>60); 
$msg->send; 

Фактическая ошибка я получил,

G:\>perl SampleEmail.pl 
SMTP Failed to connect to mail server: A non-blocking socket operation could not 
be completed immediately. 
at SampleEmail.pl line 26. 

Пожалуйста, помогите мне, что конкретно мне нужно проверить, чтобы отправить почту правильно.

Заранее спасибо

Answer 1

Извините за ответ на мой собственный вопрос, но это может помочь кому-то.

После месяца поиска, наконец, я обнаружил, почему мой сокет не подключается к SMTP с правильным хостом и кодом доступа. В моем случае модуль IO :: Socket обрушивается. У меня есть заменен IO :: Socket со свежим, и все это сработало. Думаю, причиной срыва модуля может быть то, что я вручную загружаю необходимые модули с другого сайта и размещаю его в Perl lib, а не в Perl Package Manager.

Thanks

Answer 2

Если вы используете это на хорошо настроенный сервер Linux, вы, возможно, повезет больше, если вы берете

use Net::SMTP 

и

MIME::Lite->send('smtp', $host, Timeout=>60); 

и просто пусть MIME::Lite использует свои значения по умолчанию - обычно он позволяет sendmail обрабатывать сообщение. .

Answer 3

MIME :: Lite/Net :: SMTP v3 * - отправка через smtp.gmail.com

Q1: Можете ли вы teknet SMTP (25) порт в smtp.gmail.com? Получаете ли вы приветственное сообщение SMTP?

telnet smtp.gmail.com 25 

A1: NO => Вполне вероятно, что ваши исходящие соединения с SMTP порта заблокированы, чтобы избежать исходящих спама.

Q2: Можете ли вы использовать telnet msa (587) порт в smtp.gmail.com? Получаете ли вы приветственное сообщение SMTP?

telnet smtp.gmail.com 587 

A1: ДА => отправить через MSA (587) или SMTPS (465). MIME::Lite может подключаться к порту smtps (465) с использованием Net::SMTP версии 3. *.
[ВНИМАНИЕ: см MIME::Lite 3.030 - NET::SMTP with smtps (port 465)]

# use smtps (465) port - it requires Net::SMTP version 3.* 
# use debugging (Debug=>1) for initial tests 
MIME::Lite->send('smtp', $host, SSL=>1, Timeout=>60, 
    AuthUser=>$user,AuthPass=>$pass 
    Debug=>1);