Skip to main content

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

Author: Siluvia Last Modified: 2025-05-30

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

حساب أعضاء قائمة التوزيع باستخدام كود 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، يمكنك تقسيم المجموعات الكبيرة إلى مجموعات أصغر وأكثر قابلية للإدارة بنقرات قليلة.

✨ كيف يعمل:

  1. انتقل إلى عرض جهات الاتصال وحدد المجموعة المراد تقسيمها.
  2. انقر فوق "Kutools Plus" > "مجموعة جهات الاتصال" > "تقسيم إلى مجموعة جهات اتصال جديدة".
  3. حدد جهات الاتصال التي تريد نقلها إلى مجموعة جديدة وأعطِ اسمًا للمجموعة.
  4. انقر فوق "موافق" ودع 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 تقديمها.
  • إنتاجية احترافية: مثالية للمستخدمين الذين يحتاجون إلى إدارة مجموعات جهات الاتصال بكفاءة دون انقطاع.
ملاحظة: لتطبيق أداة "المعلومات" الخاصة بـ Kutools for Outlook، يجب عليك أولاً تنزيل وتثبيت Kutools for Outlook.

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

خبر عاجل: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!

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

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

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

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

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

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

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

افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

kutools for outlook features1 kutools for outlook features2