Есть скрипт на перле, который должен отправить письмо с аттачем и текстом.
Список файлов в переменной @files.
Так вот, с текстом проблем нет, а вот с файлами сложнее...
Проблема: если я сначала отправляю текст, то потом весь аттач получается в текстовом виде, а если сначала аттач, то текст тоже получается в аттаче.
Видимо я что-то забываю дописать, не знаю...
Короче, если только текст, то последовательность такая:
print SENDMAIL "Content-Type: text/plain; charset=\"koi8-r\"\n";
print SENDMAIL "Content-Transfer-Encoding: 8bit\n";
print SENDMAIL "To: $email\n";
print SENDMAIL "From: SELFMAILER\n";
print SENDMAIL "Subject: $subject\n\n";
print SENDMAIL "Current time:$time\nMessage:\n";
foreach $str( @str ) { print SENDMAIL $str; }
Если теперь написать print SENDMAIL "Content-Type: application/x-compressed\n"; и др...
то эта строка и все следующие отправятся как текст письма
А если вначале, то текст письма оказывается а аттаче к письму, а не в письме.
Подскажите, что нужно добавить к этой части программы, чтобы правильно присоединить файлы к письму...
|