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

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

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

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

1. قم بتشغيل Outlook ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > المستخدم.

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

4. انقر بزر الماوس الأيمن فوق زر الأمر وحدد عقارات في قائمة النقر بزر الماوس الأيمن.

5. في ال خصائص - CommandButton1 جزء تغيير شرح الحقل إلى OK. سيؤدي هذا الإجراء إلى تغيير النص المعروض على زر الأمر.

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

كود VBA 1: UserForm مع قائمة منسدلة تتضمن مواضيع بريد إلكتروني متعددة معدة مسبقًا

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

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

7. نقرتين متتاليتين Project1 > كائنات Microsoft Outlook > هذه الجلسة. ثم انسخ رمز فبا التالي في نافذة ThisOutlookSession (رمز).

رمز 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. استمر في النقر إدراج > وحدة في ال Visual Basic محرر. ثم انسخ والصق رمز VBA التالي في ملف وحدة (كود) نافذة.

كود فبا 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

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

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

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

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

شنومكس) حدد وحدات الماكرو في ال اختر الأوامر من قائمة منسدلة؛

شنومكس) حدد مشروع 1.ChangeSubject في مربع قائمة الأوامر ؛

شنومكس) انقر فوق أضف زر؛

شنومكس) انقر فوق OK زر. انظر لقطة الشاشة:

13. ثم يمكنك أن ترى أن الزر تمت إضافته إلى شريط نافذة الرسالة.

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

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

ملاحظة:

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

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

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

شنومكس) انقر المطور > وحدات الماكرو > مشروع 1.ChangeSubject. انظر لقطة الشاشة:

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

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

Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.