「終了時にゴミ箱を空にする」動作についNo.08510
ながは さん 04/10/18 15:50
 
ながはです。

会議室を検索してみましたが、該当と思われるものにヒットしませんでしたので、こ
こでおたずねします。

現在のバージョン(3.67β11)ではゴミ箱ファイルで削除動作をするとログを含めて完
全に削除するオプションを確認してくれますが、全般的な設定・基本にある、「鶴亀
メール終了時にゴミ箱を空にする」を有効にした際は、ログまでは削除しないようで
す。

ワタクシの希望動作は、「鶴亀メール終了時にゴミ箱にいるメールはログを含めて完
全に削除する」ということなのですが、仕様変更・マクロ活用で希望の動作は実現可
能なのでしょうか?

仕様変更(オプション追加?)などでは、使用者の環境・使い方でいろいろ問題もあろ
うと思いますので、マクロでそれが出来ればよいのですが、可能であればそのマクロ
をどなたか作って頂けませんでしょうか?

くだんのマクロを自動起動の「鶴亀メール終了時」に登録すればよいのでは?という
あたりまでは想像できるのですが・・・

宜しく御願いします。

[ ]
RE:08510 「終了時にゴミ箱を空にする」動No.08512
秀まるお さん 04/10/18 16:50
 
 マクロでよければ、以下のマクロになります。テストもしたのでたぶん大丈夫
です。

    loaddll "tkinfo.dll";
    $prevacc = dllfuncstr("CurrentAccount");
    $prevfolder = dllfuncstr("CurrentFolder");
    #n = dllfunc("DisableDraw", 1);
    #i = 0;
    while(1) {
        $acc = dllfuncstr("Account", #i);
        if( $acc == "" ) break;
        #n = dllfunc("SelectFolder", $acc, "ゴミ箱");
        if( dllfuncstr("CurrentFolder") == "ゴミ箱" ) {
            if( dllfunc("MailCount") != 0 ) {
                #n = sendmessage( hidemaruhandle(0), 0x0111, 40008, 0);
                #n = dllfunc("Delete", 2);
            }
        }
        #i = #i + 1;
    }
    #n = dllfunc("SelectFolder", $prevacc, $prevfolder);
    #n = dllfunc("EnableDraw");

[ ]
RE:08512 「終了時にゴミ箱を空にする」動No.08513
ながは さん 04/10/18 19:07
 
ながはです。
秀まるお 様


> マクロでよければ、以下のマクロになります。テストもしたのでたぶん大丈夫
>です。

大変ありがとうございます。
希望の動作となりました。
また、テストしてみたところ全般的な設定・基本の「鶴亀メール終了時にゴミ箱を空
にする」をオフにする必要があるようです。

ながは


[ ]