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

Author: Sun Last Modified: 2025-05-30

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

استخدام التذكير والـ 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. الآن إذا لم يتلق البريد الإلكتروني الذي تم ضبط تذكير له أي رد عندما يحين الوقت المحدد، ستظهر نافذة منبثقة لتذكيرك إذا كنت ترغب في إعادة إرسال بريد إلكتروني لإشعار المستلم.