ไปยังเนื้อหาหลัก

วิธีการนับสมาชิกรายชื่อการแจกจ่ายใน Outlook

ใน Outlook ไม่มีคุณลักษณะให้คุณนับสมาชิกรายชื่อการแจกจ่ายโดยตรง หากคุณมีรายชื่อการแจกจ่ายที่มีที่อยู่อีเมลจำนวนมากจะทราบได้อย่างไรว่ากลุ่มนี้มีสมาชิกกี่คน ในบทความนี้คุณจะได้เรียนรู้วิธีการนับสมาชิกรายชื่อการแจกจ่ายโดยใช้รหัส VBA

นับสมาชิกรายชื่อการแจกจ่ายใน Outlook ด้วยรหัส VBA

สร้างและบันทึกรหัส VBA

เพิ่มปุ่มสำหรับแมโครลงในแถบเครื่องมือด่วน

เรียกใช้รหัส VBA

Office Tab - เปิดใช้งานการแก้ไขแบบแท็บและการเรียกดูใน Microsoft Office ทำให้งานเป็นเรื่องง่าย
Kutools for Outlook - เพิ่ม Outlook ด้วยฟีเจอร์ขั้นสูงกว่า 100+ รายการเพื่อประสิทธิภาพที่เหนือกว่า
เพิ่มประสิทธิภาพ Outlook 2021 - 2010 หรือ Outlook 365 ของคุณด้วยฟีเจอร์ขั้นสูงเหล่านี้ เพลิดเพลินกับการทดลองใช้ฟรี 60 วันและยกระดับประสบการณ์อีเมลของคุณ!

ลูกศรสีฟ้าฟองขวานับสมาชิกรายชื่อการแจกจ่ายใน Outlook ด้วยรหัส VBA

คุณสามารถใช้รหัส VBA เพื่อนับสมาชิกรายชื่อการแจกจ่ายได้ดังนี้

สร้างและบันทึกรหัส VBA

1 เปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างด้วยการกดปุ่ม อื่น ๆ + F11 ปุ่มบนแป้นพิมพ์ในเวลาเดียวกัน

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล. ดูภาพหน้าจอ:

3. จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในไฟล์ โครงการ VBA หน้าต่าง

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 จากนั้นคลิกปุ่ม ลด เพื่อบันทึก

5 ปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

เพิ่มปุ่มสำหรับแมโครลงในแถบเครื่องมือด่วน

1 ไปที่ ติดต่อ or คน ดูโดยคลิกที่ไฟล์ ติดต่อ or คน ใน บานหน้าต่างนำทาง.

2. ใน Outlook 2010 และ 2013 โปรดคลิกขวาที่ไฟล์ แถบเครื่องมือด่วน แล้วคลิก ปรับแต่งแถบเครื่องมือด่วน ในเมนูคลิกขวา ดูภาพหน้าจอ:

หมายเหตุ: ใน Outlook 2007 โปรดเปิดรายการแจกจ่ายจากนั้นคลิกขวาที่ไฟล์ แถบเครื่องมือด่วน เพื่อเลือก แถบเครื่องมือด่วน ในเมนูคลิกขวา

3 ใน ตัวเลือกของ outlook คุณต้อง:

1). ตรวจสอบให้แน่ใจว่าคุณอยู่ในไฟล์ แถบเครื่องมือด่วน มาตรา;

2). เลือก แมโคร ใน เลือกคำสั่งจาก รายการแบบหล่นลง

3). เลือกมาโครในไฟล์ เครื่องสกัด กล่อง;

4). คลิก เพิ่ม ปุ่ม;

5). และสุดท้ายคลิก OK ปุ่ม. ดูภาพหน้าจอ:

4. จากนั้นคุณจะเห็นปุ่มสำหรับมาโครถูกเพิ่มในไฟล์ แถบเครื่องมือด่วน.

เรียกใช้รหัส VBA

หลังจากเพิ่มปุ่มสำหรับแมโครบนแถบเครื่องมือด่วนตอนนี้คุณสามารถเรียกใช้รหัส VBA เพื่อนับสมาชิกรายชื่อการแจกจ่าย

1. ใน Outlook 2010 และ 2013 คุณสามารถเลือกรายชื่อการแจกจ่ายจากนั้นคลิกปุ่มสำหรับแมโครบน Quick แถบเครื่องมือการเข้าถึง.

หมายเหตุ: ใน Outlook 2007 คุณต้องเปิดรายชื่อการแจกจ่ายจากนั้นคลิกปุ่มสำหรับแมโครบนไฟล์ แถบเครื่องมือด่วน.

2. จากนั้นกล่องพร้อมต์จะปรากฏขึ้นเพื่อบอกจำนวนสมาชิกที่มีอยู่ในรายชื่อการแจกจ่ายนี้ จากนั้นคลิกไฟล์ OK.


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Outlook - คุณสมบัติอันทรงพลังมากกว่า 100 รายการเพื่อเติมพลังให้กับ Outlook ของคุณ

📧 การทำงานอัตโนมัติของอีเมล: ไม่อยู่ที่สำนักงาน (ใช้ได้กับ POP และ IMAP)  /  กำหนดการส่งอีเมล  /  Auto CC/BCC ตามกฎเมื่อส่งอีเมล  /  ส่งต่ออัตโนมัติ (กฎขั้นสูง)   /  เพิ่มคำทักทายอัตโนมัติ   /  แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...

📨 การจัดการอีเมล์: เรียกคืนอีเมลได้อย่างง่ายดาย  /  บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ  /  ลบอีเมลที่ซ้ำกัน  /  การค้นหาขั้นสูง  /  รวมโฟลเดอร์ ...

📁 ไฟล์แนบโปรบันทึกแบทช์  /  การแยกแบทช์  /  การบีบอัดแบบแบตช์  /  บันทึกอัตโนมัติ   /  ถอดอัตโนมัติ  /  บีบอัดอัตโนมัติ ...

🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น   /  เพิ่มประสิทธิภาพการทำงาน Outlook ของคุณด้วยมุมมองแบบแท็บ  /  ลดขนาด Outlook แทนที่จะปิด ...

???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา  /   อีเมลต่อต้านฟิชชิ่ง  /  🕘 แสดงโซนเวลาของผู้ส่ง ...

👩🏼‍🤝‍👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก  /  แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม  /  ลบการแจ้งเตือนวันเกิด ...

เกิน คุณสมบัติ 100 รอการสำรวจของคุณ! คลิกที่นี่เพื่อค้นพบเพิ่มเติม

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations