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:
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.