ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander A. An 2:5085/109.1 17 Nov 2006 18:06:09
To : All
Subject : E-Mail::Send
--------------------------------------------------------------------------------
Ïîÿâèëàñü íåîáõîäèìîñòü îòïðàâëÿòü e-mail èç Perl-ñêðèïòà.
Hàøåë ñàáæ.
Ñâåðÿÿñü ñ äîêóìåíòàöèåé, ñäåëàë ïðîñòåíüêèé ñêðèïò:
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ Windows Clipboard ]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
use File::Glob;
use Email::Send;
$post="192.168.0.1";
my $message = <<'__MESSAGE__';
To: user1@post.net
From: user2@post.net
Subject: Test
Testing e-mail sending via Perl
__MESSAGE__
my $sender = Email::Send->new({mailer => 'SMTP'});
$sender->mailer_args([Host => $post]);
$sender->send($message);
end;
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ Windows Clipboard ]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Ðàáîòàåò. Îäíàêî åñëè âìåñòî ïðÿìîãî óêàçàíèÿ àäðåñà îòïðàâèòåëÿ, ïîëó÷àòåëÿ èëè
òåìû ïèñüìà ÿ ïûòàþñü èñïîëüçîâàòü ïåðåìåííûå - íå ðàáîòàåò, ïîòîìó ÷òî
ïåðåìåííûå âîñïðèíèìàþòñÿ êàê îáû÷íûé òåêñò. ×òî ìîæíî ñäåëàòü?
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ Windows Clipboard ]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
use File::Glob;
use Email::Send;
$post="10.8.8.177";
$fromuser="user2@post.net";
$touser="user1@post.net";
$subj="Test"
$message = <<'__MESSAGE__';
To: $touser
From: $fromuser
Subject: $subj
Testing e-mail sending via Perl
__MESSAGE__
my $sender = Email::Send->new({mailer => 'SMTP'});
$sender->mailer_args([Host => $post]);
$sender->send($message);
end;
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[ Windows Clipboard ]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
--- <[ ÔÊ Ëîêîìîòèâ (Ì) - Hàø ïàðîâîç âïåð¸ä ëåòèò... ]> ---
* Origin: Ì÷èòñÿ òèõèé îãîí¸ê ìîåé äóøè (2:5085/109.1)
Âåðíóòüñÿ ê ñïèñêó òåì, ñîðòèðîâàííûõ ïî: âîçðàñòàíèå äàòû óìåíüøåíèå äàòû òåìà àâòîð
|
