كيفية إضافة نص افتراضي تلقائيًا إلى سطر الموضوع في Outlook؟

Author: Xiaoyang Last Modified: 2025-05-30

هل هناك طريقة لإضافة نص افتراضي تلقائيًا إلى سطر الموضوع عند إنشاء بريد إلكتروني جديد في Outlook؟ سيتحدث هذا المقال عن بعض الطرق المفيدة لمساعدتك على تنفيذ هذه المهمة في Outlook.

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

إضافة نص افتراضي تلقائيًا إلى سطر الموضوع باستخدام أدوات Kutools لـ Outlook

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

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

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

2. في نافذة "Microsoft Visual Basic for Applications"، انقر نقرًا مزدوجًا على "ThisOutlookSession" أسفل "Project1 (VbaProject.OTM)" لفتح الوحدة، ثم قم بنسخ ولصق الكود التالي في الوحدة الفارغة.

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

Public xFlag As Boolean
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xText As String
On Error Resume Next
If xFlag = False Then
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
L1:     xText = InputBox("Input Subject", "Kutools for Outlook", xText)
        If xText = "" Then
            xFlag = False
            Cancel = True
            Exit Sub
        End If
        Item.Subject = xText & " " & Item.Subject
        xFlag = True
        Cancel = True
    End If
Else
    xFlag = False
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
      GoTo L1
    End If
End If
End Sub

ملاحظة: في هذا الكود، النص "Skyyang-" هو النص الذي تريد إضافته كافتراضي إلى سطر الموضوع، يرجى تغييره إلى النص الخاص بك.

3. اضغط على "Alt" + "Q" لإغلاق نافذة "Microsoft Visual Basic for Applications".

الآن تحتاج إلى إنشاء بريد إلكتروني جديد لاختبار النتيجة.

4. قم بإنشاء بريد إلكتروني جديد، وأدخل المستلم في حقل "إلى"، واكتب الموضوع في سطر "الموضوع". بعد ذلك، انقر على زر "إرسال"، ستظهر نافذة منبثقة تسألك عما إذا كنت تريد إضافة النص الافتراضي إلى سطر الموضوع.

5. انقر على زر "موافق"، وسيتم إضافة النص الافتراضي قبل محتوى الموضوع تلقائيًا.

إضافة نص افتراضي تلقائيًا إلى سطر الموضوع باستخدام أدوات Kutools لـ Outlook

إليك طريقة سهلة لمساعدتك على إضافة نص افتراضي تلقائيًا إلى سطر الموضوع. باستخدام أداة "Kutools for Outlook"، يمكنك إنهاء هذه المهمة بسرعة.

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

1. قم بتشغيل Outlook، ثم انقر على "Kutools" > "الخيارات".

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