Kako samodejno vstaviti trenutni datum ali čas v zadevo ali telo e-pošte z Outlookom VBA

Mnogi uporabniki so navajeni vstaviti trenutni datum ali uro v zadevo ali telo e-poštnega sporočila, ko sestavljajo novo e-poštno sporočilo. Ta članek vas bo naučil, kako to doseči v kratkem času.

V prejšnji strost - "Kako samodejno dodati trenutni datum zadevam vaših Outlookovih e-poštnih sporočil«, se lahko naučite, kako zadevi samodejno dodate trenutni datum ali uro. Toda metoda v tem post je preprosto ustvariti obliko sporočila po meri. Tako morate vsakič, ko želite ustvariti novo e-poštno sporočilo s trenutnim datumom ali uro v zadevi, izbrati obrazec po meri, namesto da ustvarite novo e-poštno sporočilo kot običajno. Očitno bo precej okoren.

Pravzaprav nam je Outlook že ponudil izvorno polje za vstavljanje datuma ali ure. Prav tako lahko uporabite Outlook VBA za samodejno vstavljanje trenutnega datuma ali časa v telo ali zadevo novega e-poštnega sporočila. Katero metodo izberete, je odvisno od tega, kako pogosto morate vstaviti datum ali čas.

Ročno vstavi po polju »Datum in čas«.

1. Za starZaženite Outlook.
2. Nato ustvarite novo sporočilo s klikom na gumb »Nova e-pošta« v skupini »Novo« pod zavihkom »Domov«.
3. Nato lahko v oknu Novo sporočilo kliknete telo e-pošte in se obrnete na zavihek »Vstavi«.
4. Nato lahko najdete in kliknete polje »Datum in čas« v skupini »Besedilo«.
5. Po tem se prikaže novo pogovorno okno. Izberete lahko razpoložljivo obliko in nato kliknete gumb »V redu«.
6. Ko se vrnete v okno sporočila, lahko vidite trenutni datum ali čas v telesu e-pošte. Outlook privzeto ne dovoli uporabe polja »Datum in čas« za zadevo.
7. Torej, končno, če želite v zadevo vstaviti datum ali uro, ju morate kopirati iz telesa in ročno prilepiti v zadevo.

Ta način je bolj priporočljiv, če redko potrebujete trenutni datum ali čas. Če pa morate pogosto ali vedno vstavljati, je bolje, da uporabite naslednje kode VBA, da to dosežete samodejno.

Samodejno vstavljanje z Outlookom VBA

1. Najprej pritisnite tipke »Alt + F11« za dostop do urejevalnika VBA.
2. Nato dvokliknite projekt »ThisOutlookSession« na levi strani, da ga odprete.
3. Nato vanj kopirajte naslednje kode.

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

Opomba: Zgornje kode bodo delovale za samodejno vstavljanje trenutnega časa v predmet in telo. Če želite vstaviti trenutni datum, zamenjajte »objMail_Open” pod z naslednjim:

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. Nato podpišite to kodo kot običajno.
5. Kasneje restart Outlook za aktiviranje makra.
6. Končno lahko poskusite.

• Neposredno kliknite gumb »Nova e-pošta«, da odprete novo e-pošto.
• Ugotovili boste, da novo samodejno e-poštno sporočilo vsebuje trenutni datum ali uro v zadevi in ​​telesu, kot je spodnja slika:

Ne zaupajte takoj neznanim e-poštnim sporočilom

Gotovo ste že kdaj prejeli neželeno e-pošto. Kako se običajno spopadate z njimi? V tovrstnih sporočilih ni priporočljivo prenašati priponk ali odpirati povezav, saj lahko vsebujejo viruse. Ko so vaši Outlookovi podatki okuženi, orodje za popravilo mape »Prejeto« Scanpst.exe ne bo delovalo več. V tem primeru vam ne preostane drugega, kot da se zatečete k bolj izkušenemu PST popravek orodje, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan SQL Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com