エクセルVBAの自己消滅で

質問

エクセル2000です。
以下のコードでこのVBAを書いたBOOK本体はパソコン内からきれいさっぱり消滅してくれます。ところがメール（OutLook）に添付して送付したものを、OutLook上で開いた場合は消滅してくれません。
OutLook上で開いた場合でも消滅させる方法はないでしょうか？

Sub TEST01()
Application.Interactive = False
MsgBox "申し訳ありませんがこれから消滅させていただきます。" _
+ Chr(&HD) + Chr(&HA) + "と、止めないでください。" _
+ Chr(&HD) + Chr(&HA) + "" _
+ Chr(&HD) + Chr(&HA) + "Bye-bye!", , " Ψ(｀▽´)Ψ "
ActiveWorkbook.Save
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End Sub

回答No.1

KenKen_SP · ベストアンサー

> OutLook上で開いた場合

というのは、Outlook で受信した添付ファイルをダブルクリックで
開く..ということでしょうか？

このとき、Outlook は添付ファイルのコピーを一時ファイルとして

　　%USERPROFILE%\Local Settings\Temporary Internet Files\OLKxxx
　　※ xxx の部分ははランダム

に保存しています。こちらを開いているようです。

ご質問文にあるマクロでは、この一時ファイルなら削除できそう
ですが、添付ファイル自体は削除できません。

添付ファイルを削除するためには、Outlook 側を VBA で操作して
やる必要があるのですが、とても難しいと思います。

そもそも、受信するメーラーは Outlook のみ...というのが前提に
なってしまいます。その他メーラーでは対応できない場合の方が多い
でしょうし、100％ 確実にというのは不可能かと。

お礼

KenKen_SPさま、いつも有難うございます。
言われてみればもっともですね。
Outlook 側を VBA で操作するなんて、わたしにはとても手におえませんのでこれはあきらめます。