Скрипт отправки письма с вложением.
#!/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!";
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!";
If you enjoyed this article, please consider sharing it!
Большое спасибо.
не пашет
Необходимо установить модуль perl. Так как вы используете windows — то скорее всего у вас ActivePerl (там есть gui интерфейс по управлению модулями). По Unix делается как всегда просто