如何在 Outlook 的郵件中插入日期選擇器？

Author: Siluvia Last Modified: 2025-08-06

假設您需要向同事發送工作計劃，為不同的人分配不同的任務並指定不同的日期。然而，您擔心手動輸入日期會出錯，因此需要一個日期選擇器。本教程提供了一種方法，幫助您在 Outlook 的郵件中插入日期選擇器。

doc-insert-date-picker-1

使用 VBA 程式碼在 Outlook 郵件中插入日期選擇器

您可以運行以下 VBA 程式碼來在 Outlook 郵件中插入日期選擇器。請按照以下步驟操作：

啟動您的 Outlook，按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

在左側窗格中，雙擊 Project1 > Microsoft Outlook Objects > ThisOutlookSession, 然後將以下 VBA 程式碼複製到 ThisOutlookSession (程式碼) 視窗中。

VBA 程式碼：在 Outlook 郵件中插入日期選擇器

Sub DatePicker()
'Updated by Extendoffice 20220615
  Dim xDoc As Document
  On Error Resume Next
  Set xDoc = Application.ActiveInspector.WordEditor
  With xDoc.Application.Selection
    .Range.ContentControls.Add (wdContentControlDate)
    .ParentContentControl.DateDisplayFormat = "MMMM d, yyyy"
    .InsertAfter Format(Now(), "MMMM d, yyyy")
    .MoveRight wdCharacter, 1
  End With
End Sub

注意：在程式碼中，您可以將 "MMMM d, yyyy" 更改為所需的日期格式。

保持在 Microsoft Visual Basic for Applications 視窗中，點擊工具 > 參考資料。
在 References – Project1 對話框中，勾選 Microsoft Word 16.0 Object Library 選項，然後點擊確定保存更改。
按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 視窗。
在郵件檢視中，點擊首頁標籤下的 新建郵件 按鈕以創建新郵件。
在郵件窗口中，點擊 自定義快速訪問工具欄 按鈕，然後選擇 更多命令 從下拉菜單中。見截圖：
在 Outlook 選項 窗口中，您需要進行如下配置：
1. 在“從以下位置選擇命令”下拉列表中選擇宏；
2. 在左側的命令框中選擇您上面創建的腳本；
3. 點擊添加按鈕。
4. 保持右側框中的腳本被選中，然後點擊修改按鈕。在 修改按鈕 對話框中，為腳本分配一個新的按鈕並點擊確定。
5. 在 Outlook 選項 窗口中點擊確定保存更改。
現在，VBA 腳本已添加到 快速訪問工具欄，並顯示為您指定的圖標。
從現在開始，在撰寫郵件時，您可以點擊快速訪問工具欄上的日期選擇器圖標，將日期選擇器插入郵件正文中，然後從中選擇您需要的日期。請參閱以下演示。

注意：

您可以將多個日期選擇器插入郵件的正文中。
您可以更改已選擇的日期：點擊日期字段以顯示日期控件，然後根據需要選擇新日期。
此日期選擇器也可以插入約會或任務的正文中。如果需要，創建新的約會或任務並重複上述第 7-8 步即可實現。
如果您重新啟動 Outlook 後發現腳本無法運行，這是因為宏被禁用了。您需要按照以下步驟重新啟用宏：
1. 點擊文件 > 選項進入 Outlook 選項 窗口。
2. 點擊 信任中心 > 信任中心設置。
3. 在 信任中心 窗口中，點擊 宏設置 標籤，選擇 啟用所有宏 選項，然後點擊確定 > 確定保存新設置。
4. 再次重新啟動 Outlook。