Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^3: Unable to send email using MIME::Lite

by sabari (Beadle)
on Apr 28, 2010 at 09:35 UTC ( [id://837257]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Unable to send email using MIME::Lite
in thread Unable to send email using MIME::Lite

Below code does the login
#!/usr/bin/perl #===================================================================== +========== # # FILE: ExampleMailer.pl # # USAGE: ./ExampleMailer.pl # # DESCRIPTION: # # OPTIONS: --- # REQUIREMENTS: --- # BUGS: --- # NOTES: --- # AUTHOR: S.SABARINATHAN (Sabarinathan), <sabarinathan@bksyste +ms.co.in> # COMPANY: Bk Systems (P) Ltd,Chennai # VERSION: 1.0 # CREATED: 04/28/10 12:52:40 IST # REVISION: --- #===================================================================== +========== use strict; use warnings; use MIME::Lite; use Net::SMTP; my $from = 'YAHOO ID'; my $to = 'sabarinathan@bksystems.co.in'; my $host ='plus.smtp.mail.yahoo.com'; my $subject = 'A test message by script '; my $body = "Pls ignore this msg as this is test from perl scripts "; my $pass="********"; my $msg = MIME::Lite->new ( From => $from, To => $to, Subject => $subject, Type =>'multipart/mixed' ) or die "Error creating multipart container: $!\n"; $msg->attach ( Type => 'TEXT', Data => $body ) or die "Error adding the text message part: $!\n"; #MIME::Lite->send('smtp', $host, Timeout=>60,Auth=>'Yes',Port => 465, +Debug => 1); MIME::Lite->send('smtp', $host, Timeout=>60,Auth=>'LOGIN',AuthUser=>$f +rom,AuthPass=>$pass,Port => 465, Debug => 1); $msg->send;
But i am getting below error in atuthen, MIME::Lite::SMTP>>> MIME::Lite::SMTP MIME::Lite::SMTP>>> Net::SMTP(2.31) MIME::Lite::SMTP>>> Net::Cmd(2.29) MIME::Lite::SMTP>>> Exporter(5.62) MIME::Lite::SMTP>>> IO::Socket::INET(1.31) MIME::Lite::SMTP>>> IO::Socket(1.30_01) MIME::Lite::SMTP>>> IO::Handle(1.27) MIME::Lite::SMTP=GLOB(0x8d0a970)<<< 220 smtp105.prem.mail.sp1.yahoo.com ESMTP MIME::Lite::SMTP=GLOB(0x8d0a970)>>> EHLO localhost.localdomain MIME::Lite::SMTP=GLOB(0x8d0a970)<<< 250-smtp105.prem.mail.sp1.yahoo.com MIME::Lite::SMTP=GLOB(0x8d0a970)<<< 250-AUTH LOGIN PLAIN XYMCOOKIE MIME::Lite::SMTP=GLOB(0x8d0a970)<<< 250-PIPELINING MIME::Lite::SMTP=GLOB(0x8d0a970)<<< 250 8BITMIME SMTP auth() command failed: No such file or directory Need MIME::Base64 and Authen::SASL todo auth
Best Regards, S.Sabarinathan,

Replies are listed 'Best First'.
Re^4: Unable to send email using MIME::Lite
by marto (Cardinal) on Apr 28, 2010 at 09:55 UTC
      Thanks .. After installing that modules now the above code working fine . We needs to add below lines in above my code .
      use MIME::Base64; use Authen::SASL;
      Best Regards, S.Sabarinathan,

        We needs to add below lines in above my code .

        Looking at the code, I can't see how that could possibly be true. The modules attempts to load them. If they're not installed, the loading fails and you get the earlier error message. There's no need to load them in advance.

Re^4: Unable to send email using MIME::Lite
by Anonymous Monk on Nov 23, 2012 at 15:47 UTC
    I was able to make the above code work in Activeperl under Win 7 but not in Ubuntu. I am getting the same error above in Ubuntu. I installed MIME::Base64 and Authen::SASL but no luck....
Re^4: Unable to send email using MIME::Lite
by ytjPerl (Scribe) on Feb 28, 2018 at 20:21 UTC
    I ran your code, always showing me SMTP to connect to mail server:bad file descriptor
    MIME::Lite->send('smtp', $host, Timeout=>60,Auth=>'LOGIN',AuthUser=>$f +rom,AuthPass=>$pass,Port => 465, Debug => 1);
    $host I set as smtp.gmail.com

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (2)
As of 2024-03-19 07:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found