كيفية إنشاء اسم المرسل العزيز تلقائيًا عند الرد على رسالة في Outlook؟
عند الرد على رسالة بريد إلكتروني ، يجب كتابة اسم المرسل وتحية الرسالة يدويًا. لتوفير الوقت وتحسين كفاءة العمل ، يمكنك التفكير في إنشاء اسم المرسل العزيز وتحياته تلقائيًا في Outlook. في هذه المقالة ، سأتحدث عن بعض الطرق المفيدة لحل هذه المهمة في Outlook.
قم بإنشاء اسم المرسل العزيز وتحياته تلقائيًا عند الرد على رسالة برمز VBA
قم بإنشاء اسم المرسل العزيز وتحياته تلقائيًا عند الرد على رسالة باستخدام Kutools for Outlook
قم بإنشاء اسم المرسل العزيز وتحياته تلقائيًا عند الرد على رسالة برمز VBA
يمكن أن يساعدك رمز VBA التالي في الإدراج التلقائي لاسم المرسل العزيز وتحياته عند الرد على رسالة بريد إلكتروني ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه الجلسة من مشروع 1 (VbaProject.OTM) لفتح الوضع ، ثم انسخ الكود التالي والصقه في الوحدة النمطية الفارغة.
كود فبا: إدراج تلقائي لاسم المرسل العزيز وتحياته عند الرد:
Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xItem As Object
On Error Resume Next
Set xItem = GExplorer.Selection.Item(1)
If xItem.Class <> olMail Then Exit Sub
Set GMailItem = xItem
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
AutoAddGreetingToReply Response
End Sub
Sub AutoAddGreetingToReply(Item As Object)
Dim xGreetStr As String
Dim xReplyMail As MailItem
Dim xSenderName As String
Dim xRecipient As Recipient
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xReplyMail = Item
For Each xRecipient In xReplyMail.Recipients
If xSenderName = "" Then
xSenderName = xRecipient.Name
Else
xSenderName = xSenderName & "," & xRecipient.Name
End If
Next xRecipient
Select Case Time
Case 0.3 To 0.5
xGreetStr = " Good morning!"
Case 0.5 To 0.75
xGreetStr = " Good afternoon!"
Case Else
xGreetStr = " Good evening!"
End Select
With xReplyMail
.Display
.HTMLBody = "<HTML><Body>Dear " & xSenderName & ",</HTML></Body>" & xGreetStr & .HTMLBody
End With
End Sub
3. ثم أغلق Outlook وأعد تشغيله ليأخذ تأثير الكود ، والآن ، عندما ترد على رسالة بريد إلكتروني ، يتم إدراج اسم المرسل العزيز وتحياته في النص تلقائيًا ، انظر لقطة الشاشة:
قم بإنشاء اسم المرسل العزيز وتحياته تلقائيًا عند الرد على رسالة باستخدام Kutools for Outlook
إذا كان لديك كوتولس لتوقعات، بما لديها أضف تحية عند الرد الميزة ، سيقوم Outlook بإدراج اسم المرسل تلقائيًا عند الرد.
كوتولس لتوقعات : مع أكثر من 100 وظيفة إضافية مفيدة في Outlook ، يمكنك تجربتها مجانًا دون قيود في أيام 60. |
بعد تثبيت كوتولس لتوقعاتمن فضلك افعل مثل هذا :
1. انقر كوتولس > مزيد من الخيارات، انظر لقطة الشاشة:
2. في مزيد من الخيارات مربع الحوار ، تحت رد علامة التبويب، تحقق أضف تحية عند الرد الخيار ، ثم أدخل التحيات كما تريد ، انظر الصورة:
3. ثم اضغط OK لإنهاء هذا الإعداد ، من الآن فصاعدًا ، عند الرد على رسالة ، سيتم إنشاء الترحيب تلقائيًا أمام نص الرسالة ، انظر لقطة الشاشة:
انقر لتنزيل Kutools for Outlook والإصدار التجريبي المجاني الآن!
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.