Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: Send e-mail using perl

by rbala (Acolyte)
on Aug 07, 2012 at 08:10 UTC ( #985908=note: print w/ replies, xml ) Need Help??


in reply to Re: Send e-mail using perl
in thread Send e-mail using perl

Thanks a lot zentara for ur suggestion. Now the script does not throw any errors, but executing the script does not show anything in terminal window.The terminal was struck for a while without any response after sometime , prompt returned.

Checked the mail inbox but mail not arrived.

I have got one more doubt also, how authentication can done ie. entering mail password for sending/receiving mails. Pls advise....


Comment on Re^2: Send e-mail using perl
Re^3: Send e-mail using perl
by Corion (Pope) on Aug 07, 2012 at 08:17 UTC
      Using Mail::Sender module and printed the log message. See the below code:
      #! /usr/bin/perl -w use Mail::Sendmail; %mail = ( To => 'xxx@gmail.com', From => 'yyy@gmail.com', Message => "This is a very short message" ); sendmail(%mail) or die $Mail::Sendmail::error; print "OK. Log says:\n", $Mail::Sendmail::log;
      The following log message is obtained:

      OK. Log says: Mail::Sendmail v. 0.79_16 - Tue Aug 7 13:27:58 2012 Date: Tue, 7 Aug 2012 13:27:58 +0530 Server: localhost Port: 25 From: xxx@gmail.com Subject: To: yyy@gmail.com Result: 250 2.0.0 q777vw5b026359 Message accepted for delivery

      But i dont find any messages in inbox.

        Message accepted for delivery

        But i dont find any messages in inbox.

        "accepted for delivery" means it is queued, its waiting to be sent, it is not the same as "delivered"

        Check your local mail account for bounce message (failure to deliver)

        I think you want to at least read and understand Mail::Sendmail and spend some time learning about how email works. You're using a local mail server, not the gmail platform. I suspect you'll find a bounce in your local mail server explaining why this message hasn't been delivered.

        But i dont find any messages in inbox

        GMail is known by me for silently accepting and discarding messages. This module is good though. It prints out

        Attachments successfully verified With No attachments Sending email Mail sent!

        Try this:

        #!/usr/bin/perl use warnings; use strict; use Email::Send::SMTP::Gmail; my $mail=Email::Send::SMTP::Gmail->new( -smtp=>'gmail.com', -login=>'z@gmail.com', -pass=>'wadawada'); $mail->send(-to=>'z@gmail.com', -subject=>'Hello smtp test', -verbose=>'1', -body=>'Just testing it', # -attachments=> 'full_path_2_file', ); $mail->bye;

        I'm not really a human, but I play one on earth.
        Old Perl Programmer Haiku ................... flash japh

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (8)
As of 2014-12-27 10:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (177 votes), past polls