Скрипт отправки письма с вложением.

#!/usr/bin/perl

use MIME::Lite;

my $msg = MIME::Lite->new(
                        From    =>'robot@smt.com',
                        To      =>'user@smt.com',
                        Subject =>'Subject here',
                        Type    =>'multipart/mixed');
$msg->attach(Type     =>'TEXT',
            Data     =>"Text here."
            );
$msg->attach(Type     =>'application/zip',
           Path     =>'/path/to/file.zip',
           Filename =>'file.zip',
           Disposition => 'attachment'
           );
$msg->send();

print "Content-type: text/html\n\n";
print "send complete!";
Tagged with:  

3 Responses to Отправка писем с вложениями на Perl

  1. Элла:

    Большое спасибо.

  2. kill-user:

    не пашет

  3. Passenger:

    Необходимо установить модуль perl. Так как вы используете windows — то скорее всего у вас ActivePerl (там есть gui интерфейс по управлению модулями). По Unix делается как всегда просто

    perl -MCPAN -e ‘install MIME::Lite’

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Можно использовать следующие HTML-теги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>