كيفية حساب أعضاء قائمة التوزيع في Outlook؟
إدارة مجموعات جهات الاتصال في 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. انقر فوق "إدراج" > "وحدة" في شريط الأدوات.
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. سيظهر موجه يعرض عدد الأعضاء في قائمة التوزيع.
🌟 تقسيم مجموعات جهات الاتصال بسهولة في Outlook 🌟
🚀 إعادة تنظيم مجموعات جهات الاتصال الخاصة بك بسرعة في Outlook! مع Kutools for Outlook، يمكنك تقسيم المجموعات الكبيرة إلى مجموعات أصغر وأكثر قابلية للإدارة بنقرات قليلة.
✨ كيف يعمل:
- انتقل إلى عرض جهات الاتصال وحدد المجموعة المراد تقسيمها.
- انقر فوق "Kutools Plus" > "مجموعة جهات الاتصال" > "تقسيم إلى مجموعة جهات اتصال جديدة".
- حدد جهات الاتصال التي تريد نقلها إلى مجموعة جديدة وأعطِ اسمًا للمجموعة.
- انقر فوق "موافق" ودع Kutools يقوم بالباقي!

احسب أعضاء مجموعة جهات الاتصال فورًا باستخدام Kutools for Outlook 👍
إذا كنت تبحث عن حل أسرع وأسهل وأكثر بديهية، فإن "Kutools for Outlook" هو الأداة المثالية. توفر ميزة "المعلومات" الخاصة بها عددًا فوريًا لأعضاء قائمة التوزيع بنقرة واحدة فقط. هذه الطريقة تلغي الحاجة إلى الإعدادات التقنية وتقدم تفاصيل إضافية حول المجموعة، مما يجعلها أداة ضرورية لمستخدمي Outlook.
افتح الباب أمام كفاءة البريد الإلكتروني القصوى مع أدوات Kutools لـ Outlook! استمتع بـ 70 ميزات قوية مجانًا تمامًا، إلى الأبد. قم بتنزيل النسخة المجانية الآن!
1. بعد فتح مجموعة جهات الاتصال التي تريد تحليلها، انقر فوق "Kutools" > "معلومات".
2. على الفور، يمكنك رؤية "إجمالي عدد الأعضاء"، "تاريخ الإنشاء"، و"تاريخ آخر تعديل".
لماذا تعتبر طريقة Kutools هي الأفضل؟
بينما تعد طريقة VBA فعالة، إلا أنها غير عملية بالنسبة لمعظم المستخدمين بسبب تعقيدها وإعداداتها متعددة الخطوات. من ناحية أخرى، تقدم Kutools for Outlook راحة لا مثيل لها. إليك السبب في كونها الخيار الأفضل:
- إعداد سريع: لا حاجة للتنقل بين القوائم أو كتابة الأكواد. قم بتثبيت Kutools، وستكون جاهزًا للبدء.
- حل بنقرة واحدة: وفر الوقت والجهد مع نتائج فورية.
- خالي من الأخطاء: على عكس VBA، لا يوجد خطر من الأخطاء في البرمجة أو التكوين. تضمن Kutools الدقة بنسبة 100% في كل مرة.
- معلومات شاملة: تجاوز مجرد عدد الأعضاء مع بيانات إضافية لا يمكن لـ VBA تقديمها.
- إنتاجية احترافية: مثالية للمستخدمين الذين يحتاجون إلى إدارة مجموعات جهات الاتصال بكفاءة دون انقطاع.
أفضل أدوات الإنتاجية لمجموعة Office
خبر عاجل: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية حسب القواعد عند الإرسال / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية ...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوعات وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات ...
📁 المرفقات الاحترافية: حفظ دفعي / فصل دفعي / ضغط دفعي / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تنبيهك عند وصول رسائل هامة / تصغير Outlook بدلاً من الإغلاق ...
👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / رسائل البريد الإلكتروني المضادة للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات اتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...
افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

