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