Mail::Webmail::Gmail日本語対応

Perl

簡単にできた。



my $gmail = Mail::Webmail::Gmail->new( username => 'ユーザ名', password => 'パスワード' );

$Mail::Webmail::Gmail::USER_AGENT = "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7";

$gmail->send_message(

	to => '送り先',

	subject => 題名,

	msgbody => メッセージ

);

  • USER_AGENTを変えること
  • 題名とメッセージはutf8

の２点ができていないと文字化けします。

PlaggerではGmailの送信にNet::SMTP使ってるんですね。
速度的にはどっちがはやいんだろうか？

10/19追記、Publish::Gmailは任意のSMTPサーバからGmailへメール送信するという意味なんですね。ってことは、Publish::FromGmailをMail::Webmail::Gmailで作るというのもありですね。
10/19追記2　ちゃんと

Content-Type: text/plain; charset=ISO-2022-JP; format=flowed
Content-Transfer-Encoding: 7bit

でメールしてくれます。
10/23追記 本文にバイナリ文字列が入るとutf-8になる模様（日本語として判断できなかったのかな）
10/23追記 パラメータ付きURLを文面に入れるとURL部分がおかしくなる模様
http://example.com/test.cgi?aaa=1&bbb=2
が
http://example.com/test.cgi?aaa=1%26bbb=2
となります。