| |
以下のマクロを使えば同じSubjectのメールを削除することが出来ます。
こういうのでいいんじゃないかと思います。安全のためにquestion文を入れま
したけど、実際にはそれを取って使ってください。
loaddll "tkinfo.dll";
#sort = dllfunc("SortMethod");
#n = dllfunc("SetSortMethod", 1);
#c = dllfunc("MailCount");
#i = 0;
while( #i < #c - 1 ) {
#n = dllfunc("SetMailIndex", #i);
$text1 = dllfuncstr("CurrentHeader", "Subject");
$id1 = dllfuncstr("CurrentHeader", "Message-Id");
#i2 = #i + 1;
while( #i2 < #c ) {
#n = dllfunc("SetMailIndex", #i2);
$text2 = dllfuncstr("CurrentHeader", "Subject");
$id2 = dllfuncstr("CurrentHeader", "Message-Id");
if( $text1 == $text2 && $id1 != $id2 ) {
question "削除しますか？";
if( result == yes ) {
#n = dllfunc("Delete", 1);
#c = #c - 1;
} else {
endmacro;
}
} else {
break;
}
}
#i = #i + 1;
}
#n = dllfunc("SetSortMethod", #sort);
|
|