| |
>選択フォルダ内のメールのうちマーク付けられていないものを削除するマクロを作
>りたいのですがよろしくお願いします
シンプルにこんな感じかな。
ゴミ箱に入れる必要がないなら、
「#n = dllfunc( "Move", "", "ゴミ箱" );」を
「#n = dllfunc( "Delete", 1 );」にしてもいいかも。
実際試してないのであくまでもサンプルと言うことで。
---- sample.mac ----
loaddll "TKInfo.dll";
#IsThreadView = dllfunc("IsThreadView");
if( #IsThreadView == 1 ){
#n = dllfunc("SetThreadView", 0);
if( #n == 0 ){
message("スレッド表示から一覧表示の切替に失敗しました");
endmacro;
}
}
#cnt = dllfunc("MailCountAll");
#idx = #cnt - 1;
while( #idx >= 0 ){
#n = dllfunc("SetMailIndex", #idx);
#marked = dllfunc( "IsMarked" );
if( #marked == 1 ){
//message("マークされてます");
} else {
#n = dllfunc( "Move", "", "ゴミ箱" );
}
#idx = #idx -1;
}
#n = dllfunc("SetThreadView", #IsThreadView);
--------------------
|
|