Wie kann man in Outlook die automatische Weiterleitung von E-Mails so einrichten, dass nur Anhänge basierend auf bestimmten Kriterien weitergeleitet werden?

Normalerweise werden beim Weiterleiten einer E-Mail sowohl der ursprüngliche Nachrichtentext als auch die Anhänge übermittelt. Doch wie leiten Sie in Outlook gezielt nur die Anhänge – ohne den Nachrichtentext – an eine bestimmte Person weiter, und zwar basierend auf festgelegten Kriterien?

Leiten Sie ausschließlich Anhänge basierend auf bestimmten Kriterien automatisch mithilfe von VBA-Code an eine Person weiter

---

Leiten Sie ausschließlich Anhänge basierend auf bestimmten Kriterien automatisch mithilfe von VBA-Code an eine Person weiter

Beispielsweise werden beim Empfang einer E-Mail, deren Betreff den Text „kto feature“ enthält, alle Anhänge dieser E-Mail automatisch – ohne Nachrichtentext – an die betreffende Person weitergeleitet. Die folgenden Schritte zeigen Ihnen, wie’s geht:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Doppelklicken Sie im Microsoft Visual Basic for Applications-Fenster auf ThisOutlookSession im Bereich Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.

VBA-Code: Automatische Weiterleitung E-Mail ohne Nachrichtentext, jedoch mit allen Anhängen:

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

Hinweis: Passen Sie im obigen Code den Betreff und die Empfängeradresse entsprechend Ihren eigenen Angaben an.

3. Speichern Sie den Code anschließend und starten Sie Outlook neu, damit der Code wirksam wird.

4. Ab sofort leitet Outlook jedes Mal, wenn eine neue E-Mail mit dem festgelegten Betreff-Text in Ihrem Posteingang eingeht, deren Anhänge – ohne Nachrichtentext – automatisch an die gewünschte Person weiter.

Hinweis: Dieser Code ist ausschließlich für Standardkonten verfügbar.