كيفية منع تذكير Outlook مبكرًا جدًا أو متأخرًا جدًا؟

Author: Kelly Last Modified: 2025-08-06

على سبيل المثال، تعمل من الساعة 9:00 صباحًا حتى 6:00 مساءً كل يوم، ولكن الآن تقوم بتحديد موعد في الساعة 10:00 صباحًا وتضيف تذكيرًا لمدة ساعتين له في Outlook. هذا يعني أن التذكير سيعمل عند الساعة 8:00 صباحًا قبل بدء عملك. من ناحية أخرى، قد يصدر التذكير صوتًا في منتصف الليل في حالات خاصة. هذا أمر غير مريح، وقد يرغب بعض مستخدمي Outlook في منع التذكير المبكر جدًا أو المتأخر جدًا. هنا سأقدم لك ماكرو VBA لحل هذه المشكلة في Outlook.

Office Tab - تمكين التحرير والت浏览 في Microsoft Office عبر الألسنة، مما يجعل العمل سهلاً كالنسيم

اقرأ ميزات Office Tab تحميل Office Tab

فكّر قفل أدوات Kutools لـ Outlook الآن واستمتع بأكثر من 100 ميزة مع وصول غير محدود إلى الأبد

عزز إنتاجيتك في البريد الإلكتروني بتقنية الذكاء الاصطناعي، مما يتيح لك الرد بسرعة على رسائل البريد الإلكتروني، وصياغة رسائل جديدة، وترجمة الرسائل، وغير ذلك بكفاءة أكبر.
أتمتة البريد الإلكتروني باستخدام نسخة تلقائية/مخفية (Auto CC/BCC)، التحويل التلقائي (Auto Forward) حسب القواعد؛ أرسل الرد التلقائي (خارج المكتب) بدون الحاجة إلى خادم Exchange...
احصل على تنبيهات مثل تنبيه عند الرد على بريد إلكتروني يحتوي على اسمي في نسخة مخفية (BCC Warning) عندما تكون في قائمة BCC، وتذكير عند نسيان المرفقات (Remind When Missing Attachments)...
تحسين كفاءة البريد الإلكتروني باستخدام الرد (على الكل) مع المرفقات، الإضافة التلقائية للتحية أو التاريخ والوقت إلى التوقيع أو الموضوع، الرد على رسائل متعددة...
تبسيط البريد الإلكتروني باستخدام استدعاء البريد الإلكتروني، أدوات المرفقات (ضغط جميع المرفقات، الحفظ التلقائي لجميع المرفقات...)، حذف الرسائل المكررة، وتقرير سريع...

قم بتعزيز Outlook 2024-2010 أو Outlook 365 بهذه الميزات المتقدمة. استمتع بأكثر من 100 ميزة قوية وارتقِ بتجربة البريد الإلكتروني الخاصة بك!

اقرأ جميع ميزات أدوات 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 الخاص بك.

من الآن فصاعدًا، عند إنشاء موعد مع وقت تذكير خارج الفترة الزمنية المحددة للعمل، ستظهر نافذة منبثقة لتذكيرك بعد النقر على زر حفظ وإغلاق.

the screenshot of step about preventing outlook reminding too early or too late

إذا كان وقت التذكير قبل الساعة المحددة في reminderMinHour، انقر على نعم في نافذة الحوار، وسيقوم بتغيير وقت التذكير وجعل التذكير يصدر الصوت عند الساعة المحددة في reminderMinHour.

إذا كان وقت التذكير بعد الساعة المحددة في reminderMaxHour، انقر على نعم في نافذة الحوار، وسيقوم بتغيير وقت التذكير ويذكرك عند الساعة المحددة في reminderMaxHour.

ملاحظة: يعمل هذا الكود VBA بشكل جيد مع Outlook 2013، ولكنه لا يعمل مع Outlook 2010 و2007.