Kaip automatiškai įterpti dabartinę datą arba laiką į el. pašto temą arba turinį naudojant „Outlook VBA“.

Daugelis vartotojų, kurdami naują el. laišką, įpratę įterpti dabartinę datą arba laiką į el. laiško temą arba turinį. Šis straipsnis išmokys jus greitai pasiekti.

Ankstesniame post - "Kaip automatiškai pridėti dabartinę datą prie „Outlook“ el. laiškų temų“, galite sužinoti, kaip prie objekto automatiškai pridėti dabartinę datą arba laiką. Tačiau metodas tame post yra tiesiog sukurti pasirinktinę pranešimo formą. Taigi kiekvieną kartą, kai norite sukurti naują el. laišką su dabartine data ar laiku, turite pasirinkti tinkintą formą, o ne kurti naują el. laišką, kaip įprasta. Akivaizdu, kad tai bus gana sudėtinga.

Tiesą sakant, „Outlook“ jau pasiūlė mums vietinį lauką, kad galėtume įterpti datą arba laiką. Be to, galite taikyti „Outlook VBA“, kad automatiškai įterptumėte dabartinę datą arba laiką į naujo el. laiško turinį arba temą. Pasirinkus būdą, tai priklauso nuo to, kaip dažnai reikia įterpti datą ar laiką.

Rankiniu būdu įterpkite pagal lauką „Data ir laikas“.

1. Į start su, paleiskite „Outlook“.
2. Tada sukurkite naują pranešimą spustelėdami mygtuką "Naujas el. paštas" skirtuke "Pagrindinis" esančioje grupėje "Naujas".
3. Vėliau naujo pranešimo lange galite spustelėti el. laiško turinį ir pereiti į skirtuką „Įterpti“.
4. Toliau galite rasti ir spustelėti lauką „Data ir laikas“ grupėje „Tekstas“.
5. Po to pasirodys naujas dialogo langas. Galite pasirinkti galimą formatą ir spustelėti mygtuką „Gerai“.
6. Grįžę į pranešimo langą el. laiško tekste galite matyti dabartinę datą arba laiką. Pagal numatytuosius nustatymus „Outlook“ neleidžia temai taikyti lauko „Data ir laikas“.
7. Taigi, galiausiai, jei norite įterpti datą arba laiką į temą, turite nukopijuoti juos iš teksto ir įklijuoti į temą rankiniu būdu.

Šis metodas labiau rekomenduojamas, jei retai reikia įvesti dabartinę datą ar laiką. Tačiau su sąlyga, kad dažnai arba visada reikia įterpti, geriau naudoti šiuos VBA kodus, kad tai pasiektumėte automatiškai.

Automatinis įterpimas naudojant Outlook VBA

1. Pirmiausia paspauskite „Alt + F11“ klavišus, kad pasiektumėte VBA redaktorių.
2. Tada dukart spustelėkite kairėje pusėje esantį projektą „ThisOutlookSession“, kad jį atidarytumėte.
3. Tada nukopijuokite į jį šiuos kodus.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

Pastaba: Aukščiau pateikti kodai veiks automatiškai įterpdami dabartinį laiką į temą ir turinį. Jei norite įterpti dabartinę datą, pakeiskite „objMail_Open“ sub su tokia informacija:

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

4. Vėliau kaip įprastai pasirašykite šį kodą.
5. Vėliau atstart Outlook, kad suaktyvintumėte makrokomandą.
6. Pagaliau galite pabandyti.

• Tiesiogiai spustelėkite mygtuką „Naujas el. paštas“, kad atidarytumėte naują el. laišką.
• Pamatysite, kad naujo el. laiško temoje ir tekste yra dabartinė data arba laikas, kaip toliau pateiktame paveikslėlyje:

Lengvai nepasitikėkite nežinomais el. laiškais

Jūs tikriausiai kada nors gavote nepageidaujamus el. Kaip dažniausiai su jais elgiesi? Nepatartina atsisiųsti priedų arba atidaryti nuorodas tokio tipo laiškuose, nes juose gali būti virusų. Kai jūsų „Outlook“ duomenys bus užkrėsti, gautųjų taisymo įrankis Scanpst.exe neveiks. Tokiu atveju jūs neturite kito pasirinkimo, kaip kreiptis į labiau patyrusį PST taisymas įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas SQL Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com