ExcelスプレッドシートからOutlookのリマインダーを作成するにはどうすればよいですか？

作者: シルヴィア最終更新日：2024年09月18日

この記事では、Excelスプレッドシートのデータに基づいてOutlookリマインダーを作成する方法について説明します。

VBAコードを使用したExcelスプレッドシートからのクレタ島のOutlookリマインダー

VBA コードを使用して Excel スプレッドシートから Outlook リマインダーを作成する

ExcelからOutlookのリマインダーを作成する場合は、次のようにしてください。

1.以下のスクリーンショットに示すように、列ヘッダーと対応するリマインダーフィールドを含むワークシートを作成します。

vab を使用して Excel スプレッドシートから Outlook リマインダーを作成する手順

注意：のために ビジー状態 列、番号 2 リマインダーが次のように表示されることを意味します 忙しい Outlookカレンダーで。あなたはそれをに変更することができます 1（暫定）, 3（不在）, 4（他の場所での作業）または 5（無料） 必要に応じて

2。プレス他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。次に、以下の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のカレンダーに一度に挿入されます。

次に、Outlookのカレンダーに移動して、結果を表示できます。スクリーンショットを参照してください。