Кто ответит на небольшой вопрос:
имеется скрипт почты, что-то типа
open (ML,$MAIL_PROGRAM) or return;
print ML "To: $email\n";
print ML "From: \"$myname\" \<$mymail\>\n";
print ML "Cc: \"$myname\" \<$mymail\>\n";
print ML "Subject: $subj\n";
print ML "Return-Path: <$mymail>\n";
print ML "Reply-To: $mymail\n";
print ML "Текст письма\n";
close (MZ);
и имеется файл, например, file.zip
Как сделать так, чтобы при отправке письма файл file.zip автоматически прикреплялся к этому письму?
Заранее благодарю за ответ.
[Ответ]
Сообщение от :
Первоначальное сообщение от DMakeev
Читай rfc2821.
Спасибо! Только прошу уточнить,
что такое rfc2821 и где про это почитать.
[Ответ]
Похоже разобрался.
Все довольно просто:
use MIME::Lite;
тут само письмо
### Attach:
$msg->attach(Type =>'application/x-zip-compressed',
Path =>'путь до/file.zip',
Filename =>'file.zip'
);
MIME::Lite->send("sendmail", "/usr/sbin/sendmail -t");
$msg->send();
Похоже, что так.
[Ответ]