كيفية العثور على التذكيرات المؤجلة في Outlook؟
على سبيل المثال، عند تأجيل تذكير في نافذة التذكير، سيختفي التذكير فورًا. لذلك، كيف يمكنك العثور على التذكير المؤجل؟ في هذه المقالة، سأقدم الحل للعثور على التذكيرات المؤجلة في Outlook.
العثور على التذكيرات المؤجلة في تقويم Outlook
- عزز إنتاجيتك في البريد الإلكتروني بتقنية الذكاء الاصطناعي، مما يتيح لك الرد بسرعة على رسائل البريد الإلكتروني، وصياغة رسائل جديدة، وترجمة الرسائل، وغير ذلك بكفاءة أكبر.
- أتمتة البريد الإلكتروني باستخدام نسخة تلقائية/مخفية (Auto CC/BCC)، التحويل التلقائي (Auto Forward) حسب القواعد؛ أرسل الرد التلقائي (خارج المكتب) بدون الحاجة إلى خادم Exchange...
- احصل على تنبيهات مثل تنبيه عند الرد على بريد إلكتروني يحتوي على اسمي في نسخة مخفية (BCC Warning) عندما تكون في قائمة BCC، وتذكير عند نسيان المرفقات (Remind When Missing Attachments)...
- تحسين كفاءة البريد الإلكتروني باستخدام الرد (على الكل) مع المرفقات، الإضافة التلقائية للتحية أو التاريخ والوقت إلى التوقيع أو الموضوع، الرد على رسائل متعددة...
- تبسيط البريد الإلكتروني باستخدام استدعاء البريد الإلكتروني، أدوات المرفقات (ضغط جميع المرفقات، الحفظ التلقائي لجميع المرفقات...)، حذف الرسائل المكررة، وتقرير سريع...
العثور على التذكيرات المؤجلة في تقويم Outlook
تُقدم هذه الطريقة مقدمة لاستخدام VBA للبحث عن جميع التذكيرات المؤجلة ليوم اليوم في Outlook. يرجى اتباع الخطوات التالية:
1. انتقل إلى عرض البريد، واضغط معًا على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، والصق رمز VBA أدناه في نافذة الوحدة الجديدة.
VBA: البحث عن التذكيرات المؤجلة في Outlook
Sub SnoozedReminders()
Dim xReminder As Reminder
Dim xReminders As Outlook.Reminders
Dim xRemItems As String
Dim k As Long
k = 0
Set xReminders = Outlook.Reminders
For Each xReminder In xReminders
If ReminderExpired(xReminder) = True Then
k = k + 1
xRemItems = xRemItems & k & ": " & xReminder.Caption & vbCr & " Snoozed to " & xReminder.NextReminderDate & vbCr & vbCr
End If
Next xReminder
CreateRemItemsAsEmail "Snoozed RemItems", xRemItems
End Sub
Function ReminderExpired(Reminder As Outlook.Reminder) As Boolean
If (Reminder.OriginalReminderDate <> Reminder.NextReminderDate) Then
ReminderExpired = (Reminder.OriginalReminderDate <> Reminder.NextReminderDate)
End If
End Function
Public Sub CreateRemItemsAsEmail(Theme As String, RemItems As String)
Dim xSession As Outlook.NameSpace
Dim xMailItem As MailItem
Dim xInboxFd As Outlook.Folder
On Error Resume Next
Set xSession = Application.Session
Set xInboxFd = xSession.GetDefaultFolder(olFolderInbox)
Set xMailItem = xInboxFd.Items.Add("IPM.Mail")
With xMailItem
.Subject = Theme
.body = RemItems
.Save
.Display
End With
Set xSession = Nothing
Set xInboxFd = Nothing
Set xmail = Nothing
End Sub
3. اضغط على مفتاح F5 أو انقر فوق زر التشغيل لتشغيل هذا VBA.
الآن يمكنك رؤية جميع التذكيرات المؤجلة ليوم اليوم وقد تم لصقها كنص الرسالة في بريد إلكتروني جديد. انظر لقطة الشاشة:

مقالات ذات صلة
أفضل أدوات إنتاجية أوفيس
أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متاح لـ POP و IMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية عن طريق القواعد عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل منفصلة...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوع وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...
📁 المرفقات المتقدمة: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...
👍 ميزات بضغطة واحدة: الرد على الجميع مع المرفقات / الحماية من التصيد الاحتيالي / 🕘 عرض المنطقة الزمنية للمرسل...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات الاتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...
استخدم أدوات Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!
افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

