Проблема Perl Mime

Question

Я новичок в Perl. Я пытаюсь использовать Mime :: Lite. Я посмотрел их сайт и пытаюсь отправить почту таким образом

#!/usr/bin/perl
use MIME::Lite;
$msg = MIME::Lite->new(
    From     =>'cassidy@hotmail.com',
    To       =>'ericafb77@gmail.com',
    Cc       =>'some@other.com, some@more.com',
    Subject  =>'Helloooooo, nurse!',
    Data     =>"AAA"
);
$msg->send; 

Но почта не пришла на мой почтовый адрес.Что мне делать?

Answer 1

Какая платформа?

В хорошо сконфигурированном окне Linux / UNIX это обычно работает как есть, но если вы используете Windows, вам, вероятно, нужно указать, как отправлять почту.

Следующее должно сделать трюк:

#!/usr/bin/perl

use strict;
use warnings;

my $msg = MIME::Lite->new(
    From => 'me@example.com',
    To => 'you@example.com',
    Cc => 'her@example.com,him@example.com',
    Subject => 'Hello, World!',
    Data => 'Test.',
);
$msg->send(smtp => 'smtp.example.com');

где smtp.example.com - это SMTP-сервер, который ваш интернет-провайдер советует вам использовать.

Answer 2

Проверяли ли вы, что ваш хост действительно отправлял электронную почту, используя SMTP, используя перехватчик пакетов, такой как wireshark ? Если нет, сделайте это и сообщите о своих выводах здесь.