كيفية منع Outlook من التذكير في وقت مبكر جدًا أو متأخر جدًا؟
على سبيل المثال ، أنت تعمل من الساعة 9:00 صباحًا حتى 6:00 مساءً كل يوم ، ولكنك الآن تحدد موعدًا الساعة 10:00 صباحًا وتضيف تذكيرًا بساعتين له في Outlook. هذا يعني أن التذكير سيعمل في الساعة 2:8 صباحًا قبل بدء عملك. من ناحية أخرى ، قد يبدو التذكير في منتصف الليل في حالات خاصة. هذا غير مريح تمامًا ، وقد يرغب بعض مستخدمي Outlook في منع تذكير Outlook مبكرًا أو متأخرًا جدًا. هنا سأقدم لك ماكرو VBA لحلها في Outlook.
- أتمتة البريد الإلكتروني مع CC السيارات / BCC, إعادة توجيه تلقائي بالقواعد؛ يرسل رد آلي (خارج المكتب) دون الحاجة إلى خادم تبادل...
- احصل على تذكيرات مثل تحذير BCC عند الرد على الكل أثناء تواجدك في قائمة نسخة مخفية الوجهة، و تذكير عند فقدان المرفقات للمرفقات المنسية..
- تحسين كفاءة البريد الإلكتروني مع الرد (الكل) مع المرفقات, إضافة تحية أو التاريخ والوقت تلقائيًا إلى التوقيع أو الموضوع, الرد على رسائل البريد الإلكتروني المتعددة
- تبسيط البريد الإلكتروني مع استدعاء رسائل البريد الإلكتروني, أدوات المرفقات (ضغط الكل، حفظ الكل تلقائيًا...)، إزالة التكراراتو تقرير سريع
لمنع تذكير 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 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.