كيفية إنشاء تلقائي لاسم المرسل العزيز عند الرد على رسالة في Outlook؟

Author: Xiaoyang Last Modified: 2025-05-30

عند الرد على رسائل البريد الإلكتروني في Outlook، من الشائع البدء بتحية مهذبة مثل "عزيزي جون"، تليها رسالة مثل "صباح الخير!". ومع ذلك، يمكن أن يكون كتابة هذا يدويًا في كل مرة أمرًا مملًا ويستغرق وقتًا. يقدم هذا البرنامج التعليمي طريقتين فعّالتين لإدراج اسم المرسل والتحية تلقائيًا عند الرد على الرسائل في Outlook:

الطريقة الأولى: إضافة التحية تلقائيًا باستخدام VBA عند الرد على رسائل البريد الإلكتروني (مرنة ولكن تتطلب إعدادًا يدويًا)

الطريقة الثانية: إضافة التحية تلقائيًا عند الرد أو إعادة التوجيه باستخدام أدوات Kutools لـ Outlook 👍 (سريعة وسهلة)

الطريقة الأولى: إضافة التحية تلقائيًا باستخدام VBA عند الرد على رسائل البريد الإلكتروني

يساعدك الكود التالي الخاص بـ VBA على إدراج تحية شخصية تلقائيًا (مثل "عزيزي جون، صباح الخير!") في نص الرسالة بناءً على الوقت الحالي من اليوم.

الخطوة الأولى: افتح محرر VBA في Outlook

1. اضغط على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في اللوحة اليسرى أسفل "Project1 (VbaProject.OTM)", قم بتوسيع "Microsoft Outlook Objects" واضغط مرتين على "ThisOutlookSession".

الخطوة الثانية: إدراج كود 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

doc-auto-dear-sender-name-1

الخطوة الثالثة: حفظ كود VBA وإعادة تشغيل Outlook

1. اضغط على Ctrl + S لحفظ المشروع.

2. أغلق محرر VBA وأعد تشغيل Outlook ليتم تفعيل الكود.

النتيجة:

كلما قمت بالرد على رسالة بريد إلكتروني، سيقوم Outlook بإدراج التحية تلقائيًا في بداية نص الرسالة.

shot of a greeting at the top of the message body

قيود طريقة VBA:

❌ يتطلب إعدادًا يدويًا : يجب عليك الوصول إلى محرر VBA وتحريره.
❌ يجب تمكين ماكرو: قد تقوم بعض بيئات Outlook بحظر الماكرو.
❌ التنسيق الأساسي: ستكون تنسيقات التحية محدودة إلا إذا قمت بتعديل الكود بشكل أكبر.

📅 إدراج التاريخ تلقائيًا في الموضوع أو التوقيع فورًا!

هل تعبت من إضافة التواريخ يدويًا إلى رسائل البريد الإلكتروني؟ باستخدام أدوات Kutools لـ Outlook، يمكنك إدراج التاريخ الحالي تلقائيًا في موضوع البريد الإلكتروني أو التوقيع كلما قمت بتحرير رسالة جديدة، الرد عليها، أو إعادة توجيهها. اضبطه مرة واحدة، واترك الباقي على Kutools! 🚀

💡 نصيحة سريعة: انقر على Kutools > الخيارات، ثم قم بتمكين إدراج التاريخ في التواقيع أو المواضيع.

Auto Insert Date into Subject or Signature

✅ إدراج التاريخ تلقائيًا في التواقيع
✅ إضافة التاريخ تلقائيًا إلى أسطر الموضوع

✅ تنسيق تاريخ مخصص
✅ يعمل على رسائل البريد الجديدة والردود

🔥 جرب أدوات Kutools لـ Outlook – مجانًا!

الطريقة الثانية: إضافة التحية تلقائيًا عند الرد أو إعادة التوجيه باستخدام أدوات Kutools لـ Outlook 👍

إذا كنت تبحث عن طريقة أسرع وخالية من الأكواد، توفر "أدوات Kutools لـ Outlook" ميزة مضمنة للتحية تقوم تلقائيًا بإضافة اسم المرسل مع التحية عند الرد أو إعادة توجيه رسائل البريد الإلكتروني.

افتح الباب أمام كفاءة البريد الإلكتروني القصوى مع أدوات Kutools لـ Outlook! استمتع بـ 70 ميزات قوية مجانًا تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!

1. انقر على "Kutools" > "الخيارات" لفتح مربع الحوار "الخيارات".

shot of the Options button

2. في مربع الحوار "الخيارات"، قم بتكوين الإعدادات التالية:

1). انتقل إلى علامة التبويب "الرد".
2). قم بتفعيل خيار "إضافة تحية عند إنشاء، الرد على، وإعادة توجيه رسالة بريد إلكتروني". بشكل افتراضي، سيتم عرض Hi <<SenderName>>, في الصندوق.

⚡ نصيحة: يمكنك استبدال التحية بنص خاص بك وتخصيصها باستخدام رموز الأسماء التلقائية مثل <<FirstName>>, <<LastName>>, أو <<SenderName>> لإدراج اسم المستلم حسب الحاجة.

3). انقر على "موافق" لحفظ الإعدادات.

shot of the Options dialog

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

shot of a greeting at the beginning of the message body

مزايا طريقة أدوات Kutools لـ Outlook:

✅ لا حاجة إلى كتابة أكواد: قم بتفعيلها ببضع نقرات فقط.
✅ قابلة للتخصيص بالكامل: استخدم عناصر نائبة مختلفة وأساليب تحية.
✅ تعمل مع الردود والإعادة: يتم تطبيقها تلقائيًا على كليهما.
✅ سير عمل أسرع: توفر الوقت بدون أي جهد إعداد بعد التفعيل.

أي طريقة يجب أن تستخدمها؟

فيما يلي مقارنة سريعة بين الطريقتين لمساعدتك على اختيار الأنسب لاحتياجاتك:

الطريقة	الأفضل لـ	سهولة الاستخدام	وقت الإعداد	المرونة
الطريقة الأولى: VBA	المستخدمين الذين يحتاجون إلى حل مخصص ومبنى على البرمجة	⭐⭐	⏳ طويل	⭐⭐⭐⭐
الطريقة الثانية: أدوات Kutools لـ Outlook	المستخدمين الذين يريدون تجربة سريعة وخالية من الأكواد	⭐⭐⭐⭐⭐	⚡ سريع	⭐⭐⭐⭐⭐

التوصية النهائية:
إذا كنت مرتاحًا لاستخدام VBA وتحتاج إلى تحكم متقدم في محتوى التحية، فإن الطريقة الأولى هي خيار جيد. لكن بالنسبة لمعظم المستخدمين، الطريقة الثانية باستخدام أدوات Kutools لـ Outlook هي الأسهل والأكثر كفاءة لإضافة التحية تلقائيًا بأقل جهد إعداد وبدون أي برمجة.