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

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

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

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

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

---

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

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

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

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

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

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. انقر بزر الماوس الأيمن على «شريط أدوات الوصول السريع»، ثم اختر «تخصيص شريط أدوات الوصول السريع» من القائمة المنبثقة.

3. في مربع حوار «خيارات Outlook»، اتبع الخطوات التالية:

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

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

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

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

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

---

---

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

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

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

2. ستظهر أمامك فورًا معلومات «إجمالي عدد الأعضاء» و«تاريخ الإنشاء» و«تاريخ آخر تعديل».