Outlook: كيفية إعادة إرسال البريد الإلكتروني تلقائيًا إذا لم يتم الرد

Author Sun Last modified 2025-08-26

عندما ترسل بريدًا إلكترونيًا إلى زميلك أو شريكك في العمل أو أي شخص آخر وتحتاج إلى رد عاجل، يمكنك ضبط إعداد لإعادة إرسال البريد الإلكتروني تلقائيًا إذا لم يصل الرد قبل وقت محدد.

استخدام التذكير والـ 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 ميزة مذهلة! انقر لتنزيل الآن!

🤖 Kutools AI : يستخدم تكنولوجيا الذكاء الاصطناعي المتقدمة للتعامل مع البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء رسائل البريد الإلكتروني.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد الإلكتروني / نسخة تلقائية/مخفية بناءً على القاعدة عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم تلقائي لرسائل البريد الإلكتروني متعددة المستلمين إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...

📁 إعدادات المرفقات الاحترافية: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

جدول أحادي الأبعاد لميزات Kutools لـ Outlook تنزيل الآن انتقل للشراء

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

✅ سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint

حول الحزمة ⬇ تنزيل الحزمة 💳 شراء الحزمة