メールアドレス検索のカスタマイズ - 秀丸メール情報交換会議室 - スレッド40115, 2011/02/27

メールアドレス検索のカスタマイズ

kennykondo さん　11/02/27 12:21

お世話になっております。

ツールバーにあるメールアドレス検索が非常に便利ですが、検索対象を 180日以内
のメールに限定したいのです。

ツールバーをクリックすると (元々の物と同じように) メールアドレスが入った状態
でメールアドレス検索ウインドウが立ち上がり、OKをオスだけで 180日以内でそ
のメールアドレス対象メール一覧がでるようにしたいのですが、なにか方法はありま
せんでしょうか?

なにとぞよろしくおねがいします。

RE:40115 メールアドレス検索のカスタマイ

秀まるお2 さん　11/02/27 14:19

　メールアドレス検索のダイアログボックスに追加の条件が指定出来たらいいの
かもしれませんけども、とりあえずマクロでやるとしたら以下のようなマクロに
なります。

loaddll "tkinfo.dll";
$s = input( "検索するメールアドレス？" );
if( $s == "" || (!result) )endmacro;
#n = dllfunc( "SetFindPack",
"(\""+$s+"\",target=person), subfolder=1, persontarget=all, flag=tr
ansmit=180日前-指定なし" );
#n = dllfunc("DoGrep", "", "");

　それか、メールアドレス検索の代わりに「検索して一覧作成」を実行して、そ
この「対処(X):」の所を「（メールアドレス検索）」に指定してやれば、追加の
条件も同時に指定しつつメールアドレス検索が実行出来ます。その方法でもいい
んじゃないかと思います。

RE:40118 メールアドレス検索のカスタマイ

kennykondo さん　11/02/28 12:39

ありがとうございました。

マクロ試してみて確かに検索は出来るのですが、秀丸メールでそのとき選択してい
るメールのメールアドレスが自動には入力されず、自分で入力しなくてはいけない
ようです。

最初からあるメールアドレス検索の利点はそれがないことであり、それと同じ機
能で180日以内に限定したツールバーを置きたいのです。

何かいい方法があれば是非教えてください。

RE:40127 メールアドレス検索のカスタマイ

秀まるお2 さん　11/02/28 13:55

　カーソル位置のメールアドレスを取り込むようにすると、以下のようなマクロ
になります。それでどうでしょうか？

loaddll "tkinfo.dll";
if( selecting ) {
message "selecting";
$s = gettext( seltopx, seltopy, selendx, selendy );
} else if( (!browsemode) && ((colorcode & 0x1F) == 12) ) {
message "url";
copyurl;
beginclipboardread;
$s = getclipboard;
} else {
message "from";
$s = dllfuncstr("CurrentHeader","From");
$s = dllfuncstr("SetEmailOnly", $s);
}
$s = input( "検索するメールアドレス？", $s );
if( $s == "" || (!result) )endmacro;
#n = dllfunc( "SetFindPack",
"(\""+$s+"\",target=person), subfolder=1, persontarget=all,flag=tra
nsmit=180日前-指定なし" );
#n = dllfunc("DoGrep", "", "");

RE:40128 メールアドレス検索のカスタマイ

秀まるお2 さん　11/02/28 14:01

　すみません。中に混じってるmessage文はテスト用に入れた物なので、それは
削除する必要がありまたし。

> message "selecting";

　とかですけども。

RE:40129 メールアドレス検索のカスタマイ

kennykondo さん　11/03/07 11:47

ありがとうございました。綺麗に出来大変便利になりました

ありがとうございました。

RE:40129 メールアドレス検索のカスタマイ

kennykondo さん　11/03/12 13:13

お世話になっております。

ここで教わったマクロ快適に使っていましたが、一点改善したいのでよろしくおねが
いします。

本来のメールアドレス検索は

受信メールの選択時は送信元のメールアドレスを

そう信(済み)メール選択時は宛先を

自動入力してくれていましたが、

このまくろは

そう信(済み)メール選択時に送信元(私)のメールアドレスを自動入力するようです。

何とぞアドバイスよろしくおねがいします。

RE:40193 メールアドレス検索のカスタマイ

Iranoan さん　11/03/13 00:14

　kennykondo さん今日は、一ユーザの Iranoan です。
> そう信(済み)メール選択時に送信元(私)のメールアドレスを自動入力するようです。
　秀まるおさんのマクロで、
> $s = dllfuncstr("CurrentHeader","From");
> $s = dllfuncstr("SetEmailOnly", $s);
の部分がありますよね。
この部分に、次の要領で、9 行追加します。
//------------------------------------------------------------
#type = dllfunc( "MailType" );
if( #type == 3 )$s = "From";
else if( #type <= 6 && #type >= 4 )$s = "To";
else if( #type <= 2 ){
message "メールが選択されていないか保存されていない?\n"
+"若しくは未定義の値 Ver.5.70 以降に何か追加された?";
freedll;
endmacro;
}
$s = dllfuncstr("CurrentHeader",$s);//この 2 行は
$s = dllfuncstr("SetEmailOnly", $s);// そのままで良い

RE:40194 メールアドレス検索のカスタマイ

Iranoan さん　11/03/13 14:45

　今日は、一ユーザの Iranoan です。
　自己フォローです。
> $s = dllfuncstr("CurrentHeader",$s);//この 2 行は
> ^^
この行も書き換えていました。

RE:40196 メールアドレス検索のカスタマイ

秀まるお2 さん　11/03/13 17:28

　一応僕も作ってしまったのでコメントしておきますと、以下のマクロとなりま
した。

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=1, persontarget=all,flag=tra
nsmit=180日前-指定なし" );
#n = dllfunc("DoGrep", "", "");

RE:40196 メールアドレス検索のカスタマイ

kennykondo さん　11/03/21 17:06

ありがとうございました。

試してみて出来ました。感謝します。

RE:40197 メールアドレス検索のカスタマイ

kennykondo さん　11/03/21 17:07

ありがとうございました。より便利になりました。感謝します。