| |
今ちょっと作ってみました。
作戦としては、特定アカウント配下のフォルダ１つ１つをGetNextFolder関数
でサーチして、そのフォルダの中に"hot"のメール（新着メール）があるかどう
か調べて、あるなら重複チェックを実行する、みたいな処理になります。
$account = "マイアカウント";
となってる所を目的のアカウントに変更すれば、そのまま使えると思います。
loaddll "tkinfo.dll";
if( dllfunc("RecvMailCountShow") == 0 ) {
endmacro;
}
$accountOrigin = dllfuncstr("CurrentAccount");
$folderOrigin = dllfuncstr("CurrentFolder");
$account = "マイアカウント";
$folder = "受信";
while(1) {
if( dllfunc("GetFolderMailCount", $account, $folder, "hot") != 0 ) {
call CheckDuplication $account, $folder;
}
$next = dllfuncstr("GetNextFolder", $account, $folder);
#x = strstr( $next, "\\" );
$accountNext = leftstr( $next, #x );
$folderNext = midstr( $next, #x + 1, 999 );
if( $accountNext != $account ) {
break;
}
$folder = $folderNext;
}
#n = dllfunc("SelectFolder", $accountOrigin, $folderOrigin);
endmacro;
CheckDuplication:
#n = dllfunc( "SetDuplicationCheckOption", "checkdate+checkbody"+
"+checkmailtype+prioritymarks+prioritynotunread+priorityattach"+
"+prioritybig" );
#n = dllfunc("CheckDuplication", "batch+hotonly"
, $$1, $$2 );
return;
|
|