Kako samodejno izpolniti zadevo e-pošte z imenom priloge v Outlooku?
Za tiste, ki so navajeni uporabljati ime priloge kot zadevo e-poštnega sporočila v Outlooku, bo vsakokratno ročno vnašanje imena priloge v zadevo zamudno. Kot je prikazano v spodnjem gifu, vam bo metoda VBA v tej vadnici pomagala, če želite vrstico z zadevo e-pošte samodejno zapolniti z imenom priloge, ko vstavite prilogo.
Samodejno izpolni zadevo e-pošte z imenom priloge s kodo VBA
Zaženite naslednjo kodo VBA, da samodejno izpolnite zadevo e-pošte z imenom vstavljene priloge v Outlooku.
1. Zaženite Outlook, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite Projekt1 (VbProject.OTM) > Predmeti Microsoft Outlook > Ta OutlookSession da odprete ThisOutlookSession (koda) urednik.
3. Nato kopirajte naslednjo kodo VBA v ThisOutlookSession (koda) urednik.
Koda VBA: samodejno izpolni zadevo e-pošte z imenom priloge
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. Zdaj morate kodo shraniti in znova zagnati Outlook.
5. Ko od zdaj naprej vstavite prilogo v e-poštno sporočilo, ki še nima izpolnjene zadeve, Kutools za Outlook se prikaže pogovorno okno z vprašanjem, ali želite uporabiti ime priloge kot zadevo, kliknite Da gumb.
Nato bo vrstica z zadevo samodejno zapolnjena z imenom vstavljene priloge.
Opombe:
Najboljša pisarniška orodja za produktivnost
Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka
🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...
📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP) / Načrtujte pošiljanje e-pošte / Samodejna CC/BCC po pravilih pri pošiljanju e-pošte / Samodejno naprej (napredna pravila) / Samodejno dodaj pozdrav / E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...
📨 Email upravljanje: Enostaven priklic e-pošte / Blokiraj prevarantska e-poštna sporočila glede na teme in druge / Izbriši podvojena e-poštna sporočila / napredno iskanje / Združite mape ...
📁 Priloge Pro: Shrani paket / Batch Detach / Paketno stiskanje / Samodejno shranite / Samodejno loči / Samodejno stiskanje ...
🌟 Vmesnik Magic: 😊Več lepih in kul emojijev / Povečajte Outlookovo produktivnost s pogledi z zavihki / Minimizirajte Outlook, namesto da bi ga zaprli ...
???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami / E-poštna sporočila proti lažnemu predstavljanju / 🕘Pokaži pošiljateljev časovni pas ...
👩🏼🤝👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil / Razdelite skupino stikov na posamezne skupine / Odstranite opomnike za rojstni dan ...
Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.