Skip i'r prif gynnwys

Sut i gyfrif aelodau rhestr ddosbarthu yn Outlook?

Yn Outlook, nid oes unrhyw nodwedd i chi gyfrif aelodau'r rhestr ddosbarthu yn uniongyrchol. Os oes gennych chi restr ddosbarthu gyda llawer iawn o gyfeiriadau e-bost, sut i ddarganfod faint o aelodau sydd wedi'u cynnwys yn y grŵp hwn? Gyda'r erthygl hon, byddwch yn dysgu sut i gyfrif aelodau rhestr ddosbarthu trwy ddefnyddio cod VBA.

Cyfrif aelodau rhestr dosbarthu yn Outlook gyda chod VBA

Creu ac arbed cod VBA

Ychwanegwch botwm ar gyfer y macro i'r Bar Offer Mynediad Cyflym

Rhedeg y cod VBA

Tab Office - Galluogi Golygu a Phori Tabiau yn Microsoft Office, Gwneud Gwaith yn Awel
Kutools ar gyfer Outlook - Hwb Outlook gyda 100 + Nodweddion Uwch ar gyfer Effeithlonrwydd Superior
Rhowch hwb i'ch Outlook 2021 - 2010 neu Outlook 365 gyda'r nodweddion uwch hyn. Mwynhewch dreial cynhwysfawr am ddim 60 diwrnod a dyrchafwch eich profiad e-bost!

swigen dde glas saethCyfrif aelodau rhestr dosbarthu yn Outlook gyda chod VBA

Gallwch ddefnyddio cod VBA i gyfrif aelodau'r rhestr ddosbarthu fel a ganlyn.

Creu ac arbed cod VBA

1. Agorwch y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr gyda phwyso'r Alt + F11 allweddi ar y bysellfwrdd ar yr un pryd.

2. Cliciwch Mewnosod > Modiwlau. Gweler y screenshot:

3. Yna copïwch a gludwch y cod VBA canlynol i'r VbaProject ffenestr.

VBA: Cyfrif aelodau rhestr dosbarthu yn 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. Yna cliciwch y Save botwm i'w achub.

5. Caewch y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Ychwanegwch botwm ar gyfer y macro i'r Bar Offer Mynediad Cyflym

1. Ewch i Cysylltiadau or Pobl gweld trwy glicio ar y Cysylltiadau or Pobl yn y Panelau Navigation.

2. Yn Outlook 2010 a 2013, cliciwch ar y dde ar y Bar Offer Mynediad Cyflym ac yna cliciwch Addasu Bar Offer Mynediad Cyflym yn y ddewislen clicio ar y dde. Gweler y screenshot:

Nodyn: Yn Outlook 2007, agorwch restr ddosbarthu, ac yna cliciwch ar y dde ar y Bar Offer Mynediad Cyflym i ddewis y Bar Offer Mynediad Cyflym yn y ddewislen clicio ar y dde.

3. Yn y Dewisiadau Outlook blwch deialog, mae angen i chi:

1). Sicrhewch eich bod yn lleoli yn y Bar Offer Mynediad Cyflym adran;

2). Dewiswch Macros yn y Dewiswch orchmynion oddi wrth rhestr ostwng;

3). Dewiswch y macros yn y gwahanydd blwch;

4). Cliciwch y Ychwanegu botwm;

5). Ac yn olaf cliciwch y OK botwm. Gweler y screenshot:

4. Yna gallwch weld bod y botwm ar gyfer y macro yn cael ei ychwanegu ar y Bar Offer Mynediad Cyflym.

Rhedeg y cod VBA

Ar ôl ychwanegu'r botwm ar gyfer y macro ar y Bar Offer Mynediad Cyflym, nawr gallwch chi redeg y cod VBA i gyfrif aelodau'r rhestr ddosbarthu.

1. Yn Outlook 2010 a 2013, gallwch ddewis rhestr ddosbarthu, ac yna cliciwch y botwm ar gyfer y macro ar y Q.Bar Offer Mynediad uick.

Nodyn: Yn Outlook 2007, mae angen ichi agor rhestr ddosbarthu ac yna cliciwch y botwm am y macro ar y Bar Offer Mynediad Cyflym.

2. Yna bydd blwch prydlon yn ymddangos i ddweud wrthych faint o aelodau sydd wedi'u cynnwys ar y rhestr ddosbarthu hon. Yna cliciwch y OK.


Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau ProArbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

 

 

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