Praeguse kuupäeva või kellaaja automaatne lisamine meili teemasse või sisusse Outlook VBA abil

Paljud kasutajad on uue meili koostamisel harjunud lisama meili teemasse või kehasse praegust kuupäeva või kellaaega. See artikkel õpetab teile, kuidas seda kiiresti saavutada.

Eelmises lkost - "Kuidas automaatselt lisada praegune kuupäev oma Outlooki meilide teemadele”, saate teada, kuidas teemale praegust kuupäeva või kellaaega automaatselt lisada. Kuid meetod selles lkost on lihtsalt kohandatud sõnumivormi loomine. Seega peate iga kord, kui soovite luua uue meili, mille teemaks on praegune kuupäev või kellaaeg, tavapärase uue meili loomise asemel valima kohandatud vormi. Ilmselgelt saab see üsna tülikas olema.

Tegelikult on Outlook meile juba pakkunud loomulikku välja kuupäeva või kellaaja sisestamiseks. Samuti saate Outlook VBA-d rakendada praeguse kuupäeva või kellaaja automaatseks lisamiseks uue meili sisusse või teemasse. Valitud meetodi valik sõltub sellest, kui sageli peate kuupäeva või kellaaega sisestama.

Sisestage käsitsi välja "Kuupäev ja kellaaeg" järgi

1. Et start koos käivitage Outlook.
2. Seejärel looge uus sõnum, klõpsates vahekaardi "Kodu" grupis "Uus" nuppu "Uus e-kiri".
3. Seejärel saate aknas Uus sõnum klõpsata meili sisul ja avada vahekaart "Lisa".
4. Järgmisena leiate rühmast "Tekst" välja "Kuupäev ja kellaaeg" ja klõpsake sellel.
5. Pärast seda kuvatakse uus dialoogiboks. Saate valida saadaoleva vormingu ja seejärel klõpsata nuppu "OK".
6. Pärast sõnumiaknasse naasmist näete meili sisus praegust kuupäeva või kellaaega. Vaikimisi ei luba Outlook teil teemale välja „Kuupäev ja kellaaeg” rakendada.
7. Seega, kui soovite lisada teemasse kuupäeva või kellaaega, peate need kehast kopeerima ja käsitsi teemasse kleepima.

See meetod on soovitatav, kui teil on harva vaja praegust kuupäeva või kellaaega sisestada. Kuid eeldusel, et peate sageli või alati sisestama, peaksite selle automaatseks saavutamiseks kasutama järgmisi VBA koode.

Automaatne lisamine Outlook VBA-ga

1. Esiteks vajutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
2. Seejärel topeltklõpsake selle avamiseks vasakpoolses servas projekti "ThisOutlookSession".
3. Järgmisena kopeerige sellesse järgmised koodid.

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

Märge: Ülaltoodud koodid töötavad praeguse kellaaja automaatseks sisestamiseks teemasse ja kehasse. Kui soovite sisestada praeguse kuupäeva, asendage "objMail_Open” alam, millel on järgmised andmed:

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. Seejärel allkirjastage see kood nagu tavaliselt.
5. Hiljem, restart Outlook makro aktiveerimiseks.
6. Lõpuks saate proovida.

• Uue e-kirja avamiseks klõpsake otse nuppu "Uus e-kiri".
• Näete, et uus automaatne meilisõnum sisaldab praegust kuupäeva või kellaaega teemas ja kehas, nagu alloleval pildil:

Ärge usaldage lihtsalt tundmatuid e-kirju

Olete kindlasti kunagi saanud rämpsposti. Kuidas te nendega tavaliselt toime tulete? Seda tüüpi kirjade manuseid või linke ei ole soovitatav alla laadida, kuna need võivad sisaldada viirusi. Kui teie Outlooki andmed on nakatunud, ei toimi postkasti parandamise tööriist Scanpst.exe. Sel juhul ei jää muud üle, kui pöörduda kogenuma poole PST parandus tööriist, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud SQL Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom