|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander A. An 2:5085/109.1 20 Nov 2006 16:59:31
To : All
Subject : EMail::send
--------------------------------------------------------------------------------
Êîâûðÿëñÿ, êàê åæèê â òóìàíå.
Äîêîâûðÿëñÿ äî ñëåäóþùåãî:
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ Windows Clipboard ]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
my $message = <<"_MESSAGE_";
To: $recipients
From: $from
Subject: $subject
Testing e-mail sending via Perl
_MESSAGE_
my $sender = Email::Send->new({mailer => 'SMTP'});
$sender->mailer_args([Host => $postserver]);
$sender->send($message);
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ Windows Clipboard ]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Çíà÷åíèÿ ïåðåìåííûõ $recipients, $from, $subject è $postserver ñ÷èòûâàþòñÿ èç
êîíôèãà. Âðîäå ðàáîòàåò. Äâîéíûå êàâû÷êè â _MESSAGE_ ïîìîãëè, ÷òî-ëè...
Âñåì îãðîìíîå ñïàñèáî çà ïîìîùü! :)
--- <[ ÔÊ Ëîêîìîòèâ (Ì) - Hàø ïàðîâîç âïåð¸ä ëåòèò... ]> ---
* Origin: Ì÷èòñÿ òèõèé îãîí¸ê ìîåé äóøè (2:5085/109.1)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
| Òåìà: |
Àâòîð: |
Äàòà: |
|
EMail::send |
Alexander A. An |
20 Nov 2006 16:59:31 |
|
|
