نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

علامة تبويب Office - تمكين التحرير والتصفح في Tabbed ، وجعل العمل أسهل بكثير ...
Kutools for Outlook - يجلب ميزات متقدمة قوية 100 إلى Microsoft Outlook
  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني المتعددة حسب القواعد ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC ؛ تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد ؛ الرد على العديد من رسائل البريد الإلكتروني مرة واحدة ؛ إضافة تحية السيارات عند الرد إضافة التاريخ والوقت إلى الموضوع ...
  • أدوات المرفقات: فصل تلقائي ، ضغط الكل ، إعادة تسمية الكل ، حفظ تلقائي للكل ... تقرير سريع، عدد الرسائل المختارة ، إزالة الرسائل المكررة وجهات الاتصال ...
  • أكثر من ميزات 100 المتقدمة سوف حل معظم مشاكلك في Outlook 2010-2019 و 365. ميزات كاملة النسخة التجريبية المجانية من 60.

لمنع تذكير أوتلوك مبكرا جدا أو متأخرا جدا، يمكنك إجراء ما يلي:

الخطوة شنومك: اضغط على قديم + F11 مفاتيح في الوقت نفسه لفتح إطار ميكروسوفت فيسوال باسيك فور أبليكاتيونس.

الخطوة شنومك: توسيع كائنات ميكروسوفت أوتلوك في الجزء الأيمن، ولصق الماكرو فبا التالي في ThisOutlookSession.

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

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

ملاحظة:: يمكنك تحديد فترة العمل الخاصة بك مع تغيير المعلمات التالية في التعليمات البرمجية فبا أعلاه:
ريميندرماكسور = شنومكس
ريميندرمينهور = شنومكس

الخطوة شنومك: حفظ هذا فبا، وإعادة تشغيل ميكروسوفت أوتلوك.

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

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

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

يعمل هذا التعليمات البرمجية فبا بشكل جيد مع أوتلوك شنومك، ولكن لا يعمل مع أوتلوك شنومكس و شنومكس.


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

  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان البريد الخاص بك في قائمة BCC; تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية السيارات عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، أوتو ديتاش, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عدد الرسائل المختارة...
  • رسائل البريد الإلكتروني العشوائي قوية حسب الطلب إزالة الرسائل المكررة وجهات الاتصال... يمكنك من القيام بذكاء وأسرع وأفضل في Outlook.
kutools لقطة توقعات kutools علامة التبويب 1180x121
kutools لقطة توقعات kutools بالإضافة إلى علامة التبويب 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
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.