| Subject: | Authentication (SMTP) failed |
| Date: | Mon, 24 Jan 2011 18:57:44 -0600 |
| To: | bug-Email-Send-SMTP-Gmail [...] rt.cpan.org |
| From: | Kevin Chambers <chamberske [...] gmail.com> |
So I typed the code just like you had it on your web site, changed
login and password and added debug. Here is the debug message I am
getting:
Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>> IO::Socket::SSL(1.31)
Net::SMTP::SSL>>> IO::Socket::INET(1.31)
Net::SMTP::SSL>>> IO::Socket(1.31)
Net::SMTP::SSL>>> IO::Handle(1.28)
Net::SMTP::SSL>>> Exporter(5.63)
Net::SMTP::SSL>>> Net::Cmd(2.29)
Net::SMTP::SSL=GLOB(0xb74278)<<< 220 mx.google.com ESMTP c30sm16924982anc.0
Net::SMTP::SSL=GLOB(0xb74278)>>> EHLO localhost.localdomain
Net::SMTP::SSL=GLOB(0xb74278)<<< 250-mx.google.com at your service,
[x.x.x.x] (myip was here)
Net::SMTP::SSL=GLOB(0xb74278)<<< 250-SIZE 35651584
Net::SMTP::SSL=GLOB(0xb74278)<<< 250-8BITMIME
Net::SMTP::SSL=GLOB(0xb74278)<<< 250-AUTH LOGIN PLAIN XOAUTH
Net::SMTP::SSL=GLOB(0xb74278)<<< 250 ENHANCEDSTATUSCODES
Authentication (SMTP) failed
Here is the code. I am using Ubuntu 10.04 and perl version 5.10.1.
#!/usr/bin/perl
use strict;
use warnings;
use Email::Send::SMTP::Gmail;
my $mail=Email::Send::SMTP::Gmail->new( -smtp=>'gmail.com',
-login=>' ',
-pass=>' ',
-debug=>'1'
);
$mail->send( -to=>'chamberske@gmail.com',
-replyto=>'chamberske@gmail.com',
-subject=>'Mailing',
-verbose=>'1',
-body=>'Test');
$mail->bye;
Thanks for your help.
Kevin