2012年6月4日月曜日

Perl - CPANモジュール "Email::Sender" サンプルコード


GmailのSMTPサーバを利用したメール送信の例


サンプルコード

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Email::Sender::Transport::SMTP;

my $email = Email::Simple->create(
    header => [
        From    => '"from name" <Gmailメールアドレス>',
        To      => '"to name" <宛先メールアドレス>',
        Subject => "test mail subject",
    ],
    body => "test mail body.",
);

my $transport = Email::Sender::Transport::SMTP->new({
    ssl  => 1,
    host => 'smtp.gmail.com',
    port => 465,
    sasl_username => 'Gmailメールアドレス',
    sasl_password => 'Gmailパスワード'
});

eval { sendmail($email, { transport => $transport }); };
if ($@) { warn $@ }

0 件のコメント:

コメントを投稿