כיצד למנוע מ-Outlook להזכיר מוקדם מדי או מאוחר מדי?

Author: Kelly Last Modified: 2025-05-30

לדוגמה, אתה עובד מ-9:00 בבוקר עד 6:00 בערב כל יום, אבל עכשיו אתה עושה תור ב-10:00 בבוקר והוספת תזכורת של שעתיים עבורו ב-Outlook. כלומר התזכורת תפעל ב-8:00 בבוקר לפני תחילת העבודה שלך. מצד שני, התזכורת עלולה להישמע בחצות במקרים מיוחדים. זה די לא נוח, ומשתמשים מסוימים של Outlook עשויים לרצות למנוע מ-Outlook להזכיר מוקדם מדי או מאוחר מדי. כאן אני אציג לך מאקרו VBA כדי לפתור זאת ב-Outlook.

Office Tab - הפעל עריכת וכרטיסיות גלישה ב-Microsoft Office, מה שהופך את העבודה לזריזה.

קרא על תכונות Office Tab הורד את Office Tab

פתח עכשיו את הגרסה החינמית של Kutools עבור Outlook והנאה מיותר מ-70 תכונות עם גישה ללא הגבלה לנצח.

שפר את יעילות הדואר האלקטרוני שלך עם טכנולוגיית AI, המאפשרת לך להשיב במהירות לדוא"לים, להכין חדשים, לתרגם הודעות ועוד בצורה יעילה יותר.
אוטומט את שליחת הדואר האלקטרוני עם העתקה אוטומטית/עותק מוסתר, העברה אוטומטית לפי כללים; שלח תגובה אוטומטית (מחוץ למשרד) ללא צורך בשרת Exchange...
קבל תזכורות כמו הודעה להגבהה כאשר יש לי עותק נסתר (BCC) בהשבה לכל כשאתה נמצא ברשימת BCC, והתראה בעת שכחת לצרף קבצים מצורפים...
שפר את יעילות הדואר האלקטרוני עם השיבה (כולל) עם קבצים מצורפים, הוספה אוטומטית של ברכה או תאריך ושעה לחתימה או נושא, השיבה מרובת דוא"לים...
יעיל את שליחת הדואר האלקטרוני עם שליחת מיילים מחדש, כלי קבצים מצורפים (דחיסת מצורפים, שמירה אוטומטית), הסרת כפילויות ודו"חות מהירים...

קדם את Outlook 2024 - 2010 או Outlook 365 עם תכונות מתקדמות אלו. הנאה מיותר מ-70 תכונות חזקות והעלה את חוויית הדואר האלקטרוני שלך!

קרא את כל התכונות של Kutools עבור Outlook הורד את הגרסה החינמית

כדי למנוע מ-Outlook להזכיר מוקדם מדי או מאוחר מדי, באפשרותך לפעול כדלקמן:

שלב 1: לחץ בו זמנית על המקשים Alt + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

שלב 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 שלך.

מהיום והלאה, בעת יצירת תור עם זמן תזכורת מחוץ לתקופת העבודה שציינת, ת跳出弹窗提醒您在点击“保存并关闭”按钮后。