| |
cumaさん、こんばんは。
>以前、たまがわさんから振り分け条件を参照するマクロを提供頂いた
>ことがありました。
>現在選択中のフォルダに対して振り分けルールがあれば、マクロがそれを
>テキストファイルとして見せてくれるマクロです。
以下のスレッドのマクロですね。
http://www.maruo.co.jp/turukame/2/x06777_.html#6777
>膨大な振り分けルールから目的の部分を簡単に探して編集するよい案は
>無いものでしょうか？
上記のマクロにちょっとだけ手を加えてみました。（山紫水明さんから名案マク
ロが提供されていますので、すでに目的は達せられていると思いますけど、ご参考
まで）
このマクロは、鶴亀本体でフォルダを選択して実行すると、そのフォルダへ移動
するかコピーする設定になっている振り分け条件の名前の頭に「■」を印としてつ
けるというものです。
あとは、通常通り「アカウントの設定」内の「メールの振り分け」から、名前の
頭に「■」がついている振り分け設定を探して修正すればいいです。
なお、マクロを実行するたびに、いったんすべての「■」を消してから付加しま
すので、実行するたびに「■」が増殖していくということはないです。
filter.txtを書き換えていますが、書き換え前のものはfilter.$$$という名前で
バックアップしていますので、万が一不都合が生じたら手作業で戻してください。
// marker.mac
//
loaddll "tkinfo.dll";
$CF = dllfuncstr("CurrentFolder");
if ($CF == "") endmacro;
if (strstr($CF, "受信") == 0) $CF = rightstr($CF, strlen($CF) - 5);
else $CF = "\\" + $CF;
#i = 0; #j = strlen($CF);
while (#i < #j) {
if (midstr($CF, #i, 1) == "\\") {
$CF = leftstr($CF, #i) + "\\\\\\" + rightstr($CF, #j - #i);
#i = #i + 3; #j = #j + 3;
}
#i = #i + 1;
}
$Path = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount") + "\\filter";
#n = dllfunc("NewMail");
#n = dllfunc("SwitchHeaderView", 0);
if (dllfunc("IsOrikaeshi")) #n = dllfunc("SwitchOrikaeshi");
if (overwrite) overwriteswitch;
selectall; delete;
insertfile $Path + ".txt";
saveas $Path + ".$$$";
replaceallfast "^■\\f.+", "\\1", regular;
gofiletop;
while (1) {
searchdown "^\\t→.+\"" + $CF + "\"に", regular;
if (!result) break;
golinetop;
while (1) { up; if (code != 0x09) break; }
insert "■";
searchdown "^\\t→.+\"" + $CF + "\"に", regular;
}
saveas $Path + ".txt";
exit;
|
|