Re^2: Network Unreachable issue while sending email using PERL (gmail)

[manojsagar]

I managed to resolve it using Email::Sender::Transport::SMTP

#!/usr/bin/perl

use strict;
use warnings;

use Email::Sender::Transport::SMTP;
use Email::Sender::Simple qw(sendmail);

my $smtpserver = 'smtp.gmail.com';
my $smtpport = 587;
my $smtpuser   = '[e-mail]';
my $smtppassword = 'xxxxxxxxx';

my $transport = Email::Sender::Transport::SMTP->new({
  host => $smtpserver,
  ssl  => 'starttls',
  port => $smtpport,
  sasl_username => $smtpuser,
  sasl_password => $smtppassword,
  debug => 1,
});


my $email = Email::Simple->create(
  header => [
    To      => 'xxxxxxxxxx',
    From    => '[e-mail]',
    Subject => 'Hi!',
  ],
  body => "This is my message\n",
);

sendmail($email, { transport => $transport });

[1nickt]

It's also a nice solution, one I have used in the past because you can wrap the Transport agent code in its own module so the credentials and whatnot are not exposed in the application code.

use Email::Sender::Simple qw(sendmail);
use My::Email::TransportAgent; # returns instance of Email::Sender::Tr
+ansport::SMTP

...

sendmail( $email, { transport => My::Email::TransportAgent->new } );

(Or create My::Email::Sender and wrap the whole thing ...)