Email::Sen::Gmailを使ってGmail経由でメール送信
Email::Send, Email::Send::Gmail. Email::MIMEを使ってGmail経由でメールを送るコード保存用に
主にiPhoneへのメール送信につかっていると。定期的に図書館新着メール、検索サーチ、
まとまった内容をスクラッピングしてまとめて連続でメールする感じでつかっていると。
#!/usr/bin/perl use strict; use warnings; use Email::Send; use Email::Send::Gmail; use Email::MIME; use Email::MIME::Creator; use Config::Pit; use Encode; my $config = pit_get("gmail.com"); my $email = Email::MIME->create( header => [ From => $config->{username}, To => 'iPhone_address@i.softbank.jp', Subject => encode('MIME-Header-ISO_2022_JP', "テスト送信"), ], attributes => { content_type => 'text/plain', charset => 'utf-8', encoding => 'base64', }, body => "メールのテスト送信です。", ); my $sender = Email::Send->new({ mailer => 'Gmail', mailer_args => [ username => $config->{username}, password => $config->{password}, ] } ); $sender->send($email);
Email::MIMEのattribute設定があるおかげでhtml形式のメールなども送れる。
本文もオブジェクトのままで値を渡せるのでgood!
参照先は以下から
モダンにGmailからメール送信 - hnwの日記