如何使用Outlook VBA自動將當前日期或時間插入電子郵件主題或正文

Outlook解決方案 2025 年 9 月 29 日
立即分享：

許多用戶習慣於在撰寫新電子郵件時將當前日期或時間插入到電子郵件主題或正文中。 本文將教您如何快速實現它。

在上一個ost - “如何將當前日期自動添加到Outlook電子郵件的主題”中，您可以了解如何自動將當前日期或時間添加到主題中。 但是那個p中的方法ost 僅僅是創建自定義形式的消息。 因此，通過這種方式，每次您要創建主題為當前日期或時間的新電子郵件時，都必須選擇自定義表格，而不是像往常一樣創建新電子郵件。 顯然，這將很麻煩。

實際上，Outlook已經為我們提供了一個本地字段來插入日期或時間。 另外，您可以應用Outlook VBA將當前日期或時間自動插入到新電子郵件的正文或主題中。 至於選擇哪種方法，取決於您插入日期或時間的頻率。

在“日期和時間”字段中手動插入

  1. 到tar然後啟動Outlook。
  2. 然後通過單擊“主頁”選項卡下“新建”組中的“新建電子郵件”按鈕來創建新消息。
  3. 隨後，在“新消息”窗口中，您可以單擊進入電子郵件正文並轉到“插入”選項卡。
  4. 接下來，您可以找到並單擊“文本”組中的“日期和時間”字段。查找日期和時間字段
  5. 之後，將出現一個新對話框。 您可以選擇一種可用格式，然後單擊“確定”按鈕。選擇日期和時間的格式
  6. 返回消息窗口後，您可以在電子郵件正文中看到當前日期或時間。 默認情況下，Outlook不允許您將“日期和時間”字段應用於主題。郵件正文中的當前日期或時間
  7. 因此，最後，如果要插入主題的日期或時間，則必須從正文中復制它們或將它們手動粘貼到主題中。

如果您很少需要插入當前日期或時間，則建議使用此方法。 但是，如果您經常或總是需要插入，則最好使用以下VBA代碼自動實現。

使用Outlook VBA自動插入

  1. 首先，按“ Alt + F11”鍵按鈕訪問VBA編輯器。
  2. 然後雙擊左側的“ ThisOutlookSession”項目以將其打開。
  3. 接下來，將以下代碼複製到其中。
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

VBA代碼-自動將當前日期或時間插入電子郵件主題或正文

請注意： 上面的代碼將自動將當前時間插入對象和身體。 如果要插入當前日期，請替換“objMail_打開”，其內容如下：

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
  1. 隨後，照常簽名此代碼。
  2. 後來，水庫tart Outlook激活宏。
  3. 最後，您可以嘗試一下。
  • 直接單擊“新電子郵件”按鈕以打開新電子郵件。新郵件
  • 您會發現新的電子郵件自動包含主題和正文中的當前日期或時間，如下圖所示：郵件主題或正文中的當前日期或時間

不要輕易信任未知的電子郵件

您必須曾經收到過垃圾郵件。 您通常如何處理它們？ 不建議下載此類郵件中的附件或打開鏈接，因為它們可能包含病毒。 一旦Outlook數據被感染，收件箱修復工具Scanpst.exe將不會生效。 在這種情況下，您別無選擇，只能求助於經驗更豐富的人。 PST修復 工具，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞 SQL Server 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。