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-08-06

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 das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mail mühelos zu bearbeiten – darunter Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Erstellen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...

📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...

📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...

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

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

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Kontakte stapelweise aus ausgewählten E-Mails hinzufügen /Eine 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!

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

kutools for outlook features1 kutools for outlook features2