Wie kann man E-Mails basierend auf einem bestimmten Anhang in Outlook automatisch markieren?

Author Xiaoyang Last modified 2025-08-26

Wenn Sie einige E-Mails mit einem bestimmten wichtigen Anhang erhalten, müssen Sie diese möglicherweise markieren, damit Sie sie schnell und einfach für die Nachverfolgung finden können. In diesem Artikel werde ich über eine einfache Möglichkeit sprechen, E-Mails, die Anhänge mit bestimmten Namen enthalten, automatisch zu markieren.

E-Mails basierend auf einem bestimmten Anhang mit VBA-Code automatisch markieren

E-Mails basierend auf einem bestimmten Anhang mit VBA-Code automatisch markieren

Um E-Mails, die einen bestimmten Anhang enthalten, automatisch zu markieren, wenden Sie bitte den folgenden VBA-Code an:

1. Starten Sie Outlook, und halten Sie dann die Tasten "ALT + F11" gedrückt, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Doppelklicken Sie im Fenster "Microsoft Visual Basic for Applications" auf "ThisOutlookSession" im Bereich "Project1(VbaProject.OTM)", um einen neuen Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.

VBA-Code: Automatisches Markieren von E-Mails basierend auf einem bestimmten Anhang:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    FlagEmail_SpecificAttachments Item
End Sub

Sub FlagEmail_SpecificAttachments(Mail As Outlook.MailItem)
    Dim xAttachment As Outlook.Attachment
    Dim xExt As String
    Dim xFileName As String
    If Mail.Attachments.Count = 0 Then Exit Sub
    For Each xAttachment In Mail.Attachments
        xExt = SplitPath(xAttachment.FileName, 2)
        xFileName = SplitPath(xAttachment.FileName, 1)
        Select Case xExt
            Case "txt", "xlsx", "docx", "pdf"
                If InStr(LCase(xFileName), LCase("KTO")) > 0 Then
                    With Mail
                        .ReminderSet = True
                        .ReminderTime = Now + 1
                        .MarkAsTask olMarkTomorrow
                        .Save
                    End With
                End If
        End Select
    Next
End Sub

Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String
Dim xSplitPos As Integer, xDotPos As Integer
xSplitPos = InStrRev(FullPath, "/")
xDotPos = InStrRev(FullPath, ".")
Select Case ResultFlag
    Case 0
        SplitPath = Left(FullPath, xSplitPos - 1)
    Case 1
        If xDotPos = 0 Then xDotPos = Len(FullPath) + 1
        SplitPath = Mid(FullPath, xSplitPos + 1, xDotPos - xSplitPos - 1)
    Case 2
        If xDotPos = 0 Then xDotPos = Len(FullPath)
        SplitPath = Mid(FullPath, xDotPos + 1)
    Case Else
    Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!"
End Select
End Function

Hinweis: Im obigen Code können Sie die Dateiendung und den Namen des Anhangs nach Bedarf ändern.

3. Speichern Sie dann den Code, und starten Sie Outlook neu, damit der Code wirksam wird. Jetzt markiert Outlook beim Empfang von E-Mails, deren Anhangsnamen den angegebenen Text enthalten, diese E-Mail automatisch zur Nachverfolgung, siehe Screenshot:

AI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (per Klick-Zauberei!) KOSTENLOS

Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem AI-Mail-Assistenten von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten anzubieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen das Verfassen und Überarbeiten von Nachrichten mühelos zu ermöglichen.

Diese Funktion unterstützt:

Intelligente Antworten: Erhalten Sie Antworten, die aus Ihren früheren Gesprächen erstellt wurden – maßgeschneidert, präzise und sofort einsatzbereit.
Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für Klarheit und Wirkung.
Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und lassen Sie die KI den Rest erledigen, mit mehreren Schreibstilen.
Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
Zusammenfassung: Erhalten Sie prägnante Übersichten über lange E-Mails auf Knopfdruck.
Weltweite Reichweite: Übersetzen Sie Ihre E-Mails ganz einfach in jede Sprache.

Diese Funktion unterstützt:

Intelligente E-Mail-Antworten
Optimierter Inhalt
Schlüsselwortbasierte Entwürfe
Intelligente Inhaltserweiterung
E-Mail-Zusammenfassung
Mehrsprachige Übersetzung

Das Beste daran ist, dass diese Funktion für immer komplett kostenlos ist! Zögern Sie nicht – laden Sie den AI-Mail-Assistenten noch heute herunter und genießen Sie!

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook veröffentlicht kostenlose Version!

Erleben Sie das brandneue Kutools für Outlook mit über100 unglaublichen Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu verwalten – inklusive Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP)/E-Mail senden planen/Automatische CC/BCC nach Regel beim Senden von E-Mail/Automatische Weiterleitung (Erweiterte Regeln) /Begrüßung automatisch hinzufügen/E-Mails mit mehreren Empfängern automatisch in einzelne E-Mails aufteilen...

📨 E-Mail-Management: E-Mail zurückrufen/Betrugs-E-Mails nach Betreff und anderen Kriterien blockieren/Duplikate löschen/Erweiterte Suche/Ordner organisieren...

📁 Anhänge Pro:Stapel speichern/Stapel ablösen/Stapel komprimieren/Automatisch speichern/Automatisch abtrennen/Automatische Komprimierung...

🌟 Interface-Magie: 😊Mehr schöne und coole Emojis /Benachrichtigung bei wichtigen E-Mails/Outlook minimieren statt schließen...

👍 Ein-Klick-Genies: Allen mit Anhängen antworten /Anti-Phishing-E-Mails/🕘Zeitzone des Absenders anzeigen...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Stapel Kontakt aus ausgewählten E-Mails hinzufügen/Kontaktgruppe in einzelne Gruppen aufteilen/Geburtstagserinnerung entfernen...

Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!

Schalten Sie Kutools für Outlook sofort mit einem einzigen Klick frei. Nicht zögern, jetzt herunterladen und Ihre Effizienz steigern!

Funktionsliste von Kutools für Outlook Jetzt herunterladen Gehe zu Kaufen

🚀 Ein-Klick-Download — alle Office-Add-Ins verfügbar

Dringend empfohlen: Kutools für Office (5-in-1)

Mit einem Klick laden Sie fünf Installationsprogramme gleichzeitig herunter — Kutools für Excel, Outlook, Word, PowerPoint und Office Tab Pro. Jetzt herunterladen!

✅ Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete in nur einem Schritt herunter.
🚀 Für jede Office-Aufgabe bereit: Installieren Sie die benötigten Add-Ins genau dann, wenn Sie sie brauchen.
🧰 Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools für PowerPoint

Über die Suite ⬇ Suite herunterladen 💳 Suite kaufen