ExcelスプレッドシートからOutlookのリマインダーを作成するにはどうすればよいですか?
この記事では、Excelスプレッドシートのデータに基づいてOutlookのリマインダーを作成する方法について説明します。
VBAコードを使用してExcelスプレッドシートからOutlookリマインダーを作成する
VBAコードを使用してExcelスプレッドシートからOutlookリマインダーを作成する
ExcelからOutlookのリマインダーを作成したい場合は、次の手順に従ってください。
1. スクリーンショットに示すように、列ヘッダーと対応するリマインダーフィールドを含むワークシートを作成します。

注: 「予定状況」列では、数字「2」はリマインダーがOutlookカレンダーで「予定あり」として表示されることを意味します。「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カレンダーに挿入されます。
その後、Outlookのカレンダーに移動して結果を確認できます。スクリーンショットをご覧ください:

最高のオフィス生産性ツール
速報: Kutools for Outlook が無料版をリリース!
新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます!今すぐダウンロードをクリック!
🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。
📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...
📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...
👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除...
Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう!

