Outlook에서 새 작업을 생성할 때 기본 시작 날짜를 오늘로 설정하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

Outlook에서 새 작업을 생성할 때, 다음 스크린샷에 표시된 대로 “시작일”이 있는 작업은 기본적으로 “없음”으로 표시됩니다. 하지만 때때로 오늘을 시작일로 자주 설정해야 하는 경우가 있어서 매번 “시작일” 필드에서 날짜를 수동으로 선택해야 합니다. Outlook에서 새 작업을 생성할 때 기본 시작 날짜를 오늘로 자동 설정할 수 있는 빠른 방법이 있을까요?

the screenshot of step about using vba to set the default start date as today when creating new task in Outlook 1

Outlook에서 VBA 코드를 사용하여 새 작업을 생성할 때 기본 시작 날짜를 오늘로 설정하기

Outlook에서 VBA 코드를 사용하여 새 작업을 생성할 때 기본 시작 날짜를 오늘로 설정하기

아마도 Outlook에서 이 작업을 직접 처리할 좋은 방법은 없을 것입니다. 여기에서는 이를 해결하기 위한 VBA 코드를 소개하겠습니다. 아래 단계를 따라 진행해 주세요:

1. Outlook을 실행한 후 ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 Project1(VbaProject.OTM) 창에서 ThisOutlookSession을 두 번 클릭하여 모듈을 열고, 다음 코드를 복사하여 빈 모듈에 붙여넣습니다.

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