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

Author: Siluvia Last Modified: 2025-08-06

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

حساب أعضاء قائمة التوزيع باستخدام كود VBA (يدوي ومعقد)

الخطوة 1: إنشاء وحفظ كود VBA
الخطوة 2: إضافة زر لماكرو إلى شريط أدوات الوصول السريع
الخطوة 3: تشغيل كود VBA

احسب أعضاء مجموعة جهات الاتصال فورًا باستخدام Kutools for Outlook 👍 (سريع وسهل)

حساب أعضاء قائمة التوزيع باستخدام كود VBA

بالنسبة للمستخدمين المتمرسين في الإعدادات التقنية، يوفر "VBA" (Visual Basic for Applications) طريقة لحساب أعضاء قائمة التوزيع. وعلى الرغم من أنه فعال، إلا أن هذه الطريقة تتطلب بعض الجهد لتكوينها وتشغيلها.

الخطوة 1: إنشاء وحفظ كود VBA

1. اضغط على "Alt" + "F11" لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق "إدراج" > "وحدة" في شريط الأدوات.

the screenshot of step about counting distribution list members in Outlook with VBA code 1

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

VBA: حساب أعضاء قائمة التوزيع في 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. انقر فوق أيقونة "حفظ"، ثم أغلق محرر VBA.

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

1. انتقل إلى "الأفراد" أو "جهات الاتصال" في جزء التنقل في Outlook للتبديل إلى عرض "جهات الاتصال/الأفراد".

2. انقر بزر الماوس الأيمن على "شريط أدوات الوصول السريع"، ثم انقر فوق "تخصيص شريط أدوات الوصول السريع" في قائمة النقر بزر الماوس الأيمن.

the screenshot of step about counting distribution list members in Outlook with VBA code 2

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

1). حدد "ماكرو" في القائمة المنسدلة "اختر الأوامر من".
2). حدد الماكرو الذي قمت بإنشائه في القائمة وانقر فوق "إضافة"، ثم انقر فوق "موافق".

the screenshot of step about counting distribution list members in Outlook with VBA code 3

الخطوة 3: تشغيل كود VBA

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

1. حدد قائمة التوزيع التي تريد تحليلها، ثم انقر فوق زر الماكرو في "شريط أدوات الوصول السريع".

the screenshot of step about counting distribution list members in Outlook with VBA code 4

2. سيظهر موجه يعرض عدد الأعضاء في قائمة التوزيع.

the screenshot of step about counting distribution list members in Outlook with VBA code 5

🌟 تقسيم مجموعات جهات الاتصال بسهولة في Outlook 🌟

🚀 إعادة تنظيم مجموعات جهات الاتصال الخاصة بك بسرعة في Outlook! مع Kutools for Outlook، يمكنك تقسيم المجموعات الكبيرة إلى مجموعات أصغر وأكثر قابلية للإدارة بنقرات قليلة.

✨ كيف يعمل:

انتقل إلى عرض جهات الاتصال وحدد المجموعة المراد تقسيمها.
انقر فوق "Kutools Plus" > "مجموعة جهات الاتصال" > "تقسيم إلى مجموعة جهات اتصال جديدة".
حدد جهات الاتصال التي تريد نقلها إلى مجموعة جديدة وأعطِ اسمًا للمجموعة.
انقر فوق "موافق" ودع Kutools يقوم بالباقي!

Split to Multiple Contact Groups Feature

🌟 جرب Kutools for Outlook الآن

احسب أعضاء مجموعة جهات الاتصال فورًا باستخدام Kutools for Outlook 👍

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

افتح الباب أمام كفاءة البريد الإلكتروني القصوى مع أدوات Kutools لـ Outlook! استمتع بـ 70 ميزات قوية مجانًا تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!

1. بعد فتح مجموعة جهات الاتصال التي تريد تحليلها، انقر فوق "Kutools" > "معلومات".

the screenshot of step about counting distribution list members in Outlook with Kutools method 6

2. على الفور، يمكنك رؤية "إجمالي عدد الأعضاء"، "تاريخ الإنشاء"، و"تاريخ آخر تعديل".

the screenshot of step about counting distribution list members in Outlook with Kutools method 7

لماذا تعتبر طريقة Kutools هي الأفضل؟

بينما تعد طريقة VBA فعالة، إلا أنها غير عملية بالنسبة لمعظم المستخدمين بسبب تعقيدها وإعداداتها متعددة الخطوات. من ناحية أخرى، تقدم Kutools for Outlook راحة لا مثيل لها. إليك السبب في كونها الخيار الأفضل:

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