Comments on: Sending Mail Through Gmail with Perl

By: Sawyer

Sawyer — Sun, 12 Jul 2009 08:32:45 +0000

I like to use Email::Stuff for email handling. It uses Email::Send in the backend and I can just write it as so: ) (hope the aligning looks right)
Email::Stuff->from ($from )
->to ($to )
->subject ($subject)
->text_body ( $text )
->using( ‘Gmail’, username => $user, password => $pass )
->send;

However, Email::Send::Gmail doesn’t play nice with Email::Stuff. Specifically the subroutine get_env_sender(). So, to fix it, I add the following line to my code prior to sending the email:
local *Email::Send::Gmail::get_env_sender = sub { };

By: Mark Sanborn

Mark Sanborn — Tue, 07 Jul 2009 15:38:03 +0000

You gotta love cpan

By: Leon Brocard

Leon Brocard — Tue, 07 Jul 2009 06:46:32 +0000

Or, you could use the module on CPAN which does this for you and makes it easy to create emails too: Email::Send::Gmail

http://search.cpan.org/dist/Email-Send-Gmail/

#!/usr/bin/perl
use strict;
use warnings;
use Email::Send;
use Email::Send::Gmail;
use Email::Simple::Creator;

my $email = Email::Simple->create(
header => [
From => 'magic_monitoring@gmail.com',
To => 'acme@astray.com',
Subject => 'Server down',
],
body => ‘The server is down. Start panicing.’,
);

my $sender = Email::Send->new(
{ mailer => ‘Gmail’,
mailer_args => [
username => 'magic_monitoring@gmail.com',
password => 'XXX',
]
}
);
eval { $sender->send($email) };
die “Error sending email: $@” if $@;