#/usr/lib/sendmail;
my $sendmail = "/usr/sbin/sendmail";
#宛先アドレス
my $to = '11111/@gmail.com';
#送信元アドレス
my $from = "11111/@gmail.com";
# ファイルハンドルをsendmailへ紐付け
open(MAIL,"| $sendmail -t");
# sendmailへコマンドの出力
print MAIL "To: $to/n";
print MAIL "From: $from/n";
print MAIL "Subject: $subject/n";
print MAIL "/n";
print MAIL "$message/n";
close(MAIL);
print "<tr><td>送信が成功しました</td></tr>"."/n";
print "<tr><td>ご協力有難うございました</td></tr>"."/n";
Perl 发邮件
最新推荐文章于 2017-11-15 16:04:00 发布