Outlookでスケジュールされた定期メールを送信する2つの方法とは？

Author: Siluvia Last Modified: 2025-05-23

Microsoft Outlookでは、定期的な予定、会議、またはタスクのスケジュール設定は簡単です。しかし、予定、会議、またはタスクに添付せずに定期的なメールを送信する必要がある場合はどうすればよいでしょうか？残念ながら、Outlookにはこの目的のために組み込みの機能がありません。ただし、このチュートリアルでは、Outlookでスケジュールされた定期メールを送信するための2つの解決策をご紹介します。

VBAコードを使用してOutlookでスケジュールされた定期メールを送信する（複雑）

素晴らしいツールを使って簡単にOutlookでスケジュールされた定期メールを送信する（簡単、無料、複数のテンプレートに対応）

VBAコードを使用してOutlookでスケジュールされた定期メールを送信する（複雑）

このチュートリアルは4つのパートに分かれており、これらのパートを終えるとスケジュールされた定期メールを成功裏に送信できるようになります。以下の手順に従ってください。

パート1：新しい予定を作成する

1. 「ナビゲーションペイン」の「カレンダー」をクリックして「カレンダー」ビューに移動し、「ホーム」タブの下にある「新規予定」をクリックして新しい予定を作成してください。

3. 「予定」タブの下の「予定」ダイアログで、次の操作を行う必要があります：

A: 「件名」を入力する	B: 「場所」に受信者のメールアドレスを入力する
C: 「開始時間」と「終了時間」を設定する	D: 「リマインダー」ドロップダウンリストからリマインダーを選択する 15分を選択した場合、メールが送信される15分前に通知されます。
E: 「予定本文」を作成する

注意: 「予定の件名」は定期メールの件名になり、「予定本文」は受信者がメールを受け取った際に定期メールの本文となります。

パート2：新しいカテゴリを作成する

次に、「Send Schedule Recurring Email」という新しいカテゴリを作成します。手順は次の通りです：

1. 「予定」ダイアログで、「予定」タブの「タグ」グループにある「カテゴリ」＞「すべてのカテゴリ」をクリックしてください。

2. 「カラーカテゴリー」ダイアログが表示されたら、「新規」ボタンをクリックします。「新しいカテゴリの追加」ダイアログで、「名前」フィールドに“Send Schedule Recurring Email”と入力し、「色」ドロップダウンリストから色を選択します。その後、「OK」をクリックします。

3. すると、“Send Schedule Recurring Email”カテゴリがリストに表示されるので、チェックボックスをオンにして「OK」ボタンをクリックします。

パート3：繰り返し設定を行う

さて、予定の繰り返し設定を行う時です。

1. 「予定」タブの「オプション」グループにある「繰り返し」をクリックします。スクリーンショットをご覧ください：

2. 「予定の繰り返し」ダイアログで、「繰り返し」パターンを設定します。終了時間を設定する必要がある場合は、「繰り返し範囲」で設定し、「OK」をクリックします。

3. 「予定」ダイアログに戻ったら、「保存して閉じる」ボタンをクリックします。スクリーンショットをご覧ください：

パート4：スケジュールされた定期メールを送信するためのVBAコードを使用する

1. 「Alt」＋「F11」を押して「Microsoft Visual Basic for Applications」ダイアログを開きます。

2. 左ペインで「Project1」＞「Microsoft Outlook Object」＞「ThisOutlookSession」をダブルクリックします。スクリーンショットをご覧ください：

3. 次のVBAコードをコピーしてVBAエディターに貼り付け、「保存」ボタンをクリックします。

VBA：スケジュールされた定期メールの送信

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. 「ツール」＞「参照設定」をクリックして「References - Project」ダイアログを開きます。ダイアログで「Microsoft Word Object Library」オプションをチェックし、「OK」ボタンをクリックします。