Skip to main content

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

Author: Kelly Last Modified: 2025-05-30

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

Office Tab - تمكين التحرير والتصفح باستخدام الألسنة في Microsoft Office، مما يجعل العمل سهلاً كالنسيم
افتح النسخة المجانية من Kutools for Outlook الآن واستمتع بأكثر من 70 ميزة مع وصول غير محدود إلى الأبد
عزز Outlook 2024 - 2010 أو Outlook 365 بهذه الميزات المتقدمة. استمتع بأكثر من 70 ميزة قوية وارتقِ بتجربة بريدك الإلكتروني!

لمنع تذكير 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.


أفضل أدوات الإنتاجية لمجموعة Office

خبر عاجل: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!

🤖 Kutools AI : يستخدم تقنية الذكاء الاصطناعي المتقدمة لإدارة البريد الإلكتروني بسهولة، بما في ذلك الرد، والتلخيص، والتحسين، والتوسيع، والترجمة، وكتابة الرسائل.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية حسب القواعد عند الإرسال / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوعات وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات ...

📁 المرفقات الاحترافية: حفظ دفعي / فصل دفعي / ضغط دفعي / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تنبيهك عند وصول رسائل هامة / تصغير Outlook بدلاً من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / رسائل البريد الإلكتروني المضادة للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة جهات اتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

kutools for outlook features1 kutools for outlook features2