Для посылки простых текстовых сообщений нет проблем с использованием Net::SMTP, как
Код: Выделить всё
my $smtp = Net::SMTP->new('mail.domain.com');
В Линухе пользовались Mime::Entity, как
Код: Выделить всё
foreach my $img (@img) {
$top->attach(Path => "$IMG_DIR/$img",
Type => "image/jpeg",
Encoding => "base64") or return "Error: $!";
}
open (MAIL, "| /usr/sbin/sendmail -t -i") or return "Could not send mail: $!";
$top->print(\*MAIL);
close MAIL;
Можно-ли наладить Mime::Entity, что бы работал с NT почтовым сервером (что надо указать в 'open (MAIL, ...)', простой зов сервера ничего не дает)?
Или нужно для таких дел использовать что-то еще? Что рекомендуете, господа?
Заранее спасибо.