كيف يمكنك إنشاء تحية تلقائية باسم المرسِل عند الرد على رسالة في Outlook؟
عند الرد على رسائل البريد الإلكتروني في Outlook، من الشائع أن تبدأ بتحية مهذبة مثل «عزيزي جون،» متبوعة برسالة ودية كـ«صباح الخير!». لكن كتابة ذلك يدويًّا في كل مرة قد يكون مملًّا ويستهلك وقتك الثمين. يقدم هذا البرنامج التعليمي طريقتين فعالتين لإدراج اسم المرسِل والتحية تلقائيًّا عند الرد على الرسائل في Outlook:
الطريقة 1: إضافة التحيات تلقائيًّا باستخدام VBA عند الرد على رسائل البريد الإلكتروني(مرنة لكنها تتطلب إعدادًا يدويًّا)
الطريقة 2: إضافة التحية تلقائيًّا عند الرد أو إعادة التوجيه باستخدام Kutools لـ Outlook 👍(سريعة وسهلة)
الطريقة 1: إضافة التحيات تلقائيًّا باستخدام VBA عند الرد على رسائل البريد الإلكتروني
يساعدك كود VBA التالي على إدراج تحية شخصية تلقائيًّا—مثل: «عزيزي جون، صباح الخير!»—في نص رسالة الرد بناءً على الوقت الحالي من اليوم.
الخطوة 1: فتح محرر VBA في Outlook
1. اضغطAlt+F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. في اللوحة اليسرى ضمن "Project1 (VbaProject.OTM)"، وسِّع «كائنات Microsoft Outlook»، ثم انقر مرتين على «ThisOutlookSession».
الخطوة 2: إدراج كود VBA
انسخ والصق كود VBA التالي في المحرر:
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 = "Dear " & xSenderName & "," & xGreetStr & "" & .HTMLBody
End With
End Sub

الخطوة 3: حفظ كود VBA وإعادة تشغيل Outlook
1. اضغطCtrl+S لحفظ المشروع.
2. أغلق محرر VBA وأعد تشغيل Outlook لتفعيل الكود.
النتيجة:
في كل مرة ترد فيها على رسالة بريد إلكتروني، يُدرج Outlook تلقائيًّا تحية في أعلى نص الرسالة.

قيود طريقة VBA:
- ❌ يتطلب إعدادًا يدويًّا: عليك فتح محرر VBA وإجراء التعديلات يدويًّا.
- ❌ يجب تفعيل وحدات الماكرو: قد تحظر بعض بيئات Outlook وحدات الماكرو.
- ❌ تنسيق أساسي: نمط التحية محدودٌ ما لم تُعدِّل الكود بشكلٍ أعمق.
📅 أدرج التاريخ تلقائيًا باستخدام ميزة «إدراج التاريخ والنص» في الموضوع أو التوقيع فورًا!
هل مللت من إدخال التواريخ يدويًّا في رسائلك الإلكترونية؟ معKutools لـ Outlook، يمكنك إدراج التاريخ الحالي تلقائيًّا—بل وحتى نصًّا مخصصًا—في موضوع بريدك الإلكتروني أو توقيعك كلما أنشأت رسالة أو أجبت عليها أو أعدت توجيهها. كل ما عليك هو ضبطه مرة واحدة، وسيتولى Kutools المهمة نيابةً عنك—فورًا وبشكلٍ ثابت. 🚀
💡تلميح سريع: انقر على Kutools > خيارات، ثم فعّل خاصية إدراج التاريخ في المواضيع أو التواقيع.

✅إضافة التاريخ تلقائيًّا إلى سطور الموضوع
✅يعمل على الرسائل الجديدة ورسائل الرد
الطريقة 2: إضافة التحية تلقائيًّا عند الرد أو إعادة التوجيه باستخدام Kutools لـ Outlook 👍
إذا كنت تبحث عن طريقة أسرع وخالية من البرمجة، فإن «Kutools لـ Outlook» يوفّر ميزة تحية مدمجة تضيف تلقائيًّا اسم المرسِل مع التحية عند الرد على رسائل البريد الإلكتروني أو إعادة توجيهها.
ودّع عدم كفاءة Outlook! مع Kutools لـ Outlook، أصبح التعامل مع رسائل البريد الإلكتروني دفعةً واحدة أسهل من أي وقت مضى – والآن مع نسخة تجريبية مجانية لمدة 30 يومًا!حمّل Kutools لـ Outlook الآن!!
1. انقر فوق «Kutools» > «خيارات» لفتح مربع حوار «الخيارات».

2. في مربع حوار «الخيارات»، قم بتكوين الإعدادات التالية:
- 1). انتقل إلى علامة التبويب «رد».
- 2). حدد خيار «إضافة تحية تلقائيًا عند إنشاء أو الرد على أو إعادة توجيه البريد الإلكتروني». بشكل افتراضي، سيعرضمرحبًا >،في المربع.
- 3). انقر فوق «موافق» لحفظ إعداداتك.

📌النتيجة: من الآن فصاعدًا، في كل مرة ترد على رسالة بريد إلكتروني أو تعيد توجيهها، ستقوم Kutools تلقائيًّا بإدراج تحية في بداية نص الرسالة.

مزايا طريقة Kutools لـ Outlook:
- ✅لا حاجة إلى البرمجة: فعِّله بنقراتٍ قليلة فقط.
- ✅قابل للتخصيص بالكامل: استخدم عناصر نائبة وأنماط تحية متنوعة.
- ✅يعمل مع الردود والإعادة التوجيهية: يُطبَّق تلقائيًّا على كليهما.
- ✅سير عمل أسرع: وفّر الوقت دون الحاجة إلى أي جهد في الإعداد بعد التفعيل.
أي طريقة يُفضَّل استخدامها؟
فيما يلي مقارنة سريعة بين الطريقتين لمساعدتك على اختيار الأنسب لاحتياجاتك:
| الطريقة | الأفضل لـ | سهولة الاستخدام | وقت الإعداد | المرونة |
|---|---|---|---|---|
| الطريقة 1: VBA | المستخدمون الذين يحتاجون إلى حل مخصص قائم على النصوص البرمجية | ⭐⭐ | ⏳ طويل | ⭐⭐⭐⭐ |
| الطريقة 2: Kutools لـ Outlook | المستخدمون الذين يرغبون في تجربة سريعة وخالية من البرمجة | ⭐⭐⭐⭐⭐ | ⚡ سريع | ⭐⭐⭐⭐⭐ |
التوصية النهائية:
إذا كنت مرتاحًا لاستخدام VBA وتحتاج إلى تحكم متقدم في محتوى التحية، فإن الطريقة الأولى خيارٌ ممتاز. أما بالنسبة لمعظم المستخدمين، فتُعد الطريقة الثانية باستخدام Kutools لـ Outlook الأسهل والأكثر كفاءة لإضافة التحيات تلقائيًّا بأقل قدر من الإعداد وبدون أي برمجة.
أفضل أدوات إنتاجية Office
جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!
📧أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لبروتوكولي POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/مخفية وفق القواعد عند إرسال البريد الإلكتروني / التحويل التلقائي (قاعدة متقدمة) / إضافة التحيّة تلقائيًّا / تقسيم رسائل البريد الإلكتروني ذات المستلمين المتعددين تلقائيًّا إلى رسائل فردية...
📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...
📁المرفقات الاحترافية: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...
🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...
👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...
👩🏼🤝👩🏻جهات الاتصال والتقويم: إضافة جهات اتصال دفعةً واحدة من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!
افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!


🚀 التنزيل بنقرة واحدة — احصل على جميع إضافات Office
موصى به بشدة: Kutools for Office (5 في 1)
نقرة واحدة لتنزيلخمسة برامج تثبيتدفعة واحدة —Kutools لـ Excel وOutlook وWord وPowerPointوOffice Tab Pro.انقر للتنزيل الآن!
- ✅سهولة النقرة الواحدة: نزِّل جميع حزم الإعداد الخمس دفعة واحدة!
- 🚀جاهز لأي مهمة في Office: ثبِّت الإضافات التي تحتاجها، متى احتجتَ إليها.
- 🧰متضمَّن: Kutools لـ Excel / Kutools لـ Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint