كيف تُنشئ قائمة منسدلة للعناوين في Outlook؟

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

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

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

1. افتح Outlook، ثم اضغط على مفتاحَي «Alt» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».

2. في نافذة «Microsoft Visual Basic for Applications»، انقر على «Insert» > «UserForm».

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

4. انقر بزر الماوس الأيمن على زر الأمر، ثم اختر «Properties» من القائمة المنسدلة.

5. في جزء «Properties – CommandButton1»، غيّر حقل «Caption» إلى «موافق»، وسيؤدي ذلك إلى تحديث النص الظاهر على زر الأمر.

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

كود VBA 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

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

7. انقر نقراً مزدوجاً على "Project1" > «كائنات Microsoft Outlook» > «ThisOutlookSession»، ثم الصق كود VBA التالي في نافذة «ThisOutlookSession (Code)».

كود VBA 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

8. استمر بالنقر فوق «Insert» > «Module» في محرر «Visual Basic»، ثم انسخ والصق كود VBA التالي في نافذة «Module (Code)».

كود VBA 3 المستخدم في نافذة Module

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

9. احفظ الأكواد، ثم اضغط على مفتاحَي «Alt» + «Q» لإغلاق نافذة «Visual Basic Editor» والعودة إلى تطبيق Outlook.

10. انقر على زر «إنشاء بريد إلكتروني جديد» في علامة التبويب «Home» لإنشاء رسالة بريدك الإلكتروني بسهولة وسرعة.

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

12. في مربع حوار «Outlook Options»، ستحتاج إلى إجراء الإعدادات التالية.

13. بعد ذلك، ستلاحظ أن زرًّا قد أُضيف إلى الشريط في نافذة الرسالة.

14. الآن، ستحتاج إلى إعادة تشغيل Outlook.

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

ملاحظات:

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

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

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

• الردود الذكية: احصل على ردود مُعدَّة مسبقًا من محادثاتك السابقة—مخصصة بدقة، وملائمة تمامًا، وجاهزة للاستخدام الفوري.
• قم بتنقية نص بريدك تلقائيًا لضمان وضوحه وتأثيره.
• الكتابة دون عناء: ما عليك سوى إدخال الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع توفر عدة أساليب كتابة.
• الامتدادات الذكية: وسِّع آفاقك باقتراحات ذكية تراعي السياق!
• التلخيص: احصل فورًا على نظرة عامة موجزة للرسائل الإلكترونية الطويلة.
• الوصول العالمي: ترجم رسائلك الإلكترونية إلى أي لغة بسهولة.

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

• الردود الذكية على البريد الإلكتروني
• المحتوى المُحسَّن
• مسودات مبنية على الكلمات المفتاحية
• تمديد المحتوى الذكي
• تلخيص البريد الإلكتروني
• الترجمة متعددة اللغات

لا تنتظر—نزّل مساعد البريد الذكي الآن واستمتع بـ!

---

أفضل أدوات إنتاجية Office

جرِّب Kutools لـ Outlook الجديد كليًّا مع 100+ ميزة رائعة!انقر للتنزيل الآن!

🤖KUTOOLS AI:يستخدم تقنية ذكاء اصطناعي متقدمة للتعامل مع رسائل البريد الإلكتروني بسلاسة، بما في ذلك الرد عليها، وتلخيصها، وتحسينها، وتوسيعها، وترجمتها، وصياغتها.

📧أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لبروتوكولي POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/مخفية وفق القواعد عند إرسال البريد الإلكتروني / التحويل التلقائي (قاعدة متقدمة) / إضافة التحيّة تلقائيًّا / تقسيم رسائل البريد الإلكتروني ذات المستلمين المتعددين تلقائيًّا إلى رسائل فردية...

📨إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب العناوين وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

📁المرفقات الاحترافية: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...

🌟سحر الواجهة: 😊إيموجيات أكثر جمالًا وروعة / إشعارك عند وصول رسائل بريد إلكتروني مهمة / تصغير Outlook بدلًا من إغلاقه...

👍عجائب النقرة الواحدة: الرد على الجميع مع المرفقات / الحماية من رسائل التصيد الاحتيالي / 🕘عرض منطقة الوقت الحالي للمرسل...

👩🏼‍🤝‍👩🏻جهات الاتصال والتقويم: إضافة جهات اتصال دفعةً واحدة من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

افتح Kutools لـ Outlook بنقرة واحدة فورًا! لا تنتظر، نزِّله الآن وحسِّن كفاءتك!

قائمة ميزات 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

حول الحزمة⬇ نزِّل الحزمة💳 اشترِ الحزمة