A little while back I spent some time over this.

Gmail seems to require some additional headers to ensure mails are not sent to the Junk Mail folder / Label.

Here is the code I used:

use warnings;
use strict;

use Carp;

use MIME::Lite;
use Net::SMTP::SSL;

use Data::Dump qw( dump );

use base 'Exporter';


sub send_mail {

    my $to         = shift;
    my $subject    = shift;
    my $body       = shift;
    my $from       = shift;
    my $password   = shift;

    my $from_mime = $from;
    my $count = @_;
    if( $count ) {
        my $from_name = shift;
        $from_mime = "\"$from_name\" <$from>";
    }

    my $msg = MIME::Lite->new (
        From       => "$from_mime"                 ,
        To         => "$to"                        ,
        Subject    => "$subject"                   ,
    Data       => "$body"                      ,
        );


    my $smtp;

    if (not $smtp = Net::SMTP::SSL->new('smtp.gmail.com',
                                        Port => 465,
                                        Debug => 0)) {
        croak "Could not connect to server\n";
    }

    $smtp->auth($from, $password)
        || croak "Authentication failed!\n";

    $smtp->mail($from . "\n");
    my @recepients = split(/,/, $to);
    foreach my $recp (@recepients) {
        $smtp->to($recp . "\n");
    }
    $smtp->data();
    $smtp->datasend( $msg->as_string() );
    $smtp->dataend();
    $smtp->quit;
}
[download]

The funny thing however is that one of the modules that are being called seem to have some problem in the latest version.

Here is the debug output of what works and what does not:

Works:

Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.13)
Net::SMTP::SSL>>>     IO::Socket::INET(1.29)
Net::SMTP::SSL>>>       IO::Socket(1.29)
Net::SMTP::SSL>>>         IO::Handle(1.25)
Net::SMTP::SSL>>>           Exporter(5.58)
Net::SMTP::SSL>>>   Net::Cmd(2.29)
[download]

Does not work:

Net::SMTP::SSL>>> Net::SMTP::SSL(1.01)
Net::SMTP::SSL>>>   IO::Socket::SSL(1.24)
Net::SMTP::SSL>>>     IO::Socket::INET(1.31)
Net::SMTP::SSL>>>       IO::Socket(1.30_01)
Net::SMTP::SSL>>>         IO::Handle(1.27)
Net::SMTP::SSL>>>           Exporter(5.62)
Net::SMTP::SSL>>>   Net::Cmd(2.29)
[download]

I solved the problem by using an older version of the modules. I am sure there is a better way though!!

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.