Re^4: Using Email::Stuff to send SMTP mail through GMail

Indeed, Email::Stuff is just a usability wrapper (I wrote it that way intentionally).

Trouble with IO::Socket::(Anything) on Win32 would not surprise me at all, there's a few dragons there.

What Perl distribution are you using?

The first step might be to just write a simple test script that tries to connect via SSL, then immediately drops the connect once established, to GMail's server and see if that works.

That would isolate the problem to the connectivity layer. If you can get that working, then lets look at Email::Stuff and friends.

Until then though, I consider the entire Email:: family to be blameless here.

Comment on Re^4: Using Email::Stuff to send SMTP mail through GMail

Replies are listed 'Best First'.
Re^5: Using Email::Stuff to send SMTP mail through GMail by initself (Monk) on Sep 22, 2006 at 05:38 UTC
I am on Linux, Perl 5.8.8. I must be missing something. I don't see how your suggestion differs from what I did at the outset. I have a simple test script that tries to connect via SSL. But I don't understand enough about the mechanism in the connectivity layer to troubleshoot what is happening in the interim between my script and their servers. I tried to break it down by just using Email::Send::SMTP to send a message: `#!/usr/bin/perl use warnings; use strict; use Email::Send; my $mailer = Email::Send->new({mailer => 'SMTP'}); $mailer->mailer_args([Host => 'smtp.gmail.com:465', ssl => 1, username => 'mike@mikebaas.com', password => 'xxx']); my $message = "From: mike\@mikebaas.com To: test\@mikebaas.com Subject: testing This is the test message body."; my $result = $mailer->send($message); print "$result\n";` [download] The value of $result is: `Couldn't connect to smtp.gmail.com:465` Not quite sure how to get more detail out of the module.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Using Email::Stuff to send SMTP mail through GMail
by initself (Monk) on Sep 22, 2006 at 05:38 UTC

I am on Linux, Perl 5.8.8.

I must be missing something. I don't see how your suggestion differs from what I did at the outset. I have a simple test script that tries to connect via SSL. But I don't understand enough about the mechanism in the connectivity layer to troubleshoot what is happening in the interim between my script and their servers.

I tried to break it down by just using Email::Send::SMTP to send a message:

#!/usr/bin/perl
use warnings;
use strict;
use Email::Send;
my $mailer = Email::Send->new({mailer => 'SMTP'});
$mailer->mailer_args([Host => 'smtp.gmail.com:465',
                      ssl => 1,
                      username => 'mike@mikebaas.com',
                      password => 'xxx']);

my $message = "From: mike\@mikebaas.com
To: test\@mikebaas.com
Subject: testing

This is the test message body.";

my $result = $mailer->send($message);
print "$result\n";
[download]

The value of $result is:

Couldn't connect to smtp.gmail.com:465

Not quite sure how to get more detail out of the module.

[reply]
[d/l]
[select]