Note: The other languages of the website are Google-translated. Back to English

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:

1) Hvis du allerede har udfyldt emnet, vil indsættelse af en vedhæftet fil ikke dukke op i dialogboksen.
2) Hvis du fjerner et eksisterende emne fra den aktuelle e-mail, men markøren stadig vises i emnelinjen, vil indsættelse af en vedhæftet fil heller ikke få dialogboksen frem. Når du har fjernet emnet, skal du klikke væk fra emnelinjen for at opdatere meddelelsesboksen for at få koden til at fungere.
3) Hvis du indsætter flere vedhæftede filer på samme tid, kan kun navnet på den første vedhæftede fil bruges som emne for e-mailen.

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.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (2)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Добрый день. Vil du gerne oprette en formular fra 2 og flere visninger? Может в данном коде дописать или вообще другой существует? Заранее спасибо
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Александр,

Mener du at tilføje flere vedhæftede filer, mens du tilføjer disse vedhæftede navne på samme tid til emnet og derefter forbinder dem med OG?
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL