> -----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;
Tail the logs of the SMTP server to see whats going on. I presume you have control over it as its IP is internal. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
