نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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

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

تشغيل التعليمات البرمجية فبا

علامة تبويب Office - تمكين التحرير والتصفح في Tabbed ، وجعل العمل أسهل بكثير ...
Kutools for Outlook - يجلب ميزات متقدمة قوية 100 إلى Microsoft Outlook
  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني المتعددة حسب القواعد ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC ؛ تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد ؛ الرد على العديد من رسائل البريد الإلكتروني مرة واحدة ؛ إضافة تحية السيارات عند الرد إضافة التاريخ والوقت إلى الموضوع ...
  • أدوات المرفقات: فصل تلقائي ، ضغط الكل ، إعادة تسمية الكل ، حفظ تلقائي للكل ... تقرير سريع، عدد الرسائل المختارة ، إزالة الرسائل المكررة وجهات الاتصال ...
  • أكثر من ميزات 100 المتقدمة سوف حل معظم مشاكلك في Outlook 2010-2019 و 365. ميزات كاملة النسخة التجريبية المجانية من 60.

السهم الأزرق الفقاعة اليمنىعد أعضاء قائمة التوزيع في أوتلوك مع التعليمات البرمجية فبا

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

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

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

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

3. ثم قم بنسخ ولصق التعليمات البرمجية فبا التالية في VbaProject نافذة.

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

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

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

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

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

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

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

4). انقر على إضافة: زر؛

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

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

تشغيل التعليمات البرمجية فبا

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

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

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

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


Kutools for Outlook - يجلب ميزات 100 المتقدمة إلى Outlook ، وجعل العمل أسهل بكثير!

  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان البريد الخاص بك في قائمة BCC; تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية السيارات عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، أوتو ديتاش, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عدد الرسائل المختارة...
  • رسائل البريد الإلكتروني العشوائي قوية حسب الطلب إزالة الرسائل المكررة وجهات الاتصال... يمكنك من القيام بذكاء وأسرع وأفضل في Outlook.
kutools لقطة توقعات kutools علامة التبويب 1180x121
kutools لقطة توقعات kutools بالإضافة إلى علامة التبويب 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    albert_tf · 2 years ago
    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!
  • To post as a guest, your comment is unpublished.
    willie x. gluck · 5 years ago
    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