|
練習のつもりで作ってみました(失礼)。
ごみ箱へ移動するようにしていますが、完全に削除したいなら、
Delete関数で出来ると思います。
loaddll "TKInfo.dll";
#n = dllfunc("DisableDraw", 1);
#n = dllfunc("SelectAllMail");
#count = dllfunc("SelectedMailCount");
if( #count == 0 ) {
endmacro;
}
#n = dllfunc("LockSelection");
while(1) {
#n = dllfunc("EnumSelection", 1);
if( #n == 0 ) {
break;
}
#m = dllfunc("GetMailFlag","mark");
if( #m == 0){
#o = dllfunc( "Move", "", "ゴミ箱" );
}
}
#n = dllfunc("UnlockSelection", 1);
#n = dllfunc("EnableDraw");
endmacro;
実はヘルプからのコピペだらけです(汗)。
|
|