Hoe e-mailonderwerpregel automatisch te vullen met de naam van de bijlage in Outlook

Gebruikt u in Outlook vaak de naam van de bijlage als onderwerp van de e-mail? Als dit het geval is, moet u hopen dat Outlook het automatisch kan voltooien. Dit artikel introduceert een handige methode om het te realiseren met Outlook VBA.

Veel gebruikers zijn gewend om handmatig de naam van de bijlage in de onderwerpregel van een e-mail te typen. In zo'n geval zou het veel handiger zijn als Outlook dit automatisch zou kunnen doen. Bovendien vergeten sommige gebruikers vaak de onderwerpregel in te vullen. Wanneer ze dan op de knop 'Verzenden' klikken, krijgen ze een waarschuwingsbericht 'geen onderwerp'. In zo'n geval zou het handig zijn als Outlook de onderwerpregel automatisch zou kunnen invullen met de naam van de bijlage. Kortom, veel Outlook-gebruikers zouden graag een manier zien om de onderwerpregel van een e-mail automatisch te laten invullen met de naam van de bijlage. Gelukkig kunnen we dit met behulp van Outlook VBA heel eenvoudig bereiken. Hieronder vindt u de gedetailleerde VBA-code en de stappen.

Vul de onderwerpregel van de e-mail automatisch in met de naam van de bijlage

1. Je kunt allereerst Outlook openen en naar het tabblad "Ontwikkelaar" gaan.
2. Klik vervolgens onder dit tabblad op de knop "Visual Basic", waardoor de VBA-editor tevoorschijn komt.
3. In het volgende venster moet u eerst het "ThisOutlookSession" -project zoeken in de projectlijst aan de rechterkant.
4. Dubbelklik vervolgens om dit project te openen. En kopieer dan de volgende codes erin.

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

5. Daarna moet u zoals gewoonlijk doorgaan met het toewijzen van een digitaal certificaat aan het huidige VBA-project.

• Gebruik eerst het ingebouwde hulpprogramma "Digitale certificaten voor VBA-projecten" om een ​​digitaal certificaat te genereren.
• Vervolgens kunt u de huidige macro ondertekenen.

6. Verlaat later de VBA-editor en verander de macro-instellingen in "Meldingen voor digitaal ondertekende macro's, alle andere macro's uitgeschakeld".
7. Eindelijk kun je het proberen.

• Maak een nieuwe e-mail.
• Als je het onderwerp niet hebt ingevuld en van plan bent een bestand bij te voegen, ontvang je een bericht, zoals de volgende afbeelding:
• Als u "Ja" selecteert, wordt het onderwerp onmiddellijk gevuld met de naam van de bijlage.

Omgaan met veelvoorkomende Outlook-problemen

Als u Outlook al decennia gebruikt, moet u veel Outlook-problemen hebben ondervonden. Welke acties onderneemt u dan gewoonlijk wanneer u ze ontmoet? Er wordt voorgesteld om ze zo snel mogelijk te achterhalen en uit te roeien. Het is omdat opeenhopende problemen uw Outlook-gegevens op elk moment kunnen beschadigen. Dus zelfs als Outlook normaal kan werken, kunt u beter de inbox-reparatietool of de externe tool toepassen Outlook PST-foutherstelprogramma, zoals DataNumen Outlook Repair, om uw PST-bestanden te scannen om fouten op te sporen en op te lossen.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie beschadigd SQL Server databank en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com