| |
全アカウントで実行するなら、以下のようになります。ただ、一発で削除する
動作にはならないので、実用にならないかもしれません。
loaddll "tkinfo.dll";
$a = dllfuncstr("CurrentAccount");
$f = dllfuncstr("CurrentFolder");
#i = 0;
while(1) {
$a2 = dllfuncstr("Account", #i);
message $a2;
if( $a2 == "" ) break;
#n = dllfunc("SelectFolder", $a2, "ゴミ箱" );
if( dllfunc("MailCount") != 0 ) {
#n = sendmessage( hidemaruhandle(0), 0x0111, 40008, 0);
#n = sendmessage( hidemaruhandle(0), 0x0111, 40211, 0);
}
#i = #i + 1;
}
#n = dllfunc("SelectFolder", $a, $f);
endmacro;
なんとかその「削除したらサーバーからも削除」に対応したいと思いますが…。
Message-Idで比較する方式でよければ何とか対応できそうな気もします。方式を
考えます。
|
|