Sendmail is a nice Perl module that lets you do this. http://www.tneoh.zoneit.com/perl/SendMail/
Rajesh -----Original Message----- From: Paul Kraus [mailto:[EMAIL PROTECTED] Sent: Friday, November 21, 2003 8:36 AM To: 'liuxu'; [EMAIL PROTECTED] Subject: RE: how to send mail using Perl Check out MIME::Lite. -----Original Message----- From: liuxu [mailto:[EMAIL PROTECTED] Sent: Thursday, November 20, 2003 10:13 PM To: [EMAIL PROTECTED] Subject: how to send mail using Perl I want to send mail using perl,the following is my code. There are not any error or warning when the program run. But i can not receive the mail. Please help me ! thanks! use Net::SMTP; $smtp = Net::SMTP->new('192.168.1.169') or die "Can not connect to the mail server : $! \n"; $smtp->mail('[EMAIL PROTECTED]'); $smtp->to('[EMAIL PROTECTED]'); $smtp->data(); $smtp->datasend("To: postmaster\n"); $smtp->datasend("\n"); $smtp->datasend("A simple test message\n"); $smtp->dataend(); $smtp->quit; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
