| |
ダウンロード済みメールをすべて削除する、みたいな操作が一発で出来たらい
いかなぁという風には思いました。
他には、「ダウンロードまだメールを一括ダウンロードする」とかもあったら
いいかもしれませんが…。
やるしたら、何かのボタンを押した時にメニューが出てきて、そこで選択した
ら即実行される、みたいなのになりますか…。
とりあえずですが、マクロを使ってやる方法があるのでそれを紹介させていた
だきます。それだと、マクロを実行するという、ただ本当に一発だけの操作にな
ります。
このマクロを実行する前提として、「アカウント毎の設定・上級者向け・その
他」の「リモートメール一覧をフォルダとして表示する」がONになってる必要が
あります。マクロからリモートメール関係処理をするにはどうしてもこれが必要
です。
----------------マクロ内容-----------------------------------------
loaddll "tkinfo.dll";
$account = dllfuncstr("CurrentAccount");
if( $account == "" ) {
endmacro;
}
$folder = dllfuncstr("CurrentFolder");
#n = dllfunc("SelectFolder", $account, "Remote");
if( #n == 0 ) {
message "リモートメール用フォルダが選択出来ません。" +
"「アカウント毎の設定・上級者向け・その他」の" +
"「リモートメール一覧をフォルダとして表示する」" +
"をONにしてください。";
endmacro;
}
#count = dllfunc("MailCount");
#i = 0;
#unread = 0;
while( #i < #count ) {
#n = dllfunc("SetMailIndex", #i);
if( ! dllfunc("IsUnread") ) {
#n = sendmessage( hidemaruhandle(0), 0x111, 40344, 0);
#unread = 1;
}
#i = #i + 1;
}
if( #unread == 0 ) {
message "ダウンロード済みメールはありませんでした。";
} else {
question "リモートメールを実行してもいいですか？";
if( result == yes ) {
#n = sendmessage( hidemaruhandle(0), 0x111, 40342, 0);
}
}
#n = dllfunc("SelectFolder", $account, $folder);
endmacro;
----------------マクロ内容おわり-----------------------------------
ということでどうでしょ？
|
|