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

Outlook에서 새 작업을 만들 때 "시작 날짜”이 표시됩니다. “없음다음 스크린 샷과 같이 기본적으로 ". 그러나 때때로 시작일로 오늘을 자주 설정해야하므로 매번 수동으로 "시작일"필드에서 날짜를 선택해야합니다. Outlook에서 새 작업을 만들 때 기본 시작 날짜를 오늘로 자동으로 설정하는 빠른 방법이 있습니까?

Outlook에서 VBA 코드로 새 작업을 만들 때 기본 시작 날짜를 오늘로 설정

Outlook에서 VBA 코드로 새 작업을 만들 때 기본 시작 날짜를 오늘로 설정

Outlook에서이 작업을 직접 처리하는 다른 좋은 방법이 없을 수 있습니다. 여기에서는 문제를 해결하기위한 VBA 코드를 소개하겠습니다. 다음 단계를 수행하십시오.

1. Outlook을 시작한 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 인사말 프로젝트 1 (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