انتقل إلى المحتوى الرئيسي

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

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

علامة تبويب Office - تمكين التحرير والتصفح المبوب في Microsoft Office، مما يجعل العمل سهلاً
Kutools for Outlook - عزز Outlook بأكثر من 100 ميزة متقدمة لتحقيق كفاءة فائقة
عزز Outlook 2021 - 2010 أو Outlook 365 الخاص بك باستخدام هذه الميزات المتقدمة. استمتع بتجربة مجانية شاملة مدتها 60 يومًا وارفع مستوى تجربة بريدك الإلكتروني!

لمنع تذكير Outlook مبكرًا جدًا أو متأخرًا جدًا ، يمكنك القيام بما يلي:

الخطوة شنومك: اضغط على قديم + F11 في غضون ذلك لفتح نافذة Microsoft Visual Basic for Applications.

الخطوة 2: قم بتوسيع ملف كائنات Microsoft Outlook في الجزء الأيمن ، ولصق ماكرو 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 أعلاه:
تذكير ماكس ساعة = 20
تذكير MinHour = 9

الخطوة 3: احفظ VBA ، وأعد تشغيل Microsoft Outlook.

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

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

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

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


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

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

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير 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