メインコンテンツへスキップ

Outlookの電子メールから特定の種類の添付ファイルを削除するにはどうすればよいですか?

Outlookでファイルの種類ごとに選択した複数の電子メールの添付ファイルを削除しようとしたことがありますか? 選択した電子メールからすべてのdocxまたはpng添付ファイルを削除するなど。 Outlookでこの仕事をどのように解決できますか?

VBAコードを含む電子メールから特定の種類の添付ファイルを削除する


VBAコードを含む電子メールから特定の種類の添付ファイルを削除する

選択した電子メールから特定の種類の添付ファイルを削除するには、次のVBAコードを使用してください。次のようにしてください。

1。 メーリングリストで特定の種類の添付ファイルを削除するメールを選択します。

2。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3。 次に、をクリックします。 インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。スクリーンショットを参照してください。

VBAコード:特定の種類の添付ファイルをメールから削除します。

Sub DeleteSpecificTypeOfAttachments()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFileType As String
Dim xType As String
Dim xFSO As Scripting.FileSystemObject
Dim I As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xFSO = New Scripting.FileSystemObject
xType = ""
xType = InputBox("Attachment Type:", "Kutools for Outlook", xType, 8)
If Len(Trim(xType)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
       If xMailItem.Attachments.Count > 0 Then
            For I = xMailItem.Attachments.Count To 1 Step -1
                Set xAttachment = xMailItem.Attachments.Item(I)
                xFileType = xFSO.GetExtensionName(xAttachment.FileName)
                If InStr(xFileType, Trim(xType)) > 0 Then
                    xAttachment.Delete
                End If
            Next I
            xMailItem.Save
        End If
    End If
Next
Set xMailItem = Nothing
Set xFSO = Nothing
End Sub

4。 そして、まだ アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック ツール > 参考文献 参考資料-Project1 ダイアログボックスをクリックし、チェックします Microsoftスクリプトランタイム オプションから 利用可能な参考文献 リストボックス、スクリーンショットを参照:

タイプ1によるドキュメント削除アタッチ

5。 次に、をクリックします OK ダイアログを閉じるには、今すぐを押します F5 このコードを実行するためのキーを押すと、プロンプトボックスが表示されます。削除する添付ファイルの種類を入力してください。スクリーンショットを参照してください。

タイプ2によるドキュメント削除アタッチ

6に設定します。 OK をクリックします。 OK、および定義した特定のタイプのすべての添付ファイルが一度に削除されました。スクリーンショットを参照してください。

タイプ3によるドキュメント削除アタッチ


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Awesome, I was looking for this exactly. I just made a modification to remove attachments with specific string on the name.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations