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

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

U prethodnoj strost - "Kako automatski dodati trenutni datum u teme vaših Outlook e-poruka“, možete naučiti kako automatski dodati trenutni datum ili vrijeme predmetu. Ali metoda u toj strost je jednostavno kreirati prilagođeni oblik poruke. Dakle, svaki put kada želite da kreirate novu e-poštu sa trenutnim datumom ili vremenom u predmetu, morate da izaberete prilagođeni obrazac umesto da kreirate novu e-poštu kao i obično. Očigledno, to će biti prilično glomazno.

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

Ručno umetnuti po polju „Datum i vrijeme“.

1. Za start sa, pokrenite Outlook.
2. Zatim kreirajte novu poruku klikom na dugme "Nova e-pošta" u grupi "Novo" pod karticom "Početna".
3. Nakon toga, u prozoru Nove poruke, možete kliknuti na tijelo e-pošte i okrenuti se na karticu „Umetanje“.
4. Zatim možete pronaći i kliknuti na polje "Datum i vrijeme" u grupi "Tekst".
5. Nakon toga, pojavit će se novi dijaloški okvir. Možete odabrati dostupni format i zatim kliknuti na dugme “OK”.
6. Nakon što se vratite u prozor poruke, možete vidjeti trenutni datum ili vrijeme u tijelu e-pošte. Outlook vam podrazumevano ne dozvoljava da primenite polje „Datum i vreme“ na temu.
7. Stoga, konačno, ako želite umetnuti datum ili vrijeme u temu, morate ih kopirati iz tijela i ručno zalijepiti na temu.

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

Automatsko umetanje sa Outlook VBA

1. Prvo, pritisnite tipke “Alt + F11” za pristup VBA editoru.
2. Zatim dvaput kliknite na projekat “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 će raditi za automatsko umetanje trenutnog vremena u subjekt i tijelo. Ako želite da unesete trenutni datum, zamijenite "objMail_Open” sub 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 da aktivirate makro.
6. Konačno možete probati.

• Direktno kliknite na dugme “Nova e-pošta” da otvorite novu e-poštu.
• Naći ćete da nova automatska e-poruka sadrži trenutni datum ili vrijeme u predmetu i tijelu, kao na slici ispod:

Ne vjerujte nepoznatim e-porukama

Sigurno ste ikada primali neželjene e-poruke. Kako se obično nosite s njima? Nije preporučljivo preuzimati priloge ili otvarati linkove u ovoj vrsti mailova jer mogu sadržavati viruse. Kada se vaši Outlook podaci zaraze, alat za popravku prijemnog sandučeta, Scanpst.exe, neće imati efekta. U ovom slučaju, nemate izbora osim da pribjegnete iskusnijem PST fix alat, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući korumpiran SQL Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com