Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
شارك الآن  \/ 
x

or

كيفية الرد التلقائي برسالة البريد الإلكتروني الأصلية في 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 ردًا تلقائيًا مع الرسالة الأصلية كما هو موضح في لقطة الشاشة التالية:


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة...
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال... تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.