Note: The other languages of the website are Google-translated. Back to English

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:

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.

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.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (7)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Добрый день. Подскажите пожалуйста можно ли сделать что бы тема формировалась из 2 и более файлов с разделение И? Может в данном коде дописать или вообще другой существует? Заранее спасибо
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo лександр,

Meinen Sie das Hinzufügen mehrerer Anhänge, während Sie diese Anhangsnamen gleichzeitig zum Betreff hinzufügen und sie dann mit UND verknüpfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Да. Например перетащил два файла и он их имена написал через И. Именно два файла, больше не надо.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Да, именно. ТЕ при добавлении или перетягивании двух файлов тема письма автоматом писалась через И
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Добрый день. ДА при добавлении 2 файлов в тему писалось через И.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo лександр,

Der folgende VBA-Code kann helfen, Ihr Problem zu lösen. Bitte versuchen Sie es.
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220131
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Dim GFileName As String

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
  GFileName = ""
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
  GFileName = ""
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  If GMail.Subject = "" Then
    GMail.Subject = GFileName
  Else
    GMail.Subject = GMail.Subject & " AND " & GFileName
  End If
  GFileName = ""
End Sub

Private Sub GMail_BeforeAttachmentAdd(ByVal Attachment As Attachment, Cancel As Boolean)
  On Error Resume Next
  GFileName = Attachment.DisplayName
  GFileName = Left$(GFileName, VBA.InStrRev(GFileName, ".") - 1)
  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
    GFileName = ""
    Exit Sub
  End If
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Да получилось. Огромное спасибо за помощь. И еще один вопрос, а можно в конце всего этого, при нажатии кнопки "Отправить" выдавал некое сообщение что то типа "Вы действительно хотите отправить данное сообщение"?
Es sind noch keine Kommentare vorhanden

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL