如何在 Outlook 中將假日新增至預設、第二個或公用行事曆？

您是否曾發現，您的行事曆可能不會自動顯示您所在國家的假日？對許多使用者來說，掌握國定假日（例如公共慶典、銀行假日或重要文化節日）對於妥善規劃個人與專業行程至關重要。Outlook 內建強大功能，能輕鬆將多國假日直接新增至您的預設行事曆。若您需要管理多個行事曆（如個人、公司或公用／共用行事曆），也可依需求將這些假日複製到其他行事曆中。善用這些選項，不僅確保您絕不錯過任何重要日期，更能讓跨團隊或跨地區的協作行程清晰有序、無縫銜接。

• 在 Outlook 的預設行事曆中新增假日
• 在 Outlook 的第二個／公用／所有行事曆中新增假日
• 使用 VBA 程式碼將假日活動批次匯入至任意行事曆

---

在 Outlook 的預設行事曆中新增假日

在 Outlook 的第二個／公用／所有行事曆中新增假日

---

使用 VBA 程式碼將假日活動批次匯入至任意行事曆

對於進階使用者或系統管理員來說，在大型組織中，有時需要自動將假日活動新增至任何行事曆（包括共用或公用資料夾）。以下的 VBA 方法可讓您透過可程式化的常式，靈活自訂並大量匯入假日。

1. 在 Outlook 中，選取您要大量匯入假日活動的行事曆（例如次要或公用行事曆），然後按下 Alt+F11，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 VBA 視窗中，點選插入＞ 模組，即可建立新模組。複製並貼上下列程式碼。

VBA 程式碼：在任何已選取的行事曆中大量建立國家假日活動

Sub AddCountryHolidaysToSelectedCalendar()
    Dim objCalendar As Folder
    Dim objApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Dim holidaysArr As Variant
    Dim i As Integer
    Dim xApt As AppointmentItem
    Dim holidayName As String
    Dim holidayDate As Date
    
    On Error Resume Next
    xTitleId = "KutoolsforOutlook"
    
    Set objApp = Outlook.Application
    Set objNS = objApp.GetNamespace("MAPI")
    Set objCalendar = objApp.ActiveExplorer.CurrentFolder
    
    ' Example: Add US holidays for 2024. You can replace or add more.
    holidaysArr = Array( _
        Array("New Year's Day", #1/1/2024#), _
        Array("Independence Day", #7/4/2024#), _
        Array("Thanksgiving Day", #11/28/2024#), _
        Array("Christmas Day", #12/25/2024#) _
    )
    
    For i = LBound(holidaysArr) To UBound(holidaysArr)
        Set xApt = objCalendar.Items.Add(olAppointmentItem)
        xApt.Subject = holidaysArr(i)(0)
        xApt.Start = holidaysArr(i)(1)
        xApt.AllDayEvent = True
        xApt.Categories = "Holiday"
        xApt.Save
        Set xApt = Nothing
    Next
    
    MsgBox "Finished adding holidays to selected calendar!", vbInformation, "KutoolsforOutlook"
    
    Set objCalendar = Nothing
    Set objNS = Nothing
    Set objApp = Nothing
End Sub

3. 開啟模組後，按下 F5 鍵以執行程式碼，陣列中定義的所有假日將自動新增為活動至您目前選取的行事曆資料夾。

選取要求：執行程式碼前，請務必在 Outlook 中選取正確的行事曆（例如次要、共用或公用行事曆）。程式碼僅會將活動新增至目前作用中的行事曆資料夾。

自訂方式：請依需求修改 holidaysArr 陣列，加入所需的假日與日期。若該假日已存在，請先檢查您的行事曆，避免重複新增！

注意事項：多次執行此指令稿將產生重複的假日活動。若需刪除重複項目，請參閱相關的 Outlook 清理指南。

錯誤提示：若出現權限或資料夾類型相關的錯誤，請確認您選取的是標準行事曆資料夾，並擁有「編輯」權限。

摘要建議：在跨多個行事曆管理假日時，請定期檢查是否有重複或過期的活動。建議結合手動與自動化方式，以達最佳成效，特別是在組織環境中。

---

相關文章

---