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

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

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

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

الجزء 1: تعيين تذكير للتذكير في وقت محدد

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

2. في ظهرت Custom الحوار ، والحفاظ على تذكير تم تحديد خانة الاختيار ، ثم في المربعات المنسدلة أدناه ، اختر التاريخ والوقت اللذين تريدهما لوصول الرد من قبل ، كما يمكنك كتابة التاريخ والوقت مباشرةً في المربعات. انقر OK.

الجزء 2: أدخل VBA لإعادة إرسال رسائل البريد الإلكتروني في حالة عدم الرد في الوقت المحدد

3. صحافة قديم + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. نقرتين متتاليتين هذه الجلسة في ال مشروع - مشروع 1 لإنشاء برنامج نصي فارغ ، وانسخ رمز 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 recieved 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. قم بحفظ الكود ، ثم ارجع إلى الواجهة الرئيسية ، انقر فوق قم بتقديم > مزيد من الخيارات وفي الe خيارات Outlook الإطار، انقر فوق مركز التوثيق في الجزء الأيمن ، وانقر فوق إعدادات مركز التوثيق لتمكين مركز التوثيق نافذة او شباك. انقر إعدادات الماكرو وتأكد من أن تمكين جميع وحدات الماكرو (غير مستحسن؛ يمكن تشغيل الشفرة التي يحتمل أن تكون خطرة) تم تحديد الخيار في القسم الأيمن. انقر OK > OK.

6. الآن إذا لم يتلق البريد الإلكتروني المرسل الذي تم تعيينه مع تذكير أي استجابة عند وصول الوقت المحدد ، ينبثق مربع حوار لتذكيرك بما إذا كنت تريد إعادة إرسال بريد إلكتروني لإرسال إشعار أم لا.

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

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

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

---

أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

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

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

تفاصيل أكثر       تحميل مجانا      شراء