كيفية إنشاء قائمة منسدلة للموضوعات في Outlook؟
قد يكون لديك مواضيع بريد إلكتروني مختلفة معدة مسبقًا تحتاج إلى توزيعها على مستلمين مختلفين في Outlook. سيكون من المفيد جدًا وجود قائمة منسدلة لسطر الموضوع لاختيار موضوع دون كتابته يدويًا عند إنشاء رسالة بريد إلكتروني. تمامًا مثل الصورة المتحركة الموضحة أدناه. يوفر هذا البرنامج التعليمي ثلاثة أكواد VBA لمساعدتك في إنشاء قائمة منسدلة بمواضيع مختلفة معدة مسبقًا. عند إنشاء رسالة بريد إلكتروني ، يمكنك تحديد أي موضوع تريده من القائمة المنسدلة لملء سطر الموضوع تلقائيًا. يرجى اتباع الدليل المفصل خطوة بخطوة لإنجاز ذلك.
قم بإنشاء قائمة منسدلة للموضوعات في Outlook برمز VBA
في الواقع ، لا يسمح Outlook بإضافة قائمة منسدلة في سطر الموضوع. هنا تحتاج إلى إنشاء نموذج مستخدم ودمجه مع أكواد VBA لإكماله.
1. قم بتشغيل Outlook ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > المستخدم.
3. ثم نموذج المستخدم1 يتم إدراجها تحت Project1 في الجزء الأيمن من ملف Visual Basic محرر. تحتاج إلى إضافة مربع تحرير وسرد وزر أمر إلى نموذج المستخدم هذا عن طريق سحب ملف صندوق التحرير و زر الأوامر على التوالي من الأدوات إلى نموذج المستخدم1.
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. في ال خيارات التوقعات مربع الحوار ، تحتاج إلى تكوين على النحو التالي.
13. ثم يمكنك أن ترى أن الزر تمت إضافته إلى شريط نافذة الرسالة.
14. الآن أنت بحاجة إلى إعادة تشغيل Outlook الخاص بك.
15. عند إنشاء رسالة بريد إلكتروني ، إذا كنت بحاجة إلى إدراج موضوع محدد مسبقًا ، فما عليك سوى النقر فوق الزر المضاف حديثًا على الشريط لعرض نموذج المستخدم ، وتحديد موضوع من القائمة المنسدلة ، ثم النقر فوق الزر OK زر لملئه في سطر الموضوع.
ملاحظة:
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.