Skip to main content

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

Author: Sun Last Modified: 2025-08-06

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

استخدام التذكير والـ VBA لضبط إعادة الإرسال التلقائي إذا لم يتم الرد


استخدام التذكير والـ VBA لضبط إعادة الإرسال التلقائي إذا لم يتم الرد

 

الجزء الأول: ضبط تذكير للتنبيه في وقت محدد

1. انقر بزر الماوس الأيمن على البريد الإلكتروني (من مجلد العناصر المرسلة) الذي تريد إعادة إرساله إذا لم يتم الرد عليه، وفي قائمة السياق التي تظهر، انقر فوق "يحتاج متابعة" > "إضافة تذكير".

doc resend if no response 1

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

doc resend if no response 1
doc resend if no response 1

الجزء الثاني: إدراج 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"، انقر فوق "مركز التوثيق" في الجزء الأيسر، ثم انقر فوق "إعدادات مركز التوثيق" لتمكين نافذة "مركز التوثيق". انقر فوق "إعدادات الماكرو" وتأكد من تحديد الخيار "تمكين جميع الماكرو (غير مستحسن؛ يمكن تشغيل أكواد خطيرة محتملة)" في القسم الأيمن. انقر فوق "موافق" > "موافق".

doc resend if no response 1
doc resend if no response 1

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

doc resend if no response 1

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

doc resend if no response 1

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

doc resend if no response 1

ملاحظة: إذا تم الرد على البريد الإلكتروني قبل الوقت المحدد، سيتم حذف التذكير بواسطة VBA.


أفضل أدوات إنتاجية أوفيس

أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!

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

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

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

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

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

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

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

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

افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

kutools for outlook features1 kutools for outlook features2