sending mail using Net::SMTP client

[David Ravikumar]

Hi,

I am trying to send a mail via Net::SMTP

The code is below

====================================
$smtp = Net::SMTP->new("smtp.domain.com");
$smtp->to("[EMAIL PROTECTED]");
$smtp->data();
$smtp->datasend("To: [EMAIL PROTECTED]");
$smtp->datasend("From: [EMAIL PROTECTED] \n");
$smtp->datasend("Subject: whatever");
$smtp->datasend("\n");
$smtp->datasend("test message");
$smtp->dataend();
========================================

Can anybody help me out and tell me where is the error.

I am using Windows 2000 professional and I had installed in my machine
Active perl.... I am using some other SMTP server.

Thanks for help

David



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]