Outlook でタスクを作成する際、既定の開始日を今日に設定するにはどうすればよいですか？

Outlook でタスクを作成すると、「開始日」が以下のスクリーンショットのように、既定で「なし」として表示されます。しかし、場合によっては開始日を頻繁に「今日」に設定する必要があり、そのたびに「開始日」フィールドで日付を手動で選択しなければなりません。Outlook でタスクを作成する際に、開始日の既定値を自動的に「今日」に設定する簡単な方法はあるでしょうか？

VBA コードを使用して Outlook でタスクを作成する際に、既定の開始日を今日に設定する

---

VBA コードを使用して Outlook でタスクを作成する際に、既定の開始日を今日に設定する

Outlook 上でこのタスクを直接処理する他の良い方法はないかもしれませんが、ここでは VBA コードを使った解決法をご紹介します。以下の手順に従ってください。

1．Outlook を起動し、ALT + F11 キーを押してMicrosoft Visual Basic for Applications ウィンドウを開きます。

2．Microsoft Visual Basic for Applicationsウィンドウで、ThisOutlookSessionをProject1 (VbaProject.OTM)ペインからダブルクリックしてモジュールを開き、次のコードを空のモジュールにコピー＆ペーストしてください。

VBA コード：既定の開始日を今日に設定する：

Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xTaskItem As Outlook.TaskItem
Private Sub Application_Startup()
   Set xInspectors = Outlook.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
    If Not (TypeOf Inspector.CurrentItem Is TaskItem) Then Exit Sub
    Set xTaskItem = Inspector.CurrentItem
End Sub
Private Sub xTaskItem_Open(Cancel As Boolean)
If (Len(xTaskItem.Subject) = 0 And Len(xTaskItem.Body) = 0) And (xTaskItem.StartDate = #1/1/4501# And xTaskItem.DueDate = #1/1/4501#) Then
    xTaskItem.StartDate = Now
End If
End Sub

3．コードを挿入したら、2 行目のコード部分にカーソルを置き、F5キーを押してコードを実行してください（下記スクリーンショット参照）。

4．これ以降、タスクを作成するたびに、Outlook は開始日と終了日を自動的に現在の日付に設定します（以下のスクリーンショットのとおり）。