完璧な正解を有難うございました！大変助かりました。生まれて3個目の自作マクロですが、これからもどうぞ宜しくお願い致します。

こんにちは。 拡張子「zip」の添付ファイルのみ保存したいということであれば、 For i = 1 To .Attachments.Count     strFile = strPath & .Attachments.Item(i)     .Attachments.Item(i).SaveAsFile...

早速有難うございます<(_ _)>ただし「エク短」残念ながらアクセス出来ませんでした、残念。 このサイトにアクセスできません https://extan.jp/ウェブページは一時的に停止しているか、新しいウェブアドレスに移動した可能性があります。

お世話になります。フォルダー内のメールのうちZIPファイルのみを指定し保存、EXCELに書き出したいと思います。 Attachements.Countに”*.ZIP”を組み込みたいと思います。何故ならテスト用の６つのメールのうち５つのメールのZIPファイルは正常に保存されますが、１つのメールに添付されていますZIPファイルのみが拡張子が付かず空のまま保存されてしまいますため、安全策として拡張子を指定したいと考えています。宜しくお願い致します。...