Hvordan udfylder man automatisk e-mail-emne med vedhæftet filnavn i Outlook?
For dem, der er vant til at bruge den vedhæftede fils navn som emne for en e-mail i Outlook, vil det være tidskrævende at indtaste det vedhæftede navn manuelt i emnelinjen hver gang. Som vist i gif'en nedenfor, hvis du automatisk vil udfylde e-mailens emnelinje med navnet på den vedhæftede fil, når du indsætter en vedhæftet fil, vil VBA-metoden i denne vejledning hjælpe.
Udfyld automatisk e-mailens emne med navnet på den vedhæftede fil med VBA-kode
Kør venligst følgende VBA-kode for automatisk at udfylde e-mail-emnet med navnet på den indsatte vedhæftede fil i Outlook.
1. Start din Outlook, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet Projekt1 (VbProject.OTM) > Microsoft Outlook-objekter > Denne OutlookSession at åbne ThisOutlookSession (kode) editor.
3. Kopier derefter følgende VBA-kode ind i ThisOutlookSession (kode) editor.
VBA-kode: Autofyld e-mailens emne med navnet på den vedhæftede fil
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 skal du gemme koden og genstarte Outlook.
5. Fra nu af, når du indsætter en vedhæftet fil i en e-mail, der endnu ikke har et emne udfyldt, Kutools til Outlook dialogboksen vil dukke op og spørge dig, om du vil bruge navnet på den vedhæftede fil som emne, klik på Ja .
Derefter vil emnelinjen automatisk blive udfyldt med navnet på den indsatte vedhæftede fil.
Noter:
Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!
- Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
- BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
- Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
- Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
- Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
