| |
鳩です。こんにちは。
再送テンプレートの中で使っているDeleteSenderInRecipients.macを
書き忘れました。
確か秀丸さんに作っていただいたものです。
//----- DeleteSenderInRecipients.mac------
loaddll "tkinfo.dll";
$from = dllfuncstr("CurrentHeader","From");
$from = dllfuncstr("SetEmailOnly", $from);
$from = dllfuncstr("ToUpper", $from);
#i = 0;
// message $from;
#c = dllfunc("CountCurrentHeader", "Cc");
while( #i < #c ) {
$in = dllfuncstr("CurrentHeader2", "Cc", #i);
#x = 0;
$out = "";
#first = 1;
#updated = 0;
while( 1 ) {
$one = dllfuncstr("GetEmailList", $in, #x);
if( $one == "" ) {
break;
}
$email = dllfuncstr("SetEmailOnly", $one);
$email = dllfuncstr("ToUpper", $email);
// message $email;
if( $email == $from ) {
// これを削除
#updated = 1;
} else {
if( #first ) {
#first = 0;
} else {
$out = $out + ", ";
}
$out = $out + $one;
}
#x = #x + 1;
}
if( #updated ) {
#n = dllfunc("SetHeader2", "Cc", $out, #i);
}
#i = #i + 1;
}
end: endmacro;
//-----------------------------------------
|
|