Outlookで新しいタスクの開始日を今日に自動的に設定する方法

Outlookソリューション 2025 年 9 月 29 日

Outlookで新しいタスクを作成する際、開始日を頻繁に今日に設定する必要がある場合、Outlookに自動的に設定させたいと思うでしょう。この記事では、このニーズに対応するための簡単な方法をご紹介します。

既定では、Outlook で新しいタスクを作成すると、次の図に示すように、「開始日」が「なし」に設定されたタスクが表示されます。しかし、多くの場合、開始日を現在の日付に設定することに慣れています。そのため、「開始日」フィールドに日付を手動で入力または選択する必要があります。このような状況では、Outlook が新しいタスクの開始日として今日を自動的にプリセットしてくれると良いと思うかもしれません。そのような直接的な機能はありませんが、以下で共有する VBA コードを使用することで実現できます。VBA に慣れていない場合は、「OutlookでVBAコードを実行する方法」その間。

新しいタスクの開始日を今日に自動設定する

まず、Outlookアプリケーションを起動します。
次に、「Alt + F11」を押して、OutlookVBAエディターをトリガーします。
次に、次のコードを「ThisOutlookSession」プロジェクトにコピーします。

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objTask As Outlook.TaskItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is TaskItem Then
       Set objTask = Inspector.CurrentItem
    End If
End Sub

Private Sub objTask_Open(Cancel As Boolean)
    'When opening a fresh new task item
    If Len(objTask.Subject) = 0 And Len(objTask.Body) = 0 And objTask.startDate = #1/1/4501# And objTask.DueDate = #1/1/4501# Then
 
       'Set start date to today
       objTask.startDate = Date
    End If
End Sub

その後、カーソルを最初の「Application_Startup」サブルーチンに移動します。
その後、「F5」キーボタンを押します。
それ以降、新しいタスクを作成するたびに、Outlook は開始日を自動的に現在の日付、つまり今日の日付に設定します。次の画像を参照してください。

Outlookの悪意のあるマクロに注意してください

VBAマクロは、ユーザーに多くの利便性と可能性をもたらしますが、多くの潜在的なリスクにもつながります。たとえば、通知なしにすべてのマクロを許可するようにマクロ設定を設定した場合、悪意のあるマクロを含む電子メールがメールボックスに到着し、その埋め込みリンクを開くと、Outlookデータファイルがウイルスに攻撃される傾向があります。その時、あなたはウイルスを殺して試みなければなりません Outlookの修復ほとんどの場合、内蔵ツールである Scanpst ではこのタスクに対応できません。そのため、次のようなより強力なユーティリティを呼び出す必要があります。 DataNumen Outlook Repair.

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLの回復と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com