Ar dažnai naudojate priedo pavadinimą kaip el. pašto temą programoje „Outlook“? Jei taip, turite tikėtis, kad „Outlook“ galės tai automatiškai užbaigti. Šiame straipsnyje bus pristatytas patogus būdas tai įgyvendinti naudojant Outlook VBA.
Daugelis vartotojų yra įpratę rankiniu būdu įvesti priedo pavadinimą el. laiško temos eilutėje. Tokiu atveju, jei „Outlook“ gali tai padaryti automatiškai, tai bus daug patogiau. Be to, kai kurie vartotojai dažnai pamiršta užpildyti temos eilutę. Taigi, paspaudę mygtuką „Siųsti“, jie gaus įspėjimą „nėra temos“. Tokiu atveju, jei „Outlook“ gali automatiškai užpildyti temą priedo pavadinimu, jie galės išvengti erzinančio įspėjimo „nėra temos“. Trumpai tariant, manoma, kad daugelis „Outlook“ vartotojų trokšta tokio metodo, kuris leistų „Outlook“ automatiškai užpildyti el. laiško temos eilutę priedo pavadinimu. Laimei, naudodamiesi „Outlook VBA“, galime tai padaryti labai lengvai. Čia pateikiami išsamūs VBA kodai ir veiksmai.
Automatiškai užpildykite el. pašto temos eilutę su priedo pavadinimu
- Pirmiausia galite paleisti „Outlook“ ir pereiti į skirtuką „Kūrėjas“.
- Tada šiame skirtuke turėtumėte spustelėti mygtuką „Visual Basic“, kuris parodys VBA redaktorių.
- Kitame lange pirmiausia turėtumėte rasti projektą „ThisOutlookSession“ projektų sąraše dešinėje.
- Kitas dukart spustelėkite, kad atidarytumėte šį projektą. Tada nukopijuokite į jį šiuos kodus.
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
- Po to dabartiniam VBA projektui turite toliau priskirti skaitmeninį sertifikatą kaip įprasta.
- Pirmiausia naudokite įmontuotą priemonę „Skaitmeniniai sertifikatai VBA projektams“, kad sukurtumėte skaitmeninį sertifikatą.
- Vėliau galite pasirašyti esamą makrokomandą.
- Vėliau išeikite iš VBA redaktoriaus ir pakeiskite makrokomandos nustatymus į „Pranešimai apie skaitmeniniu būdu pasirašytas makrokomandas, visos kitos makrokomandos išjungtos“.
- Pagaliau galite pabandyti.
- Sukurkite naują el. Laišką.
- Jei neužpildėte temos ir ketinate pridėti failą, gausite pranešimą, pavyzdžiui, šį paveikslėlį:
- Pasirinkus „Taip“, tema iš karto bus užpildyta priedo pavadinimu.
Susitvarkykite su dažnomis „Outlook“ problemomis
Jei „Outlook“ naudojote dešimtmečius, turėjote susidurti su daugybe „Outlook“ problemų. Tada kokius veiksmus dažniausiai atliekate susitikę su jais? Siūloma kuo greičiau jas išsiaiškinti ir išnaikinti. Taip yra todėl, kad besikaupiančios problemos gali bet kuriuo metu sugadinti jūsų „Outlook“ duomenis. Taigi, net jei „Outlook“ gali veikti kaip įprastai, geriau pritaikykite gautųjų taisymo įrankį arba išorinį Outlook PST klaidų taisymo įrankis, Kaip DataNumen Outlook Repair, kad nuskaitytumėte PST failus, kad aptiktumėte ir išspręstumėte klaidas.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas sugadintas SQL Server duomenų bazė ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com