如何從 Excel 試算表建立 Outlook 提醒？

本文將介紹如何根據 Excel 試算表中的資料，輕鬆建立 Outlook 提醒。

使用 VBA 程式碼從 Excel 試算表建立 Outlook 提醒

---

使用 VBA 程式碼從 Excel 試算表建立 Outlook 提醒

若想從 Excel 建立 Outlook 提醒，請依照下列步驟操作。

1. 建立一個工作表，其中包含如下方截圖所示的欄位標題及對應的提醒欄位。

注意：「忙碌狀態」欄位中的數字「2」表示該提醒在您的行事曆中會顯示為「忙碌」。您可依需求將其更改為「1（暫定）」、「3（外出中）」、「4（在其他地方工作）」或「5（空閒）」。

2. 按下「Alt」+「F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

3. 在「Microsoft Visual Basic for Applications」視窗中，點選「插入」>「模組」，然後將下列 VBA 程式碼貼上至程式碼視窗中。

VBA 程式碼：從 Excel 試算表建立 Outlook 提醒

Sub AddAppointments()
'Update by Extendoffice 20180608
    Dim I As Long
    Dim xRg As Range
    Dim xOutApp As Object
    Dim xOutItem As Object
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = Range("A2:G2")
    For I = 1 To xRg.Rows.Count
        Set xOutItem = xOutApp.CreateItem(1)
        Debug.Print xRg.Cells(I, 1).Value
        xOutItem.Subject = xRg.Cells(I, 1).Value
        xOutItem.Location = xRg.Cells(I, 2).Value
        xOutItem.Start = xRg.Cells(I, 3).Value
        xOutItem.Duration = xRg.Cells(I, 4).Value
        If Trim(xRg.Cells(I, 5).Value) = "" Then
            xOutItem.BusyStatus = 2
        Else
            xOutItem.BusyStatus = xRg.Cells(I, 5).Value
        End If
        If xRg.Cells(I, 6).Value > 0 Then
            xOutItem.ReminderSet = True
            xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
        Else
            xOutItem.ReminderSet = False
        End If
        xOutItem.Body = xRg.Cells(I, 7).Value
        xOutItem.Save
        Set xOutItem = Nothing
    Next
    Set xOutApp = Nothing
End Sub

注意：上述程式碼中的「A2:G2」是您用來建立約會的資料範圍。

4. 按下「F5」鍵或點擊「執行」按鈕，即可一鍵將所有包含特定欄位的約會自動新增至您的行事曆。

接著，您可前往 Outlook 行事曆查看結果，詳情請參閱下方截圖：