添付ファイルの自動削除 - 秀丸メール情報交換会議室 - スレッド03992, 2001/11/21

添付ファイルの自動削除

かめきち さん　01/11/21 10:04

鶴亀は今年の4月から使っています。
最近マクロを組んでいろいろとやろうとしているのですが、添付ファイルを削除する
という関数はないのでしょうか？

要望は、あるメーラーのデフォルト設定でメールの内容とまったく同じ内容を添付フ
ァイルで送ってきてしまいます。それが、設定を変えられないためにみんなしてリッ
チテキストファイルを送ってくるのです。そこで、決まったファイル名の添付ファイ
ルが来た時には受信した時に削除してしまおうと考えたのです。

いい関数と、もしくはマクロがありましたらよろしくお願いします。

RE:03992 添付ファイルの自動削除

tnobu2 さん　01/11/21 10:46

>鶴亀は今年の4月から使っています。
>最近マクロを組んでいろいろとやろうとしているのですが、添付ファイルを削除す
>るという関数はないのでしょうか？
>
>要望は、あるメーラーのデフォルト設定でメールの内容とまったく同じ内容を添付
>ファイルで送ってきてしまいます。それが、設定を変えられないためにみんなして
>リッチテキストファイルを送ってくるのです。そこで、決まったファイル名の添付
>ファイルが来た時には受信した時に削除してしまおうと考えたのです。
>
>いい関数と、もしくはマクロがありましたらよろしくお願いします。

リッチテキストを添付するメーラーというは知らないんですが、添付
されているのはHTMLではないんでしょうか。

もしHTMLのメールであれば、「設定」メニューの「全般的な設定」の中で
「基本」－「詳細」の中に「HTMLメールのHTML部分は破棄する」という
項目があります。

もしそうではなく、本当にリッチテキストの添付ファイルならば、
このコメントは無視してください。

RE:03993 添付ファイルの自動削除

かめきち さん　01/11/21 11:00

>>要望は、あるメーラーのデフォルト設定でメールの内容とまったく同じ内容を添付
>ファイルで送ってきてしまいます。それが、設定を変えられないためにみんなして
>リッチテキストファイルを送ってくるのです。そこで、決まったファイル名の添付
>ファイルが来た時には受信した時に削除してしまおうと考えたのです。

>リッチテキストを添付するメーラーというは知らないんですが、添付
>されているのはHTMLではないんでしょうか。
>
>もしそうではなく、本当にリッチテキストの添付ファイルならば、
>このコメントは無視してください。

HTMLファイルではないです
HTMLファイルであれば単純でいいのですが、まったく同じ内容でリッチテキストが添
付されるのです…

RE:03994 添付ファイルの自動削除

tnobu2 さん　01/11/21 11:50

>>もしそうではなく、本当にリッチテキストの添付ファイルならば、
>>このコメントは無視してください。
>
>HTMLファイルではないです
>HTMLファイルであれば単純でいいのですが、まったく同じ内容でリッチテキストが
>添付されるのです…

失礼いたしました。

しかし、先程のコメントを書いた時点では知らなかったのですが、
OutlookなんかではHTMLでもリッチテキストと呼ぶようですね。

私にとってリッチテキストというのは、各社ワープロソフトの相互変換
をする時に用いられる中間的なファイル形式(.rtf)という認識しかあり
ませんでした。

RE:03994 添付ファイルの自動削除

ひろさん　01/11/21 12:05

　かめきちさん今日は、ひろです。
> 最近マクロを組んでいろいろとやろうとしているのですが、添付ファイルを削除する
> という関数はないのでしょうか？
　関数はありません。また態々関数を用意していただかなくても、
run "command.com /c \"" + $file + "\"";
// ^^^^^^^^^^^NT 系では、cmd.exe
の様に DOS のコマンドを利用したり、こちらで公開されている「秀まるおの
マクロサーバ」や「田楽サーバ/DLL」といった外部ツールで削除すればよい
と思います。

RE:03997 添付ファイルの自動削除

かめきち さん　01/11/22 10:39

ひろさん　こんにちは

ありがとうございます
やってみたいと思います

>　関数はありません。また態々関数を用意していただかなくても、
>run "command.com /c \"" + $file + "\"";
>// ^^^^^^^^^^^NT 系では、cmd.exe
>の様に DOS のコマンドを利用したり、こちらで公開されている「秀まるおの
>マクロサーバ」や「田楽サーバ/DLL」といった外部ツールで削除すればよい
>と思います。

RE:03997 添付ファイルの自動削除

かめきち さん　01/11/22 14:53

>　関数はありません。また態々関数を用意していただかなくても、
>run "command.com /c \"" + $file + "\"";

↑このやりかたで選択しているフォルダ内のある特定のファイルのみを削除するとい
うマクロを作りました。
ですが、メールを選択フォルダの一番上から順番に選択して処理をしているのでつら
そうです。なんとか画面に処理を出さないでできないものでしょうか。
選択しているフォルダのみに処理を限定しているのも、全フォルダを一気に処理した
ら止まってしまいそうだからです。

RE:04011 添付ファイルの自動削除

ひろさん　01/11/22 20:15

　かめきちさん今日は、ひろです。
> >run "command.com /c \"" + $file + "\"";
　そういえば、DOS のコマンドが書いていない。ファイルを消すなら、
run "command.com /c delete \"" + $file + "\"";
フォルダごと消すなら、
run "command.com deltree /c \"" + $file + "\"";
ですね。

> ですが、メールを選択フォルダの一番上から順番に選択して処理をしているのでつら
> そうです。なんとか画面に処理を出さないでできないものでしょうか。
　前回紹介した田楽 DLL を使うと良いでしょう。実際には、REMOVE という
DLL 関数を使います。ファイル名が解っているので、ENUMFILE, FINDNEXT を
使いたくなりますが、添付ファイルが問題となるリッチテキストだけでない
場合は、フォルダごと消すと不味いので、地道に一つづつやっていった方が
よいです。

RE:04011 添付ファイルの自動削除

秀まるお2 さん　01/11/22 21:55

　どういう条件で削除したいのかによりますが、例えば特定のファイル名だっ
たら削除するような処理ってことなら、例えば何かマクロや自動処理などの機
能を持ったファイル操作関係のソフトを使って、添付ファイル用のフォルダを
一括処理させるって作戦の方がいいと思います。

　メール内容に関係しているのなら、やはり１つ１つのメールをなめ回して削
除していくか、あるいはメール用に保存されているファイルを秀丸エディタで
開いて処理するような感じにでもするしか無いかと思います。

　あるいは、そもそもそういう処理をVisualBasicか何かで作ってしまうとか。

RE:04015 添付ファイルの自動削除

かめきち さん　01/11/26 09:03

>　どういう条件で削除したいのかによりますが、例えば特定のファイル名だっ
>たら削除するような処理ってことなら、例えば何かマクロや自動処理などの機
>能を持ったファイル操作関係のソフトを使って、添付ファイル用のフォルダを
>一括処理させるって作戦の方がいいと思います。
>
>　メール内容に関係しているのなら、やはり１つ１つのメールをなめ回して削
>除していくか、あるいはメール用に保存されているファイルを秀丸エディタで
>開いて処理するような感じにでもするしか無いかと思います。
>
>　あるいは、そもそもそういう処理をVisualBasicか何かで作ってしまうとか。

地道にメールを見ながら処理したいと思います。
＞ひろさん
田楽DLLも使ってみたいと思います

それともうひとつ、ファイルを削除したときにファイルがひとつしかなかった場合は、
添付ファイルがあったというヘッダ(X-Attach)を削除したいのですが無理ですか？

RE:04037 添付ファイルの自動削除

ひろさん　01/11/26 12:21

　かめきちさん今日は、ひろです。
> それともうひとつ、ファイルを削除したときにファイルがひとつしかなかった場合
>は、
> 添付ファイルがあったというヘッダ(X-Attach)を削除したいのですが無理ですか？
　本体では編集できないので、一旦エディタウィンドで開いてから各種検索
・編集系のコマンドを使って削除すれば良いです。

RE:04040 添付ファイルの自動削除

かめきち さん　01/11/26 14:21

こんにちは　ひろさん
たびたびありがとうございます

>　本体では編集できないので、一旦エディタウィンドで開いてから各種検索
>・編集系のコマンドを使って削除すれば良いです。
エディタウィンドで開くと言うのは鶴亀のメール閲覧画面を出すということですよね
そこで、エディタウィンドで開いてからファイル名を指定して検索して、その行を削
除しようとしたのですがさっぱり変化がありません。
メールのファイルを直接秀丸で開いて編集するのですか？手で開いて消してみたので
すが、鶴亀で開いた時にかってに書き換えたことでエラーになりました…
各種検索・編集系のコマンドというのは具体的にどれを使えばよさそうなのでしょうか
よろしくお願いします。

RE:04044 添付ファイルの自動削除

秀まるお2 さん　01/11/26 15:18

>エディタウィンドで開くと言うのは鶴亀のメール閲覧画面を出すということですよね
>そこで、エディタウィンドで開いてからファイル名を指定して検索して、その行を削
>除しようとしたのですがさっぱり変化がありません。

　添付ファイルが付いていた痕跡を消すには、

　－　エディタでメールを開く。
　－　ヘッダを「すべて表示」にする。
　－　「設定・編集を許可する」コマンドを実行する。
　－　目的のX-Attach:ヘッダを削除する。
　　　（削除するにはX-Attach:ヘッダの行全体（改行も含む）を選択して
　　　　から削除キーを押すなどしないと難しいです）
　－　「ファイル・保存」コマンドで保存する。

　という手順になります。

>メールのファイルを直接秀丸で開いて編集するのですか？手で開いて消してみたので
>すが、鶴亀で開いた時にかってに書き換えたことでエラーになりました…

　メール用のファイルを直接書き換える場合は、

　－　できることなら鶴亀メールが起動してない状態で実行する。
　－　鶴亀メールが起動したまま書き換える場合は、書き換えた対象の
　　　メールを含むフォルダ上で、「編集・フォルダ毎の処理・
　　　メール一覧の作成し直し」コマンドを実行する。

　とすれば大丈夫です。

RE:04045 添付ファイルの自動削除

かめきち さん　01/11/26 15:42

>　添付ファイルが付いていた痕跡を消すには、
> |
>　とすれば大丈夫です。

ありがとうございました
納得のいくものができそうです
これからもよろしくお願いします

RE:04044 添付ファイルの自動削除

ひろさん　01/11/26 17:34

　かめきちさん今日は、ひろです。
> エディタウィンドで開くと言うのは鶴亀のメール閲覧画面を出すということですよね
　その通りです。
> そこで、エディタウィンドで開いてからファイル名を指定して検索して、その行を削
> 除しようとしたのですがさっぱり変化がありません。
　おそらく「編集不許可」の状態で開いているのでしょう。
if( readonly ){
if( !dllfunc("EnableEdit") )goto DllError;
}
という要領で、編集可能に変更すると良いでしょう。

> 各種検索・編集系のコマンドというのは具体的にどれを使えばよさそうなのでしょ
>うか
gofiletop;
replaceup "^X-Attach:.*\\n","",regular;
が手っ取り早いと思いますが、添付されるファイル名が決まっているなら、
安全性を考え、
gofiletop;
replaceup "^X-Attach:.+\\\\添付されたリッチテキスト\\.rtf\\n","",regular;
// ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^適宜変更
のほうが良いでしょう。