Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
إنشاء حساب  \/ 
x

or

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

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

علامة تبويب Office - قم بتمكين التحرير والتصفح المبوب في المكتب ، وجعل العمل أسهل بكثير ...
Kutools for Outlook - يجلب 100 ميزة متقدمة قوية إلى Microsoft Outlook
  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي تعدد رسائل البريد الإلكتروني حسب القواعد ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عندما تحاول الرد على الكل إذا كان عنوان بريدك في قائمة BCC ؛ تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد ؛ الرد على العديد من رسائل البريد الإلكتروني في وقت واحد ؛ إضافة تحية تلقائية عند الرد إضافة التاريخ والوقت تلقائيًا إلى الموضوع ...
  • أدوات المرفقات: فصل تلقائي ، ضغط الكل ، إعادة تسمية الكل ، حفظ تلقائي للكل ... تقرير سريع، عد الرسائل المختارة ، إزالة رسائل البريد وجهات الاتصال المكررة ...
  • أكثر من 100 ميزة متقدمة سوف حل معظم مشاكلك في Outlook 2010-2019 و 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 أعلاه:
reminderMaxHour = 20
تذكير MinHour = 9

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

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

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

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

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


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة...
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال... تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.