메인 컨텐츠로 가기

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

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

Office 탭 - Microsoft Office에서 탭 편집 및 탐색을 활성화하여 작업을 원활하게 만듭니다.
Outlook용 Kutools - 탁월한 효율성을 위한 100개 이상의 고급 기능으로 Outlook 향상
이러한 고급 기능으로 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을 다시 시작합니다.

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

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

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

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


최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

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

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

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

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

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

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

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

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