Becky! ユーザにも嫌がらせをする

outlookユーザとBecky!ユーザに嫌がらせをする。

今日は次の三行をヘッダに足してみた。
Priority: 1
X-Priority: 1
X-MSMail-Priority: High

一方、AL-Mail、Thunderbird 共に、X-Priority はデフォルトでは実装していないので動作しない。AddIn扱いである。正しい実装だ。

＝＝＝＝以下perlスクリプト
#!/usr/bin/perl

$from = "nitobi\@saigyo.org";
$to = "nitoba\@saigyo.org";
$subject = "zzzzzzzzzzzzzz";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon += 1;
$dt = "$mday $mon $year 0:0 +9:0";

open(MAIL,"|/usr/bin/nkf -j | /usr/sbin/sendmail -t");

print MAIL "From: $from\n";
print MAIL "To: $to\n";
print MAIL "Subject: $subject\n";
print MAIL "Priority: 1\n";
print MAIL "X-Priority: 1\n";
print MAIL "X-MSMail-Priority: High\n";
print MAIL "Importance: high\n";
print MAIL "X-Message-Flag: =?iso-2022-jp?B?GyRCJDQ2KE5PJCo0aiQkJDckXiQ5GyhC?=\n";
print MAIL "Reply-By: $dt\n";
print MAIL "\n";

print MAIL "むふふ。\n\n";
print MAIL "------------------------------------------------- \n";
print MAIL " 嫌がらせじゃい。\n";
print MAIL "------------------------------------------------- \n\n";

close(MAIL);