Ako automaticky vložiť aktuálny dátum alebo čas do e-mailového subjektu alebo tela pomocou programu Outlook VBA

Mnoho používateľov je pri vytváraní nového e-mailu zvyknutých vložiť aktuálny dátum alebo čas do predmetu alebo tela e-mailu. Tento článok vás naučí, ako to dosiahnuť v rýchlom čase.

V predchádzajúcej strost - "Ako automaticky pridať aktuálny dátum k predmetom vašich e-mailov služby Outlook”, Môžete sa naučiť, ako automaticky pridať k predmetu aktuálny dátum alebo čas. Ale metóda v tom strost je jednoducho vytvoriť vlastnú formu správy. To znamená, že zakaždým, keď chcete vytvoriť nový e-mail s aktuálnym dátumom alebo časom v predmete, musíte namiesto vytvorenia nového e-mailu obvyklým spôsobom zvoliť vlastný formulár. Je zrejmé, že to bude dosť ťažkopádne.

V skutočnosti nám Outlook už ponúkol natívne pole na vloženie dátumu alebo času. Môžete tiež použiť aplikáciu Outlook VBA na automatické vloženie aktuálneho dátumu alebo času do tela alebo predmetu nového e-mailu. Čo sa týka spôsobu, ktorý si vyberiete, záleží na tom, ako často musíte vkladať dátum alebo čas.

Ručné vloženie do poľa „Dátum a čas“

1. K stars, spustite program Outlook.
2. Potom vytvorte novú správu kliknutím na tlačidlo „Nový e-mail“ v ​​skupine „Nový“ na karte „Domov“.
3. Následne v okne Nová správa môžete kliknúť na telo e-mailu a prejsť na kartu „Vložiť“.
4. Ďalej môžete nájsť a kliknúť na pole „Dátum a čas“ v skupine „Text“.
5. Potom sa zobrazí nové dialógové okno. Môžete zvoliť dostupný formát a potom kliknúť na tlačidlo „OK“.
6. Po návrate do okna správy sa v tele e-mailu zobrazí aktuálny dátum alebo čas. Aplikácia Outlook predvolene neumožňuje použiť na predmet pole „Dátum a čas“.
7. Nakoniec teda, ak chcete vložiť dátum alebo čas do predmetu, musíte ich skopírovať z tela a vložiť do predmetu ručne.

Táto metóda sa odporúča viac, ak zriedka potrebujete vložiť aktuálny dátum alebo čas. Ale za predpokladu, že ich často alebo vždy potrebujete vložiť, mali by ste radšej použiť nasledujúce kódy VBA, aby ste to dosiahli automaticky.

Automatické vkladanie pomocou Outlooku VBA

1. Na prvom mieste stlačte klávesovú skratku „Alt + F11“, aby ste sa dostali do editora VBA.
2. Potom dvakrát kliknite na projekt „ThisOutlookSession“ na ľavej strane, aby ste ho otvorili.
3. Ďalej do nej skopírujte nasledujúce kódy.

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

Poznámka: Vyššie uvedené kódy budú fungovať na automatické vloženie aktuálneho času do predmetu a tela. Ak chcete vložiť aktuálny dátum, nahraďte „objMail_Open”Bod s nasledujúcimi:

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. Následne tento kód podpíšte ako obvykle.
5. Neskôr restart Outlook na aktiváciu makra.
6. Nakoniec to môžete vyskúšať.

• Priamym kliknutím na tlačidlo „Nový e-mail“ otvoríte nový e-mail.
• Zistíte, že nový automatický e-mail obsahuje aktuálny dátum alebo čas v predmete a tele, ako na obrázku nižšie:

Nedôverujte v neznáme e-maily ľahko

Určite ste už niekedy dostali nevyžiadané e-maily. Ako s nimi obvykle naložíte? Stiahnutie príloh alebo otvorenie odkazov v tomto druhu e-mailov sa neodporúča, pretože môžu obsahovať vírusy. Po infikovaní údajov Outlooku nebude mať nástroj na opravu doručenej pošty program Scanpst.exe žiadny efekt. V takom prípade vám nezostáva nič iné, ako sa uchýliť k skúsenejším Oprava PST nástroj, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený SQL Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S