net::smtp
From: RandRace (deladoalado_at_hotmail.com)
Date: 07/28/04
- Next message: henry farbles: "Re: net::smtp"
- Previous message: lynto: "Algorithm for Packing Registers?"
- Next in thread: henry farbles: "Re: net::smtp"
- Reply: henry farbles: "Re: net::smtp"
- Reply: nobull_at_mail.com: "Re: net::smtp"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Tue, 27 Jul 2004 22:07:21 GMT
I'm having some problems with a little script i wrote using net::smtp.
I originally wrote it in linux where it works perfectly. I tried to
use it from windows the other day and it doesn't work. It connects to
the server and prints the banner but will not send mail.
Here is my script:
use Net::SMTP;
my $smtp = Net::SMTP->new('smtp.comcast.net') or die "Can't Open
server"!";
print $smtp->banner, "\n";
$smtp->mail('mail@comcast.net');
$smtp->to('mail@comcast.net');
$smtp->data();
$smtp->datasend("To: mail@comcast.net\n");
$smtp->datasend("From: somedude\n");
$smtp->datasend("Subject: dude\n");
$smtp->datasend("Reply-To: mail@comcast.net\n");
$smtp->datasend("\n");
$smtp->datasend("test test");
$smtp->dataend();
$smtp->quit;
thanks :)
- Next message: henry farbles: "Re: net::smtp"
- Previous message: lynto: "Algorithm for Packing Registers?"
- Next in thread: henry farbles: "Re: net::smtp"
- Reply: henry farbles: "Re: net::smtp"
- Reply: nobull_at_mail.com: "Re: net::smtp"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
