|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Nikolay Pichtin 2:5056/30 21 Mar 2001 23:03:25 To : Eugene E. Zaitsev Subject : Re: Mail with attachment -------------------------------------------------------------------------------- EZ> Greetings, "Andrey Lebedev" <andrey@freemail.lt>! You wrote: >> Подскажите, как пристегнуть к мылу аттачмент и послать с помощью >> sendmail? EZ> perl -MCPAN -e "install MIME::Tools";perldoc MIME::Entity Человек конкретно спрашивал про sendmail, а ты его куда отправил? Может быт у его хостера нет возможности дополнительные модули устанавливать. То: Андрей, я делал по такому принципу: = Вставка = $to = '"Your Name" <yourname@yourdomain.com>'; $recip = 'yourname@yourdomain.com'; $from = '"Your Name" <yourname@yourdomain.com>'; $subject = "This is the subject"; $mainbody = "This is the main body\n"; $attachment = "This is an attachment\n"; $message = MakeMessage($to, $from, $subject, $mainbody, $attachment); open (MAIL, "|sendmail -t"); print MAIL $message; close (MAIL); sub MakeMessage { my ($to, $from, $subject, $mainbody, $attachment) = @_; my $message = <<"__EOM__"; From: $from To: $to Subject: $subject MIME-Version: 1.0 Content-Type: multipart/mixed; boundary=\"----=_NextPart_000_0012_01BDDCAE.46F62A80\" X-Priority: 3 X-MSMail-Priority: Normal This is a multi-part message in MIME format. -+----=_NextPart_000_0012_01BDDCAE.46F62A80 Content-Type: text/plain; charset=\"iso-8859-1\" Content-Transfer-Encoding: 7bit $mainbody -+----=_NextPart_000_0012_01BDDCAE.46F62A80 Content-Type: text/plain; name=\"attach.txt\" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename=\"attach.txt\" $attachment -+----=_NextPart_000_0012_01BDDCAE.46F62A80-- __EOM__ return $message; } = Вставка = -- Hиколай. * Фидошник - не человек, это новая форма жизни! ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД --- * Origin: Если это глупо, но работает, - значит это не глупо. (2:5056/30) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/18133ab928cd.html, оценка из 5, голосов 10
|