Outlook이 너무 일찍 또는 너무 늦게 알리는 것을 방지하는 방법은 무엇입니까?

예를 들어 매일 오전 9 시부 터 오후 00 시까 지 근무하지만 이제 오전 6시에 약속을 정하고 Outlook에서 00 시간의 미리 알림을 추가합니다. 즉, 작업이 시작되기 전 오전 10시에 알림이 작동합니다. 반면에 특별한 경우에는 자정에 알림이 울릴 수 있습니다. 이는 매우 불편하며 일부 Outlook 사용자는 Outlook이 너무 일찍 또는 너무 늦게 알리지 않도록 할 수 있습니다. 여기에서는 Outlook에서 문제를 해결할 수있는 VBA 매크로를 소개합니다.

Office 탭 - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 원활하게 만듭니다.

자세히보기 ...다운로드 ...

Outlook용 Kutools - 탁월한 효율성을 위한 100개 이상의 고급 기능으로 Outlook 향상

이메일을 자동화하세요 자동 CC / BCC, 자동 전달 규칙에 따라; 보내다 자동 회신 (부재중) 교환서버 필요없이...
다음과 같은 알림을 받으세요 BCC 경고 BCC 목록에 있는 동안 모든 항목에 답장할 때 첨부 파일 누락시 알림 잊어버린 첨부파일을 위해...
이메일 효율성 향상 첨부 파일을 포함하여 회신(전체), 서명이나 제목에 인사말이나 날짜 및 시간 자동 추가, 여러 이메일에 답장하기...
이메일 전송을 간소화하세요 리콜 이메일, 부착 도구 (모두 압축, 모두 자동 저장...), 중복 제거및 빠른 보고서...

이러한 고급 기능으로 Outlook 2021~2010 또는 Outlook 365를 향상하세요. 포괄적인 60일 무료 평가판을 즐기고 이메일 경험을 향상시키십시오!

자세히보기 ...다운로드 ...

Outlook이 너무 일찍 또는 너무 늦게 알리지 않도록하려면 다음과 같이하십시오.

1 단계 : 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2 단계 : 확장 Microsoft Outlook 개체 왼쪽 창에서 다음 VBA 매크로를 ThisOutlook세션.

VBA : Outlook에서 너무 일찍 또는 너무 늦게 미리 알림 방지

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

주의 사항: 위의 VBA 코드에서 다음 매개 변수를 변경하여 작업 기간을 지정할 수 있습니다.
alertMaxHour = 20
alertMinHour = 9

3 단계 :이 VBA를 저장하고 Microsoft Outlook을 다시 시작합니다.

이제부터는 근무 기간을 지정한 후 미리 알림 시간이있는 약속을 생성 할 때, 클릭 후 미리 알려주는 대화 상자가 팝업됩니다. 저장 후 닫기 버튼을 클릭합니다.