ML配信メールの末尾PRを削除したいNo.27846
akira6809 さん 06/06/17 02:37
 
既出の可能性が高そうですが、上手く見つけられなかったので
質問させてください。(^^;

ML から配信されるメールで、次のように末尾にPRが入っています。

〜本文〜
--[PR]---- 〜 ----
xxxx
---- 〜 ----[PR]--
■ 〜.jp
[EOF]

これをメールを開いた状態でマクロ処理できるのかな?と
試しに次のマクロを作ってみました。

    readonlyswitch;
    browsemodeswitch;
    gofiletop;
    searchdown "^--\\[PR\\]--" , regular, nocasesense, nohilight;
    if (result) {
        beginsel;
        gofileend;
        delete;
        save;
    }
    browsemodeswitch;
    readonlyswitch;

マクロ実行すると、末尾 PR は削除できますが、何故かメール保存
してくれません。根本的に使い方が間違ってるのでしょうか?

また、可能であれば受信時に振分けと連動して自動削除して
改変マーク無しで取り込みたいです。
このような事は可能なのですか?

[ ]
RE:27846 ML配信メールの末尾PRを削除したNo.27847
Iranoan さん 06/06/17 12:36
 
 akira6809 さん今日は、Iranoan です。
 念の為お断りしておくと、開発者とは何の関わりも無い単なる一ユーザです。
> これをメールを開いた状態でマクロ処理できるのかな?と
> 試しに次のマクロを作ってみました。
 このマクロは、本体で実行したのでしょうか? もしそうなら、
BeginEditMail 関数などを使わないと駄目です。またエディタ・ウィンドウで
開いたのであっても、最初の
>     readonlyswitch;
>     browsemodeswitch;

if( readonly )readonlyswitch;
if( browsemode )browsemodeswitch;
とした方がよいでしょう。

> 受信時に振分けと連動して自動削除
 不可能ではないですが、受信した全てのメールに対してマクロを実行する必
要があるので、あまり現実的でないと思います。
 ##実現するには、FindDown や SetFindPack 関数などを使う必要がでてくる
と思います。

> 改変マーク無しで取り込みたいです。
 SetMailFlag 関数を使えばよいです。

 P.S 秀丸メールのマクロを作成されるなら、tkinfo.hlp も一読された方が
よいです。

[ ]
RE:27847 ML配信メールの末尾PRを削除したNo.27848
tibirin さん 06/06/17 14:55
 
こんにちは、tibirinです。

>マクロ実行すると、末尾 PR は削除できますが、何故かメール保存
>してくれません。根本的に使い方が間違ってるのでしょうか?

以下の様にマクロを変更すれば本体上で動作すると思います。

loaddll "tkinfo.dll";
#r = readonly;
#b = browsemode;
if (#r) readonlyswitch;
if (#b) browsemodeswitch;
gofiletop;
searchdown "^--\\[PR\\]--" , regular, nocasesense, nohilight;
if (result) {
    beginsel;
    gofileend;
    delete;
    save;
}
#n = dllfunc("SaveEditMail", 0, 1 );
if (#r) readonlyswitch;
if (#b) browsemodeswitch;
endmacro;

>> 受信時に振分けと連動して自動削除
> 不可能ではないですが、受信した全てのメールに対してマクロを実行する必
>要があるので、あまり現実的でないと思います。
> ##実現するには、FindDown や SetFindPack 関数などを使う必要がでてくる
>と思います。

Iranoanさんもおっしゃられている様にご自身で作成されるとなると
かなり難しいマクロになりそうなので
マクロライブラリに登録されている、山紫水明さんの
「スポンサー欄などの定型行を削除するマクロ  Ver.1.02」
を使用するのが簡単な気がします。

では。

[ ]
RE:27846 ML配信メールの末尾PRを削除したNo.27858
akira6809 さん 06/06/18 19:13
 
Iranoanさん、tibirinさん、返信ありがとうございます。

tkinfo.help と山紫水明さんのマクロ見てみます〜。(^^)ノ

[ ]
RE:27848 ML配信メールの末尾PRを削除したNo.27859
akira6809 さん 06/06/18 19:42
 
先に山紫水明さんのマクロを試してみたところ、そのままで利用できました。
ライブラリは1ページ目だけチェックして次のページ見てませんでした。(^^;

そんなに大量のメールを受信している訳じゃないので
マクロの自動起動でも全く問題なさそうです。

tibirin さん&山紫水明さん、ありがとうございました。

[ ]