Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Re^3: Sending Mail from Perl Script

by thezip (Vicar)
on Apr 30, 2008 at 05:12 UTC ( #683622=note: print w/ replies, xml ) Need Help??

in reply to Re^2: Sending Mail from Perl Script
in thread Sending Mail from Perl Script

Have you tried enabling Debug as I suggested? What were the resulting messages?

This might be a natural next step in the troubleshooting process.

Your wish is my commandline.

Comment on Re^3: Sending Mail from Perl Script
Re^4: Sending Mail from Perl Script
by Niner710 (Sexton) on Apr 30, 2008 at 16:02 UTC
    Hi, Yes, I tried the Debug=>1 option and got an error "Can't call method auth on an undefined value". When I tried to do it your way, it seems like the program hangs with the authorization part. I'm not sure why that is. My username and password are all correct. I've tried the username without the "" but still gives the same error. I'm wondering if I need SSL or anything for gmail. Can't seem to get my yahoo email account to work either. Maybe thats why the authorization is failing??
    use MIME::Lite; use Net::SMTP; $FROM=''; $TO=''; $subject='TESTING 123'; $SMTPUSER=''; $SMTPPASS='james1234'; $message_text='testing'; my $msg = MIME::Lite->new(From => $FROM,To => $TO,Subject => $subject, +Type => 'multipart/alternative'); my $smtp = new Net::SMTP('', Timeout => 15, Debug => + 1); $smtp->auth($SMTPUSER, $SMTPPASS); $smtp->mail($FROM); $smtp->to($TO); $smtp->data($msg->as_string); $smtp->quit;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://683622]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (9)
As of 2015-07-02 05:27 GMT
Find Nodes?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...

    Results (29 votes), past polls