انتقل إلى المحتوى الرئيسي

كيفية حساب أعضاء قائمة التوزيع في Outlook؟

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

عد أعضاء قائمة التوزيع في Outlook برمز VBA

إنشاء وحفظ رمز VBA

أضف زرًا للماكرو إلى شريط أدوات الوصول السريع

قم بتشغيل التعليمات البرمجية لـ VBA

علامة تبويب Office - تمكين التحرير والتصفح المبوب في Microsoft Office، مما يجعل العمل سهلاً
Kutools for Outlook - عزز Outlook بأكثر من 100 ميزة متقدمة لتحقيق كفاءة فائقة
عزز Outlook 2021 - 2010 أو Outlook 365 الخاص بك باستخدام هذه الميزات المتقدمة. استمتع بتجربة مجانية شاملة مدتها 60 يومًا وارفع مستوى تجربة بريدك الإلكتروني!

السهم الأزرق الحق فقاعةعد أعضاء قائمة التوزيع في Outlook برمز VBA

يمكنك استخدام التعليمات البرمجية لـ VBA لحساب أعضاء قائمة التوزيع على النحو التالي.

إنشاء وحفظ رمز VBA

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

2. انقر إدراج > وحدة. انظر لقطة الشاشة:

3. ثم انسخ والصق كود فبا التالي في ملف VbaProject نافذة.

فبا: عد أعضاء قائمة التوزيع في Outlook

Sub CountDLMembers()
    Dim oOL As Outlook.Application
    Dim oSelection As Outlook.Selection
    Dim oItem As Object
    Dim olDL As Outlook.DistListItem
    Dim Result As String
    Set oOL = Outlook.Application
    'Check and get the selected Contact Group
    Select Case TypeName(oOL.ActiveWindow)
        Case "Explorer"
            Set oSelection = oOL.ActiveExplorer.Selection
            If oSelection.Count > 0 Then
                Set oItem = oSelection.Item(1)
            Else
                Result = MsgBox("No item selected. " & _
                            "Please select a Contact Group first.", _
                            vbCritical, "CountDLMembers")
                Exit Sub
            End If
        Case "Inspector"
            Set oItem = oOL.ActiveInspector.CurrentItem
        Case Else
            Result = MsgBox("Unsupported Window type." & _
                        vbNewLine & "Please make a selection" & _
                        "in the Calendar or open a Contact Group first.", _
                        vbCritical, "CountDLMembers")
            Exit Sub
    End Select
    If oItem.Class = Outlook.olDistributionList Then
        'Display the member count
        Set olDL = oItem        
        Result = MsgBox("The Contact Group '" & olDL.DLName & "' contains " & olDL.MemberCount & " members.", vbInformation, "CountDLMembers")
    Else
        'Selected item isn't a Contact Group item
        Result = MsgBox("No Contact Group item selected. " & _
                    "Please make a selection first.", _
                    vbCritical, "CountDLMembers")
        Exit Sub
    End If
    'Cleanup
    Set oOL = Nothing
    Set olDL = Nothing
End Sub

4. ثم انقر فوق حفظ زر لحفظه.

5. أقفل ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

أضف زرًا للماكرو إلى شريط أدوات الوصول السريع

1. انتقل إلى معلومات الاتصال or مجتمع عرض بالنقر فوق معلومات الاتصال or مجتمع في ال جزء التنقل.

2. في Outlook 2010 و 2013 ، يرجى النقر بزر الماوس الأيمن فوق ملف شريط أدوات الوصول السريع ثم انقر فوق تخصيص شريط أدوات الوصول السريع في قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

ملاحظات: في Outlook 2007 ، يرجى فتح قائمة التوزيع ، ثم النقر بزر الماوس الأيمن على ملف شريط أدوات الوصول السريع لتحديد شريط أدوات الوصول السريع في قائمة النقر بزر الماوس الأيمن.

3. في ال خيارات التوقعات مربع الحوار ، تحتاج إلى:

1). تأكد من تحديد موقع في شريط أدوات الوصول السريع قسم.

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

3). حدد وحدات الماكرو في ملف الفاصل صندوق؛

4). انقر على أضف زر؛

5). وأخيرًا انقر فوق ملف OK زر. انظر لقطة الشاشة:

4. ثم يمكنك رؤية زر الماكرو مضافًا على شريط أدوات الوصول السريع.

قم بتشغيل التعليمات البرمجية لـ VBA

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

1. في Outlook 2010 و 2013 ، يمكنك فقط تحديد قائمة التوزيع ، ثم النقر فوق الزر الخاص بالماكرو الموجود في Qشريط أدوات الوصول uick.

ملاحظات: في Outlook 2007 ، تحتاج إلى فتح قائمة توزيع ثم النقر فوق الزر الخاص بالماكرو الموجود في ملف شريط أدوات الوصول السريع.

2. ثم سيظهر مربع مطالبة لإخبارك بعدد الأعضاء الموجودين في قائمة التوزيع هذه. ثم انقر فوق ملف OK.


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

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

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

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

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

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

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Wish there was an easier way to find out how many addresses in a contact group, but since there isn't this is about the best method I've seen. Thank you!
This comment was minimized by the moderator on the site
Alternate method is to: create a dummy message with the list expand the list select all copy to Word find and replace: "; " with "^p" [or anything!] dialog box shows number of replacements add 1 to that number
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations