Hoe kunt u in Outlook automatisch alleen bijlagen doorsturen op basis van specifieke criteria?

Normaal gesproken worden bij het doorsturen van een e-mail zowel de originele berichttekst als de bijlagen meegenomen. Maar soms wilt u alleen de bijlagen — op basis van bepaalde criteria — naar een specifiek persoon doorsturen, zonder de originele tekst. Hoe doet u dat in Outlook?

Stuur alleen bijlagen op basis van specifieke criteria automatisch naar een persoon met VBA-code

---

Stuur alleen bijlagen op basis van specifieke criteria automatisch naar een persoon met VBA-code

Bijvoorbeeld: wanneer u een e-mail ontvangt waarvan het onderwerp de tekst „kto feature” bevat, worden alle bijlagen van die e-mail automatisch doorgestuurd naar de desbetreffende persoon – zonder de berichttekst. De volgende stappen helpen u hierbij; volg deze instructies:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen, en kopieer en plak vervolgens de volgende code in de lege module.

VBA-code: Automatisch doorsturen e-mail zonder berichttekst, maar inclusief de bijlagen:

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

Opmerking: Pas in de bovenstaande code het onderwerp en het e-mailadres van de ontvanger aan naar uw eigen gegevens.

3. Sla de code op en herstart Outlook om deze te activeren.

4. Vanaf nu stuurt Outlook, telkens wanneer een nieuwe e-mail met de specifieke onderwerptekst in uw postvak binnenkomt, de bijlagen ervan automatisch door naar de gewenste persoon—zonder berichttekst.

Opmerking: Deze code is exclusief beschikbaar voor het Standaardaccount.