|
In-Reply-To:も付けた方がいいかも。
loaddll "tkinfo.dll";
while( dllfunc( "SelectRecvMail" ) ) {
$s = dllfuncstr("CurrentHeader", "Precedence:");
$s = dllfuncstr("ToLower", $s);
if( $s != "bulk" && $s != "junk" && $s != "auto" ) {
$from = dllfuncstr("CurrentHeader", "Reply-To");
if( $from == "" ) {
$from = dllfuncstr("CurrentHeader", "From");
}
$subject = dllfuncstr("CurrentHeader", "Subject");
$messageid = dllfuncstr("CurrentHeader", "Message-Id");
#n = dllfunc("SetQuietMode", 1);
#n = dllfunc("NewMail");
#n = dllfunc("SetHeader", "To", $from);
#n = dllfunc("SetHeader", "Subject"
, "不在応答: " + $subject );
#n = dllfunc("SetHeader", "Prefereces", "auto" );
#n = dllfunc("SetHeader", "In-Reply-To", $messageid);
gofiletop;
beginsel;
gofileend;
delete;
insert "ただいま不在です。\n";
#n = dllfunc("SendLater");
#handle = hidemaruhandle(0);
#n = dllfunc("SetMainWndTop");
closehidemaruforced #handle;
}
}
とか。
|
|