|
検索結果の一覧上で、マクロの処理として、
#n = sendmessage( hidemaruhandle(0), 0x0111, 40008, 0); //すべて選択
ってのをやってるんですが、それがうまく働いてないってことなのかと思います。
例えば上記命令の後に
endmacro;
って1行を入れて、たしかに「すべて選択」が実行されてるかどうか1回確認してみ
てほしいです。
もし「すべて選択」が機能してないようでしたら、例えば以下のマクロは「Home
キー押してShift+Endキーを押す」って方式ですべて選択するマクロになりますが、
それでどうでしょうか。
----------------------------------------------------------------------------
//同じメールをすべてのアカウントから検索して削除するマクロ
loaddll "tkinfo.dll";
#n = dllfunc("AutoRestoreFindPack");
$messageid = dllfuncstr("CurrentHeader", "Message-Id");
if( $messageid == "" ) {
message "現在選択してるメールのMessage-Idが不明です。";
endmacro;
}
#x = strstr( $messageid, "<" );
if( #x >= 0 ) {
$messageid = midstr( $messageid, #x + 1 );
}
#x = strstr( $messageid, ">" );
if( #x > 0 ) {
$messageid = leftstr( $messageid, #x );
}
$messageid = dllfuncstr("YenEncode", $messageid);
#n = dllfunc("SetFindPack", "(\"" + $messageid + "\", casesense, word, t
arget=person), messageidtarget=messageid");
#n = dllfunc("DoGrep", "", "受信+送信済み+ユーザー", 0 );
#n = dllfunc("SetGrepWndTop");
//#n = sendmessage( hidemaruhandle(0), 0x0111, 40008, 0); //すべて選択
//キー操作で「すべて選択」してみる?
#wnd = dllfunc("GrepListWnd");
#n = dllfunc( "SimulateKeyStroke2", #wnd, 0x24,0,0,0 );
#n = dllfunc( "SimulateKeyStroke2", #wnd, 0x23,1,0,0 );
//削除する処理
//#n = dllfunc("Delete", 0 );
//ゴミ箱に移動する処理
question "選択したメールをゴミ箱に移動してもいいですか?";
if( result == yes ) {
#n = sendmessage( hidemaruhandle(0), 0x0111, 40010, 0); //メール
を削除する
}
#n = dllfunc("SetMainWndTop");
#n = dllfunc("CloseGrepWnd");
|
|