Html添付ファイルの削除についてNo.09853
haru2 さん 05/09/30 11:05
 
if (!dllfunc("DeleteAttach", dllfuncstr("CurrentHeader", "X-Html"), 1)) {
    message "failure";
}

 上記マクロでHtml添付ファイルを削除しました。
 一応、クリップのアイコンが半透明になり、削除されているよう
なんですが、

1)「ゴミ箱に移しますか?」のメッセージを出さないで、ゴミ箱
    を使用せず削除したい。
2)その際、X-Htmlヘッダも一緒に削除したい。

 のですが、方法がわかりません。
 よろしくお願いします。

[ ]
RE:09853 Html添付ファイルの削除についてNo.09855
秀まるお さん 05/09/30 11:51
 
 DeleteAttach関数は、添付ファイルを削除する用の関数なので、X-Html:で示
されるHMTLメール部分を削除するのには本来使えないです。というか、動作保証
外ってことになると思います。(なんとなく動いてしまってるのが怖いですが)

 X-Html:ヘッダで示される内容を削除するには、そもそもindex.htmファイルだ
け削除するんじゃなくて、フォルダ毎削除する必要があります。あと、X-Html:
ヘッダは、DeleteHeader関数で削除できます。

 マクロとしては、

    $html = dllfuncstr("CurrentHeader", "X-Html:");
    if( $html == "" ) endmacro;
    if( rightstr($html, 10) == "\\index.htm" ) {
        $html = leftstr($html, strlen($html) - 10) + "\\*.*";
    }
    $html = dllfuncstr("HomeDir") + dllfuncstr("CurrentAccount")
          + "\\" + $html;
    runsync2 "cmd.exe /c del /q /f \"" + $html + "\"";
    #n = dllfunc("BeginEditMail");
    #n = dllfunc("DeleteHeader", "X-Html");
    #n = dllfunc("SaveEditMail", 0, 0 );

 のようなことでHTMLメールを削除したらいいんじゃないかと思います。

 (1回しかテストしてないので、ご自身でテストしてほしいですが)

[ ]
RE:09855 Html添付ファイルの削除についてNo.09866
haru2 さん 05/10/03 09:49
 
> X-Html:ヘッダで示される内容を削除するには、そもそもindex.htmファイルだ
>け削除するんじゃなくて、フォルダ毎削除する必要があります。あと、X-Html:
>ヘッダは、DeleteHeader関数で削除できます。
> マクロとしては、
(中略)
> のようなことでHTMLメールを削除したらいいんじゃないかと思います。
> (1回しかテストしてないので、ご自身でテストしてほしいですが)
 ありがとうございます。
 うまくいきました。

[ ]