chicago928 has asked for the wisdom of the Perl Monks concerning the following question:
use Net::SMTP; my $ServerName = "smtp.google.com" ; my $smtp = Net::SMTP->new($ServerName, port=> 587, Debug => 1) ; die "Couldn't connect to server" unless $smtp ; my $MailFrom = "sender\@gmail.com" ; my $MailTo = "receiver\@received.com" ; $smtp->mail( $MailFrom ) ; $smtp->to( $MailTo ) ; $smtp->data() ; $smtp->datasend("Hello World!\n\n") ; $smtp->dataend() ; $smtp->quit() ;
The debugs I received include 550 5.7.1 ... Relaying denied and 503 need recipient
Thanks
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: sending emails with gmail
by hubb0r (Pilgrim) on Jul 26, 2005 at 17:41 UTC | |
Re: sending emails with gmail
by ikegami (Patriarch) on Jul 26, 2005 at 17:48 UTC | |
Re: sending emails with gmail
by b10m (Vicar) on Jul 26, 2005 at 17:48 UTC |