Kako automatski umetnuti trenutni datum ili vrijeme u predmet ili tijelo e-pošte s programom Outlook VBA

Mnogi su korisnici navikli umetati trenutni datum ili vrijeme u predmet ili tijelo e-pošte kada sastavljaju novu e-poruku. Ovaj članak će vas naučiti kako to postići u kratkom vremenu.

U prethodnoj strost - "Kako automatski dodati trenutni datum predmetima vaših Outlook e-poruka”, možete naučiti kako automatski dodati trenutni datum ili vrijeme predmetu. Ali metoda u toj strost je jednostavno stvoriti prilagođeni oblik poruke. Prema tome, svaki put kada želite stvoriti novu e-poštu s trenutnim datumom ili vremenom u predmetu, morate odabrati prilagođeni obrazac umjesto da kreirate novu e-poštu kao inače. Očito će biti prilično glomazan.

Zapravo, Outlook nam je već ponudio izvorno polje za umetanje datuma ili vremena. Također, možete primijeniti Outlook VBA za automatsko umetanje trenutnog datuma ili vremena u tijelo ili predmet nove e-pošte. Što se tiče metode koju odaberete, ovisi o tome koliko često trebate umetati datum ili vrijeme.

Ručno umetanje prema polju "Datum i vrijeme".

1. Za start pomoću, pokrenite Outlook.
2. Zatim stvorite novu poruku klikom na gumb "Nova e-pošta" u grupi "Novo" pod karticom "Početna".
3. Nakon toga, u prozoru Nova poruka, možete kliknuti na tijelo e-pošte i okrenuti se na karticu "Umetni".
4. Zatim možete pronaći i kliknuti polje "Datum i vrijeme" u grupi "Tekst".
5. Nakon toga će se pojaviti novi dijaloški okvir. Možete odabrati dostupni format i zatim kliknuti gumb "OK".
6. Nakon povratka u prozor poruke, možete vidjeti trenutni datum ili vrijeme u tijelu e-pošte. Prema zadanim postavkama, Outlook vam ne dopušta primjenu polja "Datum i vrijeme" na temu.
7. Dakle, konačno, ako želite umetnuti datum ili vrijeme u predmet, morate ih kopirati iz tijela i ručno zalijepiti u predmet.

Ova metoda se više preporučuje ako rijetko trebate umetnuti trenutni datum ili vrijeme. Ali pod uvjetom da morate često ili uvijek umetati, bolje je da koristite sljedeće VBA kodove da biste to postigli automatski.

Automatsko umetanje s programom Outlook VBA

1. Na prvom mjestu pritisnite tipke "Alt + F11" za pristup VBA uređivaču.
2. Zatim dvaput kliknite projekt “ThisOutlookSession” na lijevoj strani da biste ga otvorili.
3. Zatim kopirajte sljedeće kodove u njega.

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

Bilješka: Gore navedeni kodovi funkcionirat će za automatsko umetanje trenutnog vremena u predmet i tijelo. Ako želite umetnuti trenutni datum, zamijenite "objMail_Otvori” pod sa sljedećim:

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. Nakon toga potpišite ovaj kod kao i obično.
5. Kasnije, restart Outlook za aktiviranje makronaredbe.
6. Konačno možete pokušati.

• Izravno kliknite gumb "Nova e-pošta" za otvaranje nove e-pošte.
• Vidjet ćete da nova automatska poruka e-pošte sadrži trenutni datum ili vrijeme u predmetu i tijelu, kao na slici ispod:

Ne vjerujte odmah nepoznatim e-porukama

Sigurno ste ikada primili bezvrijednu e-poštu. Kako se obično nosite s njima? Nije preporučljivo preuzimati privitke ili otvarati poveznice u ovakvim mailovima jer mogu sadržavati viruse. Nakon što se vaši Outlook podaci zaraze, alat za popravak pristigle pošte, Scanpst.exe, neće imati učinka. U ovom slučaju nemate drugog izbora nego pribjeći iskusnijem PST popravak alat, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući korumpiran SQL Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com