| |
今さらになりますが、オプション追加しなくても、「送受信の開始直前」の所
にマクロを登録することでも目的のことが実現出来ました。
マクロの内容としては以下のような内容になります。「未送信メールの送信」
の時だけマクロが機能するような形に作ってあります。
マクロの動作としては、「検索して一覧作成」を実行する物じゃなくて、送信
したメール（のうちの１通）を秀丸メール本体ウィンドウ上で探して選択するっ
て動作になってますけど、そういうのでどうでしょうか。
「検索して一覧作成」にするマクロの方がいいとか、あるいは２通以上送信し
た場合はそうするとかってことも可能です。
--------------------マクロ内容------------------------------
loaddll "tkinfo.dll";
#command = dllfunc("GetTransmitCommandCode");
if( #command != 40059 ) {
endmacro;
}
$account = dllfuncstr("CurrentAccount");
#unsent = dllfunc("GetFolderMailCount", "", "未送信");
if( #unsent == 0 ) {
endmacro;
}
$prevfolder = dllfuncstr("CurrentFolder");
#n = dllfunc("SelectFolder", "", "未送信");
if( dllfunc("IsThreadView") ) {
#n = dllfunc("SetThreadView", 0);
}
#n = dllfunc("SetMailIndex", 0);
$messageid = dllfuncstr("CurrentHeader", "Message-Id");
if( leftstr($messageid,1) == "<" ) {
$messageid = midstr($messageid, 1);
}
if( rightstr($messageid,1) == ">" ) {
$messageid = leftstr($messageid, strlen($messageid) - 1);
}
$messageid = dllfuncstr("YenEncode", $messageid);
#n = dllfunc("SendRemain");
$packPrev = dllfuncstr("GetFindPack");
$pack = "(\"" + $messageid + "\", casesense, word, target=person), " +
"messageidtarget=messageid, subfolder=1,inmail=2,hilight=0";
#n = dllfunc("SetFindPack",$pack);
message $pack;
#n = dllfunc("SelectFolder", "", "");
#hit = dllfunc("FindDown");
#n = dllfunc("SetFindPack", $packPrev);
if( #hit ) {
//OK
} else {
//見つからない
message "送信したメールがどこに行ったか行方不明です。";
}
|
|