كيف يمكن إعداد رد تلقائي يتضمن رسالة البريد الإلكتروني الأصلية في Outlook؟

عادةً، عند إنشاء قاعدة للرد التلقائي على رسائل البريد الإلكتروني خارج المكتب، لا يتم تضمين الرسالة الأصلية في نص الرد. فكيف يمكنك ضبط Outlook ليُرسل ردودًا تلقائية مع تضمين الرسالة الأصلية؟ في هذه المقالة، سأعرض لك كود VBA الذي يمكّنك من إنجاز هذه المهمة بأسرع وقت ممكن في Outlook.

الرد التلقائي الرد على رسائل البريد الإلكتروني مع تضمين الرسالة الأصلية في Outlook باستخدام كود VBA

---

الرد التلقائي الرد على رسائل البريد الإلكتروني مع تضمين الرسالة الأصلية في Outlook باستخدام كود VBA

لا يمكن للقاعدة العادية في Outlook مساعدتك في تنفيذ هذه المهمة، لكن باستخدام كود VBA التالي، يمكنك إنجازها بسرعة وسهولة. يُرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر مرتين علىThisOutlookSession من جزءProject1 (VbaProject.OTM) لفتح الوحدة النمطية، ثم انسخ والصق الكود التالي في الوحدة النمطية الفارغة.

كود VBA: الرد التلقائي الرد على رسائل البريد الإلكتروني مع تضمين الرسالة الأصلية:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub 

3. بعد ذلك، احفظ وأغلق نافذة الكود، ثم أعد تشغيل Outlook أو أغلقه لتفعيل كود VBA. الآن، عند استلامك رسائل بريد إلكتروني، سيُرسل Outlook ردًّا تلقائيًّا مع تضمين الرسالة الأصلية، كما هو موضح في لقطة الشاشة التالية: