読者です 読者をやめる 読者になる 読者になる

end0tknr's kipple - 新web写経開発

http://d.hatena.ne.jp/end0tknr/ から移転します

Email::Stuffer for perl によるメール送信

とりあえず?送信するだけであれば、以下の通り。

※encoding等のメールヘッダは、どのように指定するの?
※Email::Senderへの依存が大きいようなので、そのまま?Email::Senderを使っては?
と思いますが、とりあえず...

#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
use Email::Stuffer;
use Email::Sender::Transport::SMTP::TLS;
use Data::Dumper;


main();

sub main {

    my $msg_body =<<EOF;
これは、テストです。

Email::Stuffer と Email::Sender::Transport::SMTP::TLS における
機種依存文字のテストです。

アイウエオ
ガギグゲゴ
㈱ 郄 粼
① ②
EOF

my $smtp = Email::Sender::Transport::SMTP::TLS->new(
    host => 'smtp.gmail.com',
    port => 587,
    username => 'ないしょ@gmail.com',
    password => 'ないしょ'
   );
# gmailでsmtpするなら、アプリ専用passwdを発行しましょう
# https://security.google.com/settings/security/apppasswords

    Email::Stuffer
            ->text_body($msg_body)
            ->subject('TEST - Email::Stuffer')
            ->from('ないしょ@gmail.com')
            ->transport( $smtp )
            ->to('ないしょ')
            ->send_or_die;

}

1;