كيفية الرد التلقائي برسالة البريد الإلكتروني الأصلية في Outlook؟
عادة ، عندما نقوم بإنشاء قاعدة للاعتماد التلقائي على البريد الإلكتروني خارج المكتب ، ولكن لن يتم تضمين الرسالة الأصلية في النص. كيف يمكنك الاعتماد تلقائيًا على رسائل البريد الإلكتروني ذات الرسالة الأصلية في Outlook؟ في هذه المقالة ، سأتحدث عن رمز VBA لمساعدتك في إنهاء هذه المهمة في أسرع وقت ممكن في Outlook.
الرد التلقائي على رسائل البريد الإلكتروني برسالة أصلية في Outlook برمز VBA
الرد التلقائي على رسائل البريد الإلكتروني برسالة أصلية في Outlook برمز VBA
لا يمكن أن تساعدك قاعدة Outlook العادية في التعامل مع الوظيفة ، ولكن باستخدام رمز VBA التالي ، يمكنك إنهاء ذلك بسرعة وسهولة. يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه النظرةن من مشروع 1 (VbaProject.OTM) لفتح الوضع ، ثم انسخ الكود التالي والصقه في الوحدة النمطية الفارغة.
كود فبا: الرد التلقائي على رسائل البريد الإلكتروني بالرسالة الأصلية:
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 ردًا تلقائيًا مع الرسالة الأصلية كما هو موضح في لقطة الشاشة التالية:
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.