Outlook: كيفية إعادة إرسال البريد الإلكتروني تلقائيًا إذا لم يتم الرد
عندما ترسل بريدًا إلكترونيًا إلى زميلك أو شريكك في العمل أو أي شخص آخر وتحتاج إلى رد عاجل، يمكنك ضبط إعداد لإعادة إرسال البريد الإلكتروني تلقائيًا إذا لم يصل الرد قبل وقت محدد.
استخدام التذكير والـ VBA لضبط إعادة الإرسال التلقائي إذا لم يتم الرد
استخدام التذكير والـ VBA لضبط إعادة الإرسال التلقائي إذا لم يتم الرد
الجزء الأول: ضبط تذكير للتنبيه في وقت محدد
1. انقر بزر الماوس الأيمن على البريد الإلكتروني (من مجلد العناصر المرسلة) الذي تريد إعادة إرساله إذا لم يتم الرد عليه، وفي قائمة السياق التي تظهر، انقر فوق "يحتاج متابعة" > "إضافة تذكير".

2. في نافذة "مخصص" المنبثقة، اترك خانة اختيار "التذكير" محددة، ثم في مربعات القائمة المنسدلة أدناه، اختر التاريخ والوقت اللذين تريد أن يصل الرد قبلهما، كما يمكنك كتابة التاريخ والوقت مباشرة في المربعات. انقر فوق "موافق".


الجزء الثاني: إدراج VBA لإعادة إرسال رسائل البريد الإلكتروني إذا لم يتم الرد خلال الوقت المحدد
3. اضغط على مفتاحي "Alt" + "F11" لتمكين نافذة "Microsoft Visual Basic for Applications".
4. انقر نقرًا مزدوجًا على "ThisOutlookSession" في لوحة "Project – Project1" لإنشاء سكريبت فارغ، ثم قم بنسخ ولصق الكود التالي الخاص بالـ VBA في السكريبت الفارغ.
VBA: إعادة إرسال البريد الإلكتروني إذا لم يتم الرد
Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
Dim xInboxFld As Folder
Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
Set GInboxItems = xInboxFld.Items
End Sub
'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
Dim xSentItems As Outlook.Items
Dim xMail As MailItem
Dim i As Long
Dim xSubject As String
Dim xItemSubject As String
Dim xSendTime As String
On Error Resume Next
Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
If Item.Class <> olMail Then Exit Sub
For i = xSentItems.Count To 1 Step -1
If xSentItems.Item(i).Class = olMail Then
Set xMail = xSentItems.Item(i)
xSubject = LCase(xMail.Subject)
xSendTime = xMail.SentOn
xItemSubject = LCase(Item.Subject)
If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
If Item.SentOn > xSendTime Then
With xMail
.ClearTaskFlag
.ReminderSet = False
.Save
End With
End If
End If
End If
Next i
End Sub
'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
Dim xPrompt As String
Dim xResponse As Integer
Dim xFollowUpMail As Outlook.MailItem
Dim xRcp As Recipient
On Error Resume Next
'Resend
If (Item.Class <> olMail) Then Exit Sub
xPrompt = "You haven't yet received the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xResponse = vbNo Then Exit Sub
Set xFollowUpMail = Application.CreateItem(olMailItem)
With xFollowUpMail
For Each xRcp In Item.Recipients
.Recipients.Add (xRcp.Address)
Next
.Recipients.ResolveAll
.Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
.Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & " as soon as possible"
.Attachments.Add Item
.Display
End With
End Sub
5. احفظ الكود، ثم عد إلى الواجهة الرئيسية، انقر فوق "ملف" > "الخيارات" وفي نافذة "خيارات Outlook"، انقر فوق "مركز التوثيق" في الجزء الأيسر، ثم انقر فوق "إعدادات مركز التوثيق" لتمكين نافذة "مركز التوثيق". انقر فوق "إعدادات الماكرو" وتأكد من تحديد الخيار "تمكين جميع الماكرو (غير مستحسن؛ يمكن تشغيل أكواد خطيرة محتملة)" في القسم الأيمن. انقر فوق "موافق" > "موافق".


6. الآن إذا لم يتلق البريد الإلكتروني الذي تم ضبط تذكير له أي رد عندما يحين الوقت المحدد، ستظهر نافذة منبثقة لتذكيرك إذا كنت ترغب في إعادة إرسال بريد إلكتروني لإشعار المستلم.

7. انقر فوق "نعم"، ستظهر نافذة رسالة وتُرفق البريد الإلكتروني السابق، ويمكنك إعادة تحرير النص والنقر فوق "إرسال" لإعادة إرسال البريد الإلكتروني.

8. انقر فوق "لا"، سيتم حذف التذكير.

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

