메인 컨텐츠로 가기

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

저자: 켈리 최종 수정 날짜: 2014-10-30

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

Office 탭 - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 원활하게 만듭니다.
Outlook용 Kutools 잠금 해제 비어 있는 버전 지금 무제한으로 영원히 액세스할 수 있는 70개 이상의 기능을 즐겨보세요
이러한 고급 기능으로 Outlook 2021~2010 또는 Outlook 365를 향상하세요. 70개 이상의 강력한 기능을 즐기고 이메일 경험을 향상시켜보세요!

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을 다시 시작합니다.

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

미리 알림 시간이 지정된 미리 알림 시간보다 빠르면 가능 대화 상자에서 알림 시간을 변경하고 지정된 알림 시간에 알림 소리를냅니다.

미리 알림 시간이 지정된 미리 알림 MaxHour보다 늦은 경우 가능 대화 상자에서 알림 시간을 변경하고 지정된 알림 MaxHour에 알려줍니다.

참고 : 이 VBA 코드는 Outlook 2013에서는 잘 작동하지만 Outlook 2010 및 2007에서는 작동하지 않습니다.


최고의 사무 생산성 도구

속보: Outlook용 Kutools 출시 무료 버전!

완전히 새로운 Outlook용 Kutools를 경험해보세요 70개 이상의 놀라운 기능을 갖춘 무료 버전으로 영원히 사용할 수 있습니다.! 지금 다운로드하려면 클릭하세요!

🤖 Kutools AI : AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 자동 회신(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 리콜 이메일  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  중요한 이메일이 오면 알림  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

한 번의 클릭으로 Outlook용 Kutools를 즉시 잠금 해제—영구적으로 무료. 기다리지 마세요. 지금 다운로드하여 효율성을 높이세요!

 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations