Gå til hovedindhold

Hvordan tæller jeg distributionslistemedlemmer i Outlook?

I Outlook er der ingen funktion for dig at tælle distributionslistemedlemmerne direkte. Hvis du har en distributionsliste med et stort antal e-mail-adresser, hvordan finder du ud af, hvor mange medlemmer der er inkluderet i denne gruppe? Med denne artikel lærer du, hvordan du tæller medlemmer af distributionslisten ved hjælp af VBA-kode.

Tæl medlemmer af distributionslisten i Outlook med VBA-kode

Opret og gem en VBA-kode

Tilføj en knap til makroen til værktøjslinjen Hurtig adgang

Kør VBA-koden

Office-faneblad - Aktiver fanebaseret redigering og browsing i Microsoft Office, hvilket gør arbejdet til en leg
Kutools til Outlook - Boost Outlook med 100+ avancerede funktioner for overlegen effektivitet
Boost din Outlook 2021 - 2010 eller Outlook 365 med disse avancerede funktioner. Nyd en omfattende 60-dages gratis prøveperiode og løft din e-mail-oplevelse!

pil blå højre bobleTæl medlemmer af distributionslisten i Outlook med VBA-kode

Du kan bruge VBA-kode til at tælle distributionslistemedlemmerne som følger.

Opret og gem en VBA-kode

1. Åbn Microsoft Visual Basic til applikationer vindue ved at trykke på andre + F11 på tastaturet på samme tid.

2. klik indsatte > Moduler. Se skærmbillede:

3. Kopier og indsæt derefter følgende VBA-kode i VbaProjekt vindue.

VBA: Tæl distributionslistemedlemmer i 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. Klik derefter på Gem knappen for at gemme den.

5. Luk Microsoft Visual Basic til applikationer vindue.

Tilføj en knap til makroen til værktøjslinjen Hurtig adgang

1. Gå til Kontakt os or Mennesker visning ved at klikke på Kontakt os or Mennesker i Navigationsrude.

2. I Outlook 2010 og 2013 skal du højreklikke på Hurtig adgangs værktøjslinje og klik derefter på Tilpas værktøjslinjen Hurtig adgang i højreklikmenuen. Se skærmbillede:

Bemærk: I Outlook 2007 skal du åbne en distributionsliste og derefter højreklikke på Hurtig adgangs værktøjslinje for at vælge Hurtig adgangs værktøjslinje i højreklikmenuen.

3. i Outlook Options dialogboks skal du:

1). Sørg for, at du finder i Hurtig adgangs værktøjslinje afsnit;

2). Vælg Makroer i Vælg kommandoer fra rulleliste

3). Vælg makroerne i Separator boks;

4). Klik på Tilføj knap;

5). Og endelig klik på OK knap. Se skærmbillede:

4. Derefter kan du se knappen til makroen tilføjes på Hurtig adgangs værktøjslinje.

Kør VBA-koden

Når du har tilføjet knappen til makroen på værktøjslinjen Hurtig adgang, kan du nu køre VBA-koden for at tælle distributionslistemedlemmerne.

1. I Outlook 2010 og 2013 kan du bare vælge en distributionsliste og derefter klikke på knappen til makroen på Quick Access Toolbar.

Bemærk: I Outlook 2007 skal du åbne en distributionsliste og derefter klikke på knappen til makroen på Hurtig adgangs værktøjslinje.

2. Derefter vises en hurtigboks, der fortæller dig, hvor mange medlemmer der findes på denne distributionsliste. Klik derefter på OK.


Bedste kontorproduktivitetsværktøjer

Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook

🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...

📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP)  /  Planlæg Send e-mails  /  Auto CC/BCC efter regler ved afsendelse af e-mail  /  Automatisk videresendelse (avancerede regler)   /  Tilføj automatisk hilsen   /  Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...

📨 Email Management: Genkald nemt e-mails  /  Bloker svindel-e-mails af emner og andre  /  Slet duplikerede e-mails  /  Avanceret søgning  /  Konsolider mapper ...

📁 Vedhæftede filer ProBatch Gem  /  Batch adskilles  /  Batch komprimere  /  Automatisk gem   /  Automatisk afmontering  /  Automatisk komprimering ...

🌟 Interface Magic: 😊 Flere smukke og seje emojis   /  Boost din Outlook-produktivitet med fanebaserede visninger  /  Minimer Outlook i stedet for at lukke ...

👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer  /   Anti-phishing e-mails  /  🕘Vis afsenderens tidszone ...

👩🏼‍🤝‍👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails  /  Opdel en kontaktgruppe til individuelle grupper  /  Fjern fødselsdagspåmindelser ...

Over 100 Features Afvent din udforskning! Klik her for at finde mere.

Læs mere       Gratis download      Køb
 

 

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