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
Tilføj en knap til makroen til værktøjslinjen Hurtig adgang
- Automatiser e-mail med Auto CC / BCC, Automatisk videresendelse ved regler; sende Auto svar (Ikke til stede) uden at kræve en udvekslingsserver...
- Få påmindelser som BCC Advarsel når du svarer til alle, mens du er på BCC-listen, og Påmind, når du mangler vedhæftede filer for glemte vedhæftede filer...
- Forbedre e-mail-effektiviteten med Svar (alle) med vedhæftede filer, Tilføj automatisk hilsen eller dato og tid til signatur eller emne, Besvar flere e-mails...
- Strømline e-mail med Genkald e-mails, Vedhæftningsværktøjer (Komprimer alle, Gem alt automatisk...), Fjern duplikaterog Hurtig rapport...
Tæl medlemmer af distributionslisten i Outlook med VBA-kode
Du kan bruge VBA-kode til at tælle distributionslistemedlemmerne som følger.
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.
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 Pro: Batch 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.