2013年11月1日 星期五

Perl send mail via gmail

Reference:
http://dipinkrishna.com/blog/2010/12/sending-emails-gmail-smtp-perl/

use Net::SMTP::TLS;   # ActivePerl 5.14 才有

my $smtp = new Net::SMTP::TLS(
'smtp.gmail.com',
Port    => 587,
User    => 'sender@gmail.com',
Password=> 'Password',
Timeout => 30
);

#  -- Enter email FROM below.   --
$smtp->mail('sender@gmail.com');

#  -- Enter recipient mails addresses below --
my @recipients = ('recipient1@gmail.com', 'recipient2@yahoo.com');
$smtp->recipient(@recipients);
$smtp->bcc(@recipients);

$smtp->data();

#This part creates the SMTP headers you see
$smtp->datasend("To: recipient1\@gmail.com\n");
$smtp->datasend("From: Chandler \n");
$smtp->datasend("Content-Type: text/html \n");
$smtp->datasend("Subject: A Test Mail");
# line break to separate headers from message body
$smtp->datasend("\n");
$smtp->datasend("This is a test mail body");
$smtp->datasend("\n");
$smtp->dataend();

$smtp->quit;

沒有留言:

張貼留言