Jak automaticky vložit aktuální datum nebo čas do předmětu nebo těla e-mailu pomocí aplikace Outlook VBA

Mnoho uživatelů je zvyklých na vložení aktuálního data nebo času do předmětu nebo těla e-mailu při vytváření nového e-mailu. Tento článek vás naučí, jak toho dosáhnout v rychlém čase.

V předchozí strost - "Jak automaticky přidat aktuální datum k předmětům vašich e-mailů aplikace Outlook”, Se můžete dozvědět, jak automaticky přidat aktuální datum nebo čas k předmětu. Ale metoda v tom strost je jednoduše vytvořit vlastní formu zprávy. To znamená, že pokaždé, když chcete vytvořit nový e-mail s aktuálním datem nebo časem v předmětu, musíte místo obvyklého vytvoření nového e-mailu zvolit vlastní formulář. Je zřejmé, že to bude docela těžkopádné.

Ve skutečnosti nám Outlook již nabídl nativní pole pro vložení data nebo času. Můžete také použít Outlook VBA k automatickému vložení aktuálního data nebo času do těla nebo předmětu nového e-mailu. Jakou metodu vyberete, záleží na tom, jak často je třeba vložit datum nebo čas.

Ruční vložení do pole „Datum a čas“

1. Start s, spusťte Outlook.
2. Poté vytvořte novou zprávu kliknutím na tlačítko „Nový e-mail“ ve skupině „Nový“ na kartě „Domů“.
3. Následně v okně Nová zpráva můžete kliknout na tělo e-mailu a přejít na kartu „Vložit“.
4. Dále můžete najít a kliknout na pole „Datum a čas“ ve skupině „Text“.
5. Poté se zobrazí nové dialogové okno. Můžete zvolit dostupný formát a poté kliknout na tlačítko „OK“.
6. Po návratu do okna zprávy se v těle e-mailu zobrazí aktuální datum nebo čas. Ve výchozím nastavení Outlook neumožňuje použít u předmětu pole „Datum a čas“.
7. Konečně tedy, pokud chcete vložit datum nebo čas do předmětu, musíte je zkopírovat z těla a vložit do předmětu ručně.

Tato metoda je doporučenější, pokud zřídkakdy potřebujete vložit aktuální datum nebo čas. Ale za předpokladu, že je často nebo vždy potřebujete vložit, měli byste k dosažení automatického použití lépe použít následující kódy VBA.

Automatické vkládání pomocí aplikace Outlook VBA

1. Nejprve stiskněte klávesy „Alt + F11“ pro přístup do editoru VBA.
2. Poté poklepejte na projekt „ThisOutlookSession“ na levé straně a otevřete jej.
3. Poté do něj zkopírujte následující 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: Výše uvedené kódy budou fungovat k automatickému vložení aktuálního času do předmětu a těla. Pokud chcete vložit aktuální datum, nahraďte „objMail_Open”Sub s následujícími:

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ásledně tento kód podepište jako obvykle.
5. Později restart Outlook aktivovat makro.
6. Nakonec to můžete vyzkoušet.

• Přímým kliknutím na tlačítko „Nový e-mail“ otevřete nový e-mail.
• Zjistíte, že nový e-mail automaticky obsahuje aktuální datum nebo čas v předmětu a těle, jako na obrázku níže:

Nedůvěřujte neznámým e-mailům snadno

Určitě jste někdy dostali nevyžádané e-maily. Jak s nimi obvykle jednáte? Nedoporučuje se stahovat přílohy nebo otevírat odkazy v tomto druhu e-mailů, protože mohou obsahovat viry. Jakmile budou vaše data aplikace Outlook infikována, nástroj pro opravu doručené pošty, Scanpst.exe nebude mít vliv. V takovém případě vám nezbývá než se uchýlit k zkušenějším Oprava PST nástroj, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozen SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com