Outlook 이 너무 일찍 또는 너무 늦게 알림을 표시하는 것을 어떻게 방지할 수 있나요？
예를 들어, 매일 오전 9 시부터 오후 6 시까지 근무하지만 지금 오전 10 시에 약속을 잡고 Outlook 에서 해당 약속에 대해 2 시간 전 알림을 추가한다고 가정해 보겠습니다. 이 경우 알림은 근무 시작 전인 오전 8 시에 울리게 됩니다. 반대로 특수한 상황에서는 자정에 알림이 울릴 수도 있습니다. 이는 매우 불편하며 일부 Outlook 사용자는 Outlook 이 너무 일찍 또는 너무 늦게 알림을 표시하는 것을 방지하고자 할 것입니다。 여기서 저는 이를 해결하기 위한 VBA 매크로를 소개하겠습니다。
- 이메일 생산성을 향상시키세요AI 기술로， 이메일에 빠르게 답장하거나 새 메시지를 작성하고， 메시지를 번역하는 등 더욱 효율적으로 작업할 수 있습니다。
- 규칙에 따라 이메일 자동화를 수행하세요자동 참조/숨은 참조,자동 전달규칙 기반으로；자동 회신(부재 중) Exchange 서버 없이도 가능합니다。。。
- 다음과 같은 알림을 받아보세요BCC 에 내 이메일을 포함하여 답장할 때 알림BCC 목록에 있으면서 전체 회신할 때 알림을 받고，첨부 파일 누락 시 알림잊어버린 첨부 파일에 대한 알림도 제공됩니다。。。
- 다음 기능으로 이메일 효율성을 높이세요첨부 파일 포함 회신(전체),자동으로 인사말 또는 날짜 및 시간을 서명 또는 제목에 추가,여러 이메일 한 번에 회신...
- 다음 기능으로 이메일 작업을 간소화하세요이메일 회수,첨부 파일 도구(모두 압축， 자동 저장 모두。。。)，중복 제거， 그리고빠른 보고서...
Outlook 이 너무 일찍 또는 너무 늦게 알림을 표시하는 것을 방지하려면 다음 단계를 따르세요：
단계 1: Microsoft Visual Basic for Applications 창을 열려면 동시에Alt+F11키를 누릅니다。
단계 2: 왼쪽 창에서Microsoft Outlook 개체를 확장한 후 다음 VBA 매크로를ThisOutlookSession에 붙여넣습니다。
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 코드에서 다음 매개변수를 변경하여 근무 시간대를 지정할 수 있습니다：
reminderMaxHour = 20
reminderMinHour = 9
단계 3: 이 VBA 를 저장한 후 Microsoft Outlook 을 다시 시작합니다。
이제부터 지정한 근무 시간대 외부에 알림 시간 약속을 만들 경우，저장 및 닫기버튼을 클릭한 후 대화 상자가 나타나 알림을 표시합니다。
알림 시간이 지정된 reminderMinHour 보다 빠른 경우， 대화 상자에서예를 클릭하면 알림 시간가 변경되어 지정된 reminderMinHour 에 알림이 울립니다。
알림 시간이 지정된 reminderMaxHour 보다 늦은 경우， 대화 상자에서예를 클릭하면 알림 시간가 변경되어 지정된 reminderMaxHour 에 알림이 표시됩니다。
참고：이 VBA 코드는 Outlook 2013 에서는 잘 작동하지만 Outlook 2010 및 2007 에서는 작동하지 않습니다。
최고의 Office 생산성 도구
Kutools for Outlook 의 완전히 새로운 버전을 100+가지 놀라운 기능과 함께 경험해 보세요！지금 다운로드하세요！
🤖KUTOOLS AI:고급 AI 기술을 활용하여 이메일 회신， 요약， 최적화， 확장， 번역， 작성 등 이메일 관련 작업을 손쉽게 처리합니다。
📧이메일 자동화:자동 회신(POP 및 IMAP 지원)/이메일 예약 발송/이메일 발송 시 규칙에 따라 자동 참조/숨은 참조/자동 전달(고급 규칙)/자동 인사말 추가/수신자 여러 명이 포함된 이메일을 자동으로 개별 메시지로 분할...
📨이메일 관리:이메일 회수/제목 등을 기준으로 피싱 이메일 차단/중복된 이메일 삭제/고급 검색/폴더 정리...
📁첨부파일 프로:일괄 저장/일괄 분리/일괄 압축/자동 저장/자동 분리/자동 압축...
🌟인터페이스 마법:😊더 예쁘고 멋진 이모지 제공/중요 이메일 수신 시 알림/Outlook 종료 대신 최소화...
👍한 번의 클릭으로 해결:모두 회신(첨부 파일 포함)/피싱 이메일 방지/🕘발신자의 현재 시간 시간대 표시...
👩🏼🤝👩🏻연락처 및 캘린더:선택한 이메일에서 연락처 추가 일괄 생성/연락처 그룹를 개별 그룹으로 분할/생일 알림 제거...
Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개의 다른 언어를 지원합니다！
한 번의 클릭으로 즉시 Kutools for Outlook 의 잠금을 해제하세요。 더 이상 기다리지 마시고 지금 다운로드하여 업무 효율을 높이세요！
🚀 한 번의 클릭으로 다운로드 — 모든 Office 애드인 받기
강력히 권장： Kutools for Office (5-in-1)
한 번의 클릭으로다섯 개의 설치 프로그램을동시에 다운로드하세요 —Kutools for Excel, Outlook, Word, PowerPoint및Office Tab Pro.지금 다운로드하세요！
- ✅한 번의 클릭으로 편리하게： 다섯 개의 설치 패키지를 한 번에 다운로드하세요。
- 🚀모든 Office 작업에 대비 완료： 필요한 시점에 필요한 애드인을 설치하세요。
- 🧰포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint