Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

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

Author Xiaoyang Last modified

Normaal gesproken, wanneer u een e-mail doorstuurt, worden ook de oorspronkelijke berichttekst en bijlagen meegenomen. Maar soms wilt u alleen de bijlagen doorsturen zonder het originele bericht, gebaseerd op bepaalde criteria naar een specifiek persoon. Hoe kunt u dit in Outlook oplossen?

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


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

Bijvoorbeeld, wanneer u een e-mail ontvangt waarvan het onderwerp de tekst “kto feature” bevat, worden alle bijlagen van deze e-mail automatisch doorgestuurd naar de specifieke persoon zonder de berichttekst. De volgende stappen kunnen u helpen, doe het als volgt:

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

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

VBA-code: E-mail automatisch doorsturen zonder berichttekst, maar inclusief alleen 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: In de bovenstaande code moet u de onderwerptekst en het ontvangeradres aanpassen naar uw eigen gegevens.

doc auto forward attachments only 1

3. Sla vervolgens de code op en herstart Outlook om de code effectief te maken.

4. Vanaf nu zal elke keer dat een nieuwe e-mail met een specifieke onderwerptekst in uw mailbox arriveert, Outlook automatisch de bijlagen doorsturen zonder de berichttekst naar de gewenste persoon.

Opmerking: Deze code is alleen beschikbaar voor het standaardaccount.


Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

kutools for outlook features1 kutools for outlook features2

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

  • Eén-klik gemak: Download alle vijf de installaties in één actie.
  • 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
  • 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint