Cookies help us deliver our services. By using our services, you agree to our use of cookies.
Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

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?

Forward only attachments based on specific criteria to a person automatically with VBA code


Forward only attachments based on specific criteria to a person automatically with VBA code

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 "skyyang@addin88.com"    '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.

doc auto forward attachments only 1

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

screen shot kutools for outlook tiny for banner 201812

More Features  |  Free Download  |  Only $39.00 for hundreds of functions

 

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.