| |
何度もすみません。
ExportAll.macとは別に、DeleteAll.macってマクロを作ってそれで削除するな
ら、先ほどのマクロそのままで大丈夫なはずです。
そうじゃなくて、ExportAll.macを改造するとしたら、以下のようにして欲し
いです。
■１
message "エクスポート終了。";
endmacro;
のような箇所が２箇所あるので、そこを、
question "エクスポート終了。続けてメールを削除しますか？";
if( result == yes ) {
goto DeleteAll
}
endmacro;
のように直す。
■２
マクロの一番最後に以下の内容を追加する。
DeleteAll:
#n = dllfunc("SelectFolder", $currentAccount, "" );
if( #n == 0 ) endmacro;
question "現在選択してるアカウント配下のメールをすべて削除します。";
if( result != yes ) endmacro;
question "現在選択してるアカウント配下のメールをすべて削除します。\n\n" +
"最終確認のため、続行する場合は「いいえ」を押してください。";
if( result != no ) endmacro;
while (1) {
#n = dllfunc( "ExpandFolder", 1 );
#n = dllfunc("NextFolder");
if (#n == 0) {
break;
}
$account = dllfuncstr( "CurrentAccount" );
if ($account != $currentAccount) {
break;
}
$folder = dllfuncstr( "CurrentFolder" );
if ($folder == "未送信" || $folder == "草稿") continue;
#n = dllfunc("SetViewArea", 0);
#n = dllfunc("SelectAllMail");
#n = dllfunc("Delete", 1);
}
#n = dllfunc( "SelectFolder", $currentAccount, "" );
message "削除終了。";
endmacro;
ExportAll.macを改造する場合は、このような修正でないとダメかと思います。
テストする時は、間違って大事なメールを削除してしまわないように、一度バ
ックアップしてから実行することをお勧めします。大変危ないマクロですので。
|
|