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:
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.