Outlookで新しいタスクを作成するときに、デフォルトの開始日を今日に設定するにはどうすればよいですか？

Outlookで新しいタスクを作成すると、「開始日」は "なし次のスクリーンショットに示すように、デフォルトでは」。ただし、今日を開始日として頻繁に設定する必要がある場合があるため、「開始日」フィールドで日付を毎回手動で選択する必要があります。 Outlookで新しいタスクを作成するときに、デフォルトの開始日を今日として自動的に設定する簡単な方法はありますか？

OutlookでVBAコードを使用して新しいタスクを作成するときに、デフォルトの開始日を今日に設定します

OutlookでVBAコードを使用して新しいタスクを作成するときに、デフォルトの開始日を今日に設定します

Outlookでこのタスクを直接処理する他の良い方法はないかもしれません。ここでは、それを解決するためのVBAコードを紹介します。次の手順で実行してください。

1。 Outlookを起動し、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession 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