Zum Hauptinhalt springen

Wie fülle ich das E-Mail-Betreff automatisch mit dem Namen des Anhangs in Outlook aus?

Author: Siluvia Last Modified: 2025-05-28

Für diejenigen, die es gewohnt sind, den Namen des Anhangs als Betreff einer E-Mail in Outlook zu verwenden, ist das manuelle Eintippen des Anhangsnamens in der Betreffzeile jedes Mal zeitaufwendig. Wie im folgenden GIF gezeigt, wenn Sie möchten, dass das E-Mail-Betreff automatisch mit dem Namen des Anhangs ausgefüllt wird, sobald Sie einen Anhang einfügen, wird die VBA-Methode in diesem Tutorial helfen.


Automatisches Ausfüllen des E-Mail-Betrefs mit dem Namen des Anhangs mittels VBA-Code

Bitte führen Sie den folgenden VBA-Code aus, um das E-Mail-Betreff automatisch mit dem Namen des eingefügten Anhangs in Outlook auszufüllen.

1. Starten Sie Ihr Outlook und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications auf Project1 (VbProject.OTM) > Microsoft Outlook Objects > ThisOutlookSession, um den Editor ThisOutlookSession (Code) zu öffnen.

3. Kopieren Sie dann den folgenden VBA-Code in den Editor ThisOutlookSession (Code).

VBA-Code: Automatisches Ausfüllen des E-Mail-Betrefs mit dem Namen des Anhangs

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

doc-autofill-subject-line-with-attachment-name-2

4. Nun müssen Sie den Code speichern und Outlook neu starten.

5. Von nun an wird jedes Mal, wenn Sie einen Anhang in eine E-Mail einfügen, die noch keinen Betreff hat, ein Dialogfeld von Kutools für Outlook erscheinen, das Sie fragt, ob Sie den Namen des Anhangs als Betreff verwenden möchten. Klicken Sie auf die Schaltfläche Ja.

doc-autofill-subject-line-with-attachment-name-3

Dann wird die Betreffzeile automatisch mit dem Namen des eingefügten Anhangs ausgefüllt.

doc-autofill-subject-line-with-attachment-name-4

Hinweise:

1) Wenn Sie den Betreff bereits ausgefüllt haben, wird das Einfügen eines Anhangs das Dialogfeld nicht mehr anzeigen.
2) Wenn Sie ein vorhandenes Betreff aus der aktuellen E-Mail entfernen, aber der Cursor immer noch in der Betreffzeile angezeigt wird, wird das Einfügen eines Anhangs das Dialogfeld ebenfalls nicht anzeigen. Nachdem Sie das Betreff entfernt haben, müssen Sie außerhalb der Betreffzeile klicken, um das Nachrichtenfeld zu aktualisieren, damit der Code funktioniert.
3) Wenn Sie gleichzeitig mehrere Anhänge einfügen, kann nur der Name des ersten Anhangs als Betreff der E-Mail verwendet werden.

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.
doc ai email handle

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 startet kostenlose Version!

Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu bearbeiten, einschließlich Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

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

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

📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...

🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...

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

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

Entsperren Sie Kutools für Outlook sofort mit einem Klick. Warten Sie nicht, laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

kutools for outlook features1 kutools for outlook features2