Sådan udfyldes e-mail-emnelinje automatisk med vedhæftet filnavn i Outlook

Bruger du ofte navnet på den vedhæftede fil som e-mail-emne i Outlook? Hvis det er tilfældet, må du håbe, at Outlook automatisk kan fuldføre det. Denne artikel vil introducere en praktisk metode til at gøre det realiseret med Outlook VBA.

Mange brugere er vant til manuelt at skrive navnet på den vedhæftede fil i emnelinjen i e-mails. I et sådant scenarie vil det være langt mere bekvemt, hvis Outlook automatisk kan gøre det. Derudover glemmer nogle brugere ofte at udfylde emnelinjen. Så når de trykker på knappen "Send", modtager de en advarselsmeddelelse med "intet emne". I et sådant tilfælde, hvis Outlook automatisk kan udfylde emnelinjen med navnet på den vedhæftede fil, vil de kunne undgå den irriterende advarsel om "intet emne". Kort sagt menes det, at mange Outlook-brugere længes efter en sådan metode, der lader Outlook automatisk udfylde emnelinjen i e-mails med navnet på den vedhæftede fil. Heldigvis kan vi med hjælp fra Outlook VBA opnå det med største lethed. Her er de detaljerede VBA-koder og trin.

Udfyld automatisk e-mail-emnelinje med navnet på den vedhæftede fil

1. Først skal du starte Outlook og gå til fanen "Udvikler".
2. Derefter skal du under denne fane klikke på knappen "Visual Basic", som åbner VBA-editoren.
3. I det efterfølgende vindue bør du først finde "ThisOutlookSession"-projektet i projektlisten til højre.
4. Næste dobbeltklik for at åbne dette projekt. Og kopier derefter følgende koder ind i den.

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. Derefter skal du fortsætte med at tildele et digitalt certifikat til det aktuelle VBA-projekt som normalt.

• For det første skal du bruge det indbyggede værktøj "Digitale certifikater til VBA-projekter" til at generere et digitalt certifikat.
• Efterfølgende kan du signere den aktuelle makro.

6. Afslut senere VBA-editoren og skift makroindstillingerne til "Meddelelser for digitalt signerede makroer, alle andre makroer deaktiveret".
7. Endelig kan du prøve.

• Opret en ny e-mail.
• Hvis du ikke har udfyldt emnet og har til hensigt at vedhæfte en fil, vil du modtage en besked, f.eks. følgende billede:
• Når du vælger "Ja", vil emnet blive udfyldt med det vedhæftede navn på én gang.

Håndter hyppige Outlook-problemer

Forudsat at du har brugt Outlook i årtier, må du være stødt på en masse Outlook-problemer. Så hvilke handlinger tager du normalt, når du møder dem? Det foreslås at finde ud af og udrydde dem så hurtigt som muligt. Det er fordi, at akkumulerende problemer kan beskadige dine Outlook-data til enhver tid. Derfor, selvom Outlook kan fungere som normalt, må du hellere anvende enten indbakkereparationsværktøjet eller det eksterne Outlook PST-fejlreparationsværktøjSom DataNumen Outlook Repair, for at scanne dine PST-filer for at opdage og løse fejl.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation beskadiget SQL Server database og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com