How to remove specific type of attachments from emails in Outlook?
Have you ever tried to remove attachments in multiple selected emails by file type in Outlook? Such as, removing all docx or png attachment files from selected emails. How could you solve this job in Outlook?
Remove specific type of attachments from emails with VBA code
Remove specific type of attachments from emails with VBA code
To remove specific type of attachments from selected emails, the following VBA code can do you a favor, please do as this:
1. Select the emails that you want to remove their specific type of attachments in the mailing list.
2. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
3. Then, click Insert > Module, copy and paste below code into the opened blank module, see screenshot:
VBA code: Remove specific type of attachments from emails:
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. And then still in the Microsoft Visual Basic for Applications window, click Tools > References to go to the References-Project1 dialog box, and check Microsoft Scripting Runtime option from the Available References list box, see screenshot:
5. Then click OK to close the dialog, now, press F5 key to run this code, and a prompt box is popped out, please enter the attachment type that you want to remove, see screenshot:
6. Click OK, and all attachments with the specific type you are defined have been deleted at once, see screenshot:
Best Office Productivity Tools
Kutools for Outlook - Over 100 Powerful Features to Supercharge Your Outlook
π€ AI Mail Assistant: Instant pro emails with AI magic--one-click to genius replies, perfect tone, multilingual mastery. Transform emailing effortlessly! ...
π§ Email Automation: Out of Office (Available for POP and IMAP) / Schedule Send Emails / Auto CC/BCC by Rules When Sending Email / Auto Forward (Advanced Rules) / Auto Add Greeting / Automatically Split Multi-Recipient Emails into Individual Messages ...
π¨ Email Management: Easily Recall Emails / Block Scam Emails by Subjects and Others / Delete Duplicate Emails / Advanced Search / Consolidate Folders ...
π Attachments Pro: Batch Save / Batch Detach / Batch Compress / Auto Save / Auto Detach / Auto Compress ...
π Interface Magic: πMore Pretty and Cool Emojis / Boost Your Outlook Productivity with Tabbed Views / Minimize Outlook Instead of Closing ...
π One-click Wonders: Reply All with Incoming Attachments / Anti-Phishing Emails / πShow Sender's Time Zone ...
π©πΌβπ€βπ©π» Contacts & Calendar: Batch Add Contacts From Selected Emails / Split a Contact Group to Individual Groups / Remove Birthday Reminders ...
Over 100 Features Await Your Exploration! Click Here to Discover More.