كيفية إنشاء قائمة منسدلة للمواضيع في Outlook؟

Author: Siluvia Last Modified: 2025-08-06

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

إنشاء قائمة منسدلة للمواضيع في Outlook باستخدام كود VBA

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

1. قم بتشغيل Outlook الخاص بك، واضغط على مفتاح "Alt" + "F11" لفتح نافذة "Microsoft Visual Basic for Applications".

2. في نافذة "Microsoft Visual Basic for Applications"، انقر فوق "إدراج" > "نموذج المستخدم".

doc-subject-line-drop-down-list-1

3. بعد ذلك يتم إدراج "UserForm1" أسفل "Project1" في الجزء الأيسر من محرر "Visual Basic". تحتاج إلى إضافة مربع تحرير وسرد وزر أمر إلى هذا النموذج عن طريق سحب "ComboBox" و "CommandButton" على التوالي من "Toolbox" إلى "UserForm1".

doc-subject-line-drop-down-list-2

4. انقر بزر الماوس الأيمن على زر الأمر وحدد "خصائص" من قائمة النقر بزر الماوس الأيمن.

doc-subject-line-drop-down-list-3

5. في لوحة "خصائص - CommandButton1"، قم بتغيير حقل "Caption" إلى "موافق". هذا الإجراء سيغير النص المعروض على زر الأمر.

doc-subject-line-drop-down-list-4

6. انقر نقرًا مزدوجًا على المساحة الفارغة في UserForm لفتح نافذة "UserForm (Code)" المقابلة، ثم استبدل الكود الموجود بالكود التالي لـ VBA.

VBA code 1: نموذج المستخدم مع قائمة منسدلة تتضمن مواضيع بريد إلكتروني متعددة محددة مسبقًا

Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
  With ComboBox1
    .AddItem "Subject 1"
    .AddItem "Subject 2"
    .AddItem "Subject 3"
    .AddItem "Subject 4"
    .AddItem "Subject 5"
    .AddItem "No change"
  End With
End Sub

Private Sub CommandButton1_Click()
  GCbbIndex = ComboBox1.ListIndex
  GSelSubject = ComboBox1.Value
  Unload Me
End Sub

doc-subject-line-drop-down-list-5

ملاحظة: في الكود، "Subject 1, 2, 3, 4" و "5" هي مواضيع البريد الإلكتروني المحددة مسبقًا التي تريد استخدامها في رسائل البريد الإلكتروني الخاصة بك. “No change” تعني عدم تغيير أي شيء في موضوع البريد الإلكتروني الحالي. يمكنك تغيير مواضيع البريد الإلكتروني المحددة مسبقًا في كود VBA وفقًا لاحتياجاتك.

7. انقر نقرًا مزدوجًا على "Project1" > "Microsoft Outlook Objects" > "ThisOutlookSession". ثم قم بنسخ الكود التالي لـ VBA في نافذة "ThisOutlookSession (Code)".

VBA code 2 المستخدم في نافذة ThisOutlookSession

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub

doc-subject-line-drop-down-list-6

8. استمر بالنقر فوق "إدراج" > "وحدة" في محرر "Visual Basic". ثم قم بنسخ ولصق الكود التالي لـ VBA في نافذة "Module (Code)".

VBA code 3 المستخدم في نافذة الوحدة

Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
  Dim xItem As MailItem
  Dim xMail As Outlook.MailItem
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set xMail = GInlineMail
      Debug.Print "Explorer"
    Case "Inspector"
      Set xMail = Application.ActiveInspector.CurrentItem
      Debug.Print "Inspector"
  End Select
  UserForm1.Show
  If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
    xMail.Subject = GSelSubject
  End If
End Sub

doc-subject-line-drop-down-list-7

9. احفظ الأكواد واضغط على مفتاح "Alt" + "Q" لإغلاق نافذة "محرر Visual Basic" والعودة إلى تطبيق Outlook.

10. انقر على زر "إنشاء بريد إلكتروني جديد" أسفل علامة التبويب "الرئيسية" لإنشاء بريد إلكتروني.

11. في نافذة الرسالة الجديدة، انقر فوق "تخصيص شريط الوصول السريع" > "المزيد من الأوامر".

doc-subject-line-drop-down-list-8

12. في مربع الحوار "خيارات Outlook"، تحتاج إلى التكوين كما يلي.

12.1) حدد "Macros" في القائمة المنسدلة "اختر الأوامر من";

12.2) حدد "Project1.ChangeSubject" في مربع قائمة الأوامر;

12.3) انقر على زر "إضافة";

12.4) انقر على زر "موافق". انظر لقطة الشاشة:

doc-subject-line-drop-down-list-9

13. بعد ذلك، ستتمكن من رؤية أن زر تمت إضافته إلى شريط أدوات نافذة الرسالة.

doc-subject-line-drop-down-list-11

14. الآن تحتاج إلى إعادة تشغيل Outlook الخاص بك.

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

ملاحظات:

1) يمكنك تغيير الموضوع الحالي بأي موضوع محدد من القائمة المنسدلة;

2) تعمل هذه الطريقة بشكل جيد عند الرد أو إعادة توجيه البريد الإلكتروني في نافذة جديدة;

3) إذا كنت تميل إلى الرد على رسائل البريد الإلكتروني مباشرة من لوحة القراءة بدلاً من فتح نافذة منفصلة، يمكنك استدعاء نموذج المستخدم كما يلي.

3.1) انقر على "Developer" > "Macros" > "Project1.ChangeSubject". انظر لقطة الشاشة:

doc-subject-line-drop-down-list-13

3.2) عندما يظهر نموذج المستخدم، حدد موضوعًا محددًا مسبقًا من القائمة المنسدلة وانقر على زر "موافق"، سيتم تغيير الموضوع الأصلي فورًا.

4) إذا اخترت "No change" في القائمة المنسدلة، سيتم الاحتفاظ بالموضوع الأصلي بدون أي تغيير.

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

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

هذه الميزة تدعم: