Электронная почта не отправляется с помощью perl MIME :: Lite с использованием smtp - PullRequest
0 голосов
/ 10 декабря 2010

Я пытаюсь отправить электронное письмо, используя MIME :: Lite, но электронное письмо не отправляется, и я не получаю никаких ошибок.Код:

    my $subject = $Config->{email}->{subject};
    my $from_email = $Config->{email}->{from_email};
    my $message = $Config->{email}->{message};
    my $smtp_server = $Config->{email}->{smtp_server};
    my $msg = MIME::Lite->new
    (
    Subject => $subject,
    From    => $from_email,
    To      => $email,
    Type    => 'text/html',
    Data    => $message
    );

    $msg->send('smtp' ,$smtp_server );

1 Ответ

3 голосов
/ 10 декабря 2010

Не так много, чтобы продолжать там ...

Может, попробовать отладить?

$msg->send( 'smtp', $smtp_server,  Debug=>1 );

И убедитесь, что все значения в $Config->{email} соответствуют ожиданиям.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...