How to auto forward attachments only based on specific criteria in Outlook?
Normally, when forwarding an email, the original message body and attachments are included as well. But, sometimes, you just need to forward only attachments without the original message based on criteria to a specific person. How could you solve this job in Outlook?
For example, when receiving an email which subject contains the text “kto feature”, all attachments of this email will be forwarded to the specific person automatically without message body. The following steps can help you, please do as this:
1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
2. In the Microsoft Visual Basic for Applications window, double click ThisOutlookSession from the Project1(VbaProject.OTM) pane to open the mode, and then copy and paste the following code into the blank module.
VBA code: Auto forward email without message body but just include the attachments:
Public WithEvents ReceivedItems As Outlook.Items Private Sub Application_Startup() Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items End Sub Private Sub ReceivedItems_ItemAdd(ByVal Item As Object) Dim xForwardMail As Outlook.MailItem Dim xEmail As MailItem On Error Resume Next If Item.Class <> olMail Then Exit Sub Set xEmail = Item If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub 'change subject text to your need If xEmail.Attachments.Count = 0 Then Exit Sub Set xForwardMail = xEmail.Forward With xForwardMail .HTMLBody = "" With .Recipients .Add "firstname.lastname@example.org" 'change address to your own .ResolveAll End With .Send End With End Sub
Note: In the above code, you should change the subject text and recipient address to your own.
3. Then save the code, and restart the Outlook to take the code effect.
4. From now on, each time when a new email contains the specific subject text arrives in your mailbox, Outlook will auto forward its attachments without message body to the desired person.
Note: This code is only available to the default account.
Kutools for Outlook
More than 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 and 365