Created by
sironekotoro
| use 5.012;
use warnings;
use utf8;
use Data::Dumper;
binmode STDOUT, ':encoding(UTF-8)';
# メールは送れるみたいなので、スクリプトからの送信用
# アカウントを用意する
# 安全性のところを下げる
# 用意ができたら、twitterのあかうんともとる
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP::TLS;
use Encode;
my $USERID = '';
my $PASSWORD = '';
my $MAILADDRESS = '';
my $ATESAKI = '';
my $sender = Email::Sender::Transport::SMTP::TLS->new(
host => 'smtp.gmail.com',
port => 587,
username => $USERID,
password => $PASSWORD,
);
use Email::MIME;
my $email = Email::MIME->create(
header => [
From => $MAILADDRESS,
To => $ATESAKI,
Subject => encode( 'MIME-Header-ISO_2022_JP', "テストメール" ),
],
attributes => {
content_type => 'text/plain',
charset => 'ISO-2022-JP',
encoding => '7bit',
},
body => encode( 'iso-2022-jp', "テスト" ),
);
sendmail($email , {transport => $sender});
|