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の日記