Hoe vul ik het e-mailonderwerp automatisch in met de naam van de bijlage in Outlook?

Voor degenen die gewend zijn om de bijlagenaam als onderwerp van een e-mail in Outlook te gebruiken, zal het tijdrovend zijn om de bijlagenaam elke keer handmatig in de onderwerpregel te typen. Zoals weergegeven in de onderstaande gif, als u de onderwerpregel van de e-mail automatisch wilt vullen met de naam van de bijlage wanneer u een bijlage invoegt, zal de VBA-methode in deze zelfstudie helpen.

Vul het e-mailonderwerp automatisch in met de bijlagenaam met VBA-code

Voer de volgende VBA-code uit om het e-mailonderwerp automatisch te vullen met de naam van de ingevoegde bijlage in Outlook.

1. Start uw Outlook, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik Project1 (VbProject.OTM) > Microsoft Outlook-objecten > DezeOutlookSessie om de te openen ThisOutlookSession (code) editor.

3. Kopieer vervolgens de volgende VBA-code naar de ThisOutlookSession (code) editor.

VBA-code: vul het e-mailonderwerp automatisch in met de bijlagenaam

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. Nu moet u de code opslaan en Outlook opnieuw starten.

5. Vanaf nu, wanneer u een bijlage invoegt in een e-mail die nog geen onderwerp heeft ingevuld, a Kutools for Outlook dialoogvenster verschijnt met de vraag of u de naam van de bijlage als onderwerp wilt gebruiken, klik op de Ja knop.

Vervolgens wordt de onderwerpregel automatisch gevuld met de naam van de ingevoegde bijlage.

Opmerkingen:

---

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

• Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
• BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
• Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
• Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
• Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.

Lees verder... Download nu...