VPF::MIME::Entity не срабатывает параметр Data

noize

Дата 5.12.2011, 10:31 (ссылка)

(нет голосов)

Загрузка ...

5.18.2

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 10.7.2010
Где: СПб

Репутация: 3
Всего: 3

Всем здравствуйте. Имеется кусок кода, в котором происходит отправка письма с аттачем в виде wav-файла.

Код


my $top = MIME::Entity->build(Type      => "multipart/mixed",
                        From            => "$smtp_user",
                        To              => "$rcpt",
                        Subject         => "Test Mail",
                        Charset         => "Windows-1251",
                        Data            => "123");
$top->attach(Type => "audio/x-wav",
        Path            => "/tmp/$msg",
        Filename        => "$msg",
        Encoding        => "base64");
my $smtp = Net::SMTP->new($smtp_server,
                        Timeout => 60,
                        Port => $smtp_port,
                        );
$smtp->auth($smtp_user,$smtp_password);
$smtp->mail($smtp_user);
$smtp->to($rcpt);
$smtp->data($top->stringify);
$smtp->quit;

Сам код работает и письмо отправляется нормально. Но параметр Data в MIME::Entity, который как я понял, отвечает за текст в письме, не срабатывает, т.е. письмо приходит без текста только с аттачем. Подскажите, в какую сторону копнуть?

noize

Дата 5.12.2011, 12:18 (ссылка)

(нет голосов)

Загрузка ...

5.18.2

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 10.7.2010
Где: СПб

Репутация: 3
Всего: 3

Вопрос снимается, покурил ещё документацию и нашёл решение. Если кому интересно, конечный вариант:

Код


my $top = MIME::Entity->build(Type      => "multipart/mixed",
                        From            => "$smtp_user",
                        To              => "$rcpt",
                        Subject         => "Test Mail",
                        );
$top->attach(Type       => "text/plain",
        Charset         => "utf8",
        Encoding        => "quoted-printable",
        Data            => "123"
        );
$top->attach(Type => "audio/x-wav",
        Path            => "/tmp/$msg",
        Filename        => "$msg",
        Encoding        => "base64");
my $smtp = Net::SMTP->new($smtp_server,
                        Timeout => 60,
                        Port => $smtp_port,
#                        Debug => 1,
                        );
$smtp->auth($smtp_user,$smtp_password);
$smtp->mail($smtp_user);
$smtp->to($rcpt);
$smtp->data($top->stringify);
$smtp->quit;

arto

Дата 5.12.2011, 12:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

Добавте еще один аттач, для текста

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »