Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

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

by sabari (Beadle)
on Apr 28, 2010 at 09:35 UTC ( #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,


Comment on Re^3: Unable to send email using MIME::Lite
Download Code
Re^4: Unable to send email using MIME::Lite
by marto (Chancellor) 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....

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (4)
As of 2014-09-19 04:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (129 votes), past polls