| |
改変マークが付いてしまうのは・・・・DeleteAttachがそういう仕様になってるみ
たいでした。
マクロ改良してみました。SetMailFlagでフラグを0にしています。
loaddll "tkinfo.dll";
#n = dllfunc("SetJapaneseCodePageMode", 1);
#count = dllfunc("SelectedMailCount");
if( #count == 0 ) {
message "メールを選択してから実行してください。";
endmacro;
}
question "現在選択してるメール（" + str(#count) + "通)のHTMLメール部分を
すべて削除します。元に戻すことは出来ません。よろしいですか？";
if( result != yes ) {
endmacro;
}
#n = dllfunc("DisableDraw");
#n = dllfunc("LockSelection");
while(1) {
#n = dllfunc("EnumSelection", 1);
if( #n == 0 ) {
break;
}
$html = dllfuncstr("CurrentHeader", "X-Html");
if( $html != "" ) {
#n = dllfunc("DeleteAttach", $html, 1);
#n = dllfunc("SetMailFlag", "altered", 0);
}
}
#n = dllfunc("UnlockSelection", 1);
#n = dllfunc("EnableDraw");
|
|