Turn on debug, or use wireshark <http://www.wireshark.org/> to capture 
the conversation with the server


  $smtp = Net::SMTP->new('mailhost',
                            Hello => 'my.mail.domain'
                            Timeout => 30,
                            Debug   => 1,
                           );


khozaima shakir wrote:
> ofcourse, i replaced the internet address to valid address :)
> 
> 
> 
> 
>     ------------------------------------------------------------------------
>     From: [EMAIL PROTECTED]
>     To: perl-win32-users@listserv.activestate.com
>     Subject: Newbie: email from perl script
>     Date: Fri, 3 Nov 2006 15:43:06 -0500
> 
>     Hi All,
>     I am a newbie to perl. Have installed active state and installed
>     libnet module.
> 
>     Am trying to learn how to send email from perl script and get
>     follwing error :
> 
>     Can't call method "mail" on an undefined value at myfirst.pl line
>     152, <STDIN> line 1.
> 
>     the script ( off the aspn: ):
> 
>     use Net::SMTP;
> 
>             use Net::SMTP;
>                             $smtp = Net::SMTP->new('here.com'); #
>     connect to an SMTP server
>                             $smtp->mail( '[EMAIL PROTECTED]' ); # use the
>     sender's address here
>                             $smtp->to('[EMAIL PROTECTED]'); # recipient's
>     address
>                             $smtp->data(); # Start the mail # Send the
>     header.
>                             $smtp->datasend("To: [EMAIL PROTECTED]");
>                             $smtp->datasend("From: [EMAIL PROTECTED]");
>                             $smtp->datasend("\n"); # Send the body.
>                             $smtp->datasend("Hello, World!\n");
>                             $smtp->dataend(); # Finish sending the mail
>                             $smtp->quit; # Close the SMTP connection
> 
>     i can't figure out what is undefined and why is it expecting
>     something from stdin.
> 
>     Thanks
>     khozaima
> 
>     ------------------------------------------------------------------------
>     Try the next generation of search with Windows LiveT Search today!
>     Try it now! <http://search.live.com> 
> 
> 
> ------------------------------------------------------------------------
> Try the next generation of search with Windows LiveT Search today! Try 
> it! <http://search.live.com>
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to