| |
ここの会議室の40115番発言その他でkennykondoさんからいろいろ質問いただ
いて、それの関係でいろいろマクロを作ったりしてますが、そういう作戦も参考
にしていただきたい所ではあります。
そちらの話に出ているのは、検索文字列自体は毎回入力するけども検索条件以
外の条件はいつも同じで検索したい場合に、それをマクロで実現する例をいくつ
かお返事してます。
とりあえず、ご要望のようなことをそのまんま実現するにはどうしたらいいか
と思ってマクロを作ってみたのが以下のマクロになります。
loaddll "tkinfo.dll";
#n = dllfunc("SetFindPack", "(\"\", word, target=person), persontarget=a
ll");
$folder = dllfuncstr("CurrentFolder");
#n = dllfunc("SelectFolder", "", "受信");
#n = sendmessage( hidemaruhandle(0), 0x111, 40066, 0 );
#n = dllfunc("SelectFolder", "", $folder );
このマクロを実行すると、メールアドレス検索相当の条件でダイアログボック
スが出てきます。ただし、「検索対象フォルダ」の所は思った通りにならない欠
点はあります。
一般的には、「検索して一覧作成」の左上のシステムメニュー中の履歴からよ
く使う物を常駐させるとか、あるいはkennykondoの所の例にあるように、特定条
件での検索をマクロ化してしまうとかって作戦がいいんじゃないかと思います。
kennykondoさんの所にあるようなマクロでやるとしたら、以下のようなマクロ
になります。
loaddll "tkinfo.dll";
if( selecting ) {
$s = gettext( seltopx, seltopy, selendx, selendy );
} else if( (!browsemode) && ((colorcode & 0x1F) == 12) ) {
copyurl;
beginclipboardread;
$s = getclipboard;
} else {
if( dllfunc("GetMailFlag", "send") ) {
$s = dllfuncstr("CurrentHeader","To");
} else {
$s = dllfuncstr("CurrentHeader","From");
}
$s = dllfuncstr("SetEmailOnly", $s);
}
$s = input( "検索するメールアドレス？", $s );
if( $s == "" || (!result) )endmacro;
#n = dllfunc( "SetFindPack",
"(\""+$s+"\",target=person), subfolder=0, persontarget=all" );
#n = dllfunc("DoGrep", dllfuncstr("CurrentAccount"), "受信");
|
|