Outlook上で選択したメールの添付ファイルを全て削除するプログラムです。 Sub SelecetdAttachDelete() If MsgBox("選択したメールの添付ファイルを削除します。よろしいですか?", _ vbYesNo) = vbNo Then End End If Dim objMail As Object Dim SelectionCount As Long SelectionCount = ActiveExplorer.Selection.Count '何通のメールが選択されているか取得。 '選択されているメールの数だけ添付ファイル削除処理をループする。 Dim i As Long i = 1 For i = 1 To SelectionCount Set objMail = ActiveExplorer.Selection.Item(i) While objMai