Sending Mail Through Gmail with Perl

The Code

use Net::SMTP::TLS;
my $mailer = new Net::SMTP::TLS(
‘smtp.gmail.com’,
Hello   =>      ‘smtp.gmail.com’,
Port    =>      587,
User    =>      ‘username’,
Password=>      ‘password’);
$mailer->mail(‘from@domain.com’);
$mailer->to(‘to@domain.com’);
$mailer->data;
$mailer->datasend(“Sent from perl!”);
$mailer->dataend;
$mailer->quit;

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s