Wie fülle ich den E-Mail-Betreff automatisch mit dem Anhangsnamen in Outlook aus?

Autor: Siluvia Letzte Änderung: 2022-09-30

Für diejenigen, die es gewohnt sind, den Anhangsnamen als Betreff einer E-Mail in Outlook zu verwenden, ist es zeitaufwändig, den Anhangsnamen jedes Mal manuell in die Betreffzeile einzugeben. Wenn Sie die E-Mail-Betreffzeile automatisch mit dem Anhangsnamen füllen möchten, wenn Sie einen Anhang einfügen, wie im folgenden GIF gezeigt, hilft die VBA-Methode in diesem Tutorial.

Füllen Sie den E-Mail-Betreff automatisch mit dem Anhangsnamen mit VBA-Code aus

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

1. Starten Sie Outlook und drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Fenster, Doppelklick Projekt1 (VbProjekt.OTM) > Microsoft Outlook-Objekte > DieseOutlookSession öffnen Diese Outlook-Sitzung (Code) Editor.

3. Kopieren Sie dann den folgenden VBA-Code in die Diese Outlook-Sitzung (Code) Editor.

VBA-Code: Füllen Sie den E-Mail-Betreff automatisch mit dem Namen des Anhangs aus

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

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

5. Wenn Sie von nun an einen Anhang in eine E-Mail einfügen, die noch keinen Betreff enthält, a Kutools for Outlook Es erscheint ein Dialogfeld, in dem Sie gefragt werden, ob Sie den Namen des Anhangs als Betreff verwenden möchten. Klicken Sie auf Ja .

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

Notizen:

1) Wenn Sie den Betreff bereits ausgefüllt haben, wird das Dialogfeld beim Einfügen eines Anhangs nicht angezeigt.

2) Wenn Sie einen bestehenden Betreff aus der aktuellen E-Mail entfernen, aber der Cursor immer noch in der Betreffzeile angezeigt wird, wird das Dialogfeld auch beim Einfügen eines Anhangs nicht angezeigt. Nachdem Sie den Betreff entfernt haben, müssen Sie außerhalb der Betreffzeile klicken, um das Meldungsfeld zu aktualisieren, damit der Code funktioniert.

3) Wenn Sie mehrere Anhänge gleichzeitig einfügen, kann nur der Name des ersten Anhangs als Betreff der E-Mail verwendet werden.

Beste Office-Produktivitätstools

Eilmeldung: Einführung von Kutools für Outlook Kostenlos Version!

Erleben Sie die brandneuen Kutools für Outlook KOSTENLOSE Version mit über 70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie hier, um jetzt herunterzuladen!

🤖 Kutools KI : Verwendet fortschrittliche KI-Technologie zur mühelosen Bearbeitung von E-Mails, einschließlich Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail Automation: Automatische Antwort (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...

📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Erinnern Sie sich an wichtige E-Mails / Ausblick minimieren statt schließen ...

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

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...

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