エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
【OutlookVBA】選択したメールの添付ファイルを全て削除する - 情シス担当の備忘録
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
【OutlookVBA】選択したメールの添付ファイルを全て削除する - 情シス担当の備忘録
Outlook上で選択したメールの添付ファイルを全て削除するプログラムです。 Sub SelecetdAttachDelete() ... 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