Wie fülle ich den E-Mail-Betreff automatisch mit dem Anhangsnamen in Outlook aus?
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.
Anmerkungen:
Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!
- Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
- BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
- Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
- Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
- Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
