実行時エラー４２４ オブジェクトが必要です。を回避するには？（マクロ VBA）

ExcelVBAでも構いませんが、OutlookVBAで送信する際に、ポップウィンドウを開いて、
添付ファイルを圧縮するか？とういうかウィンドウを開いて、圧縮する場合としない場合を送信するようにしたい。
http://scripting.cocolog-nifty.com/blog/2007/11/ …
↑上記URLを参考にコードを入れてウィンドウを表示しようとしましたが、
実行時エラー４２４　オブジェクトが必要です。と出てしまい、マクロが走りませんでした。
何が原因なのでしょうか？

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2015/04/13 10:14

こちら（Windoows7 64bit & Excel2010 32bit）では

問題ないですけどね。
ただ、MS社さんは
エクスプローラーから、ユーザー操作以外の方法で ZIP ファイルを扱うことは想定されていません。
CopyHere メソッドを使用して ZIP ファイルからファイルを取り出したり、
ZIP ファイルにファイルを格納したりすることもサポート対象外となります。
https://support.microsoft.com/ja-jp/kb/2679832/ja
と言っています。