Outlook 簽名檔日期自動更新：VBA 腳本方案實戰

痛點：Word 域日期無法自動刷新

Outlook 內建簽名支援 Word 域（如 CREATEDATE），但新建郵件時不會自動更新為當前日期，需手動按 F9 刷新，體驗極差。本文提供 VBA 腳本方案：以 HTML 簽名取代內建簽名，每次新建郵件動態注入當前日期。

前置條件

• Outlook 宏安全性設為 「低」（工具 → 宏 → 安全性 → 低）
• 關閉原有內建簽名設定

實作步驟

1. 開啟 Outlook → Alt+F11 開啟 VBA 編輯器
2. 專案瀏覽器選中 ThisOutlookSession
3. 貼入下列代碼並修改個人資訊
4. 儲存、重啟 Outlook、確認宏安全性為低

核心 VBA 代碼

'------------------------------------------------------------------
Dim myOlApp As New Outlook.Application
Private WithEvents myOlInspectors As Outlook.Inspectors
Private myMailItem As Outlook.MailItem

Function Signature() As String
    Dim mDate As Date
    mDate = Format(Now, "yyyy-MM-dd")  ' 當前日期
    
    Signature = ""
    Signature = Signature & "
 
"
    Signature = Signature & "
" & mDate & " 
"
    Signature = Signature & "致禮！
"
    Signature = Signature & "
尚德明
"
    Signature = Signature & "//---------------------------------------------------------------
"
    Signature = Signature & " 德國倍福自動化有限公司上海代表處
"
    Signature = Signature & " ADD.: 上海市江場三路市北工業園區163 號5樓（200436 ）
"
    Signature = Signature & " TEL:    021-66312666-837 
"
    Signature = Signature & " FAX:    021-66315696 
"
    Signature = Signature & " MAIL:   d.shang@beckhoff.com.cn 
"
    Signature = Signature & " Web:   www.beckhoff.com.cn
"
    Signature = Signature & "        www.pc-control.net
"
    Signature = Signature & "        www.ethercat.org  
"
    Signature = Signature & "//---------------------------------------------------------------"
    Signature = Signature & ""
End Function

Private Sub Application_Startup()
    Set myOlInspectors = myOlApp.Inspectors
End Sub

Private Sub myOlInspectors_NewInspector(ByVal Inspector As Inspector)
    Set myMailItem = Inspector.CurrentItem
    With myMailItem
        .HTMLBody = Signature()  ' 注入動態 HTML 簽名
        .Display ' Outlook 2007 請註釋此行
    End With
End Sub
'----------------------------------------------------------------------------------

關鍵機制解析

自訂化指南

• 修改 Format(Now, "yyyy-MM-dd") 調整日期格式
• 替換 HTML 字串中的個人/公司資訊
• 調整 font-size、顏色、連結等樣式
• Outlook 2007+ 需註釋 .Display 行，否則會強制彈窗

優缺點評估

企業級部署建議

1. 簽名模板外部化（存檔案/資料庫/SharePoint），VBA 僅負責讀取模板+填充變數。
2. 配合群組策略分發 VbaProject.OTM 或使用加載項 (VSTO) 替代宏。
3. 數位簽章 VBA 專案，提升安全性並允許「中等」宏安全級別。