Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

Come contare i membri della lista di distribuzione in Outlook?

In Outlook, non è disponibile alcuna funzionalità per contare direttamente i membri della lista di distribuzione. Se hai una lista di distribuzione con una grande quantità di indirizzi email, come scoprire quanti membri sono inclusi in questo gruppo? Con questo articolo imparerai come contare i membri della lista di distribuzione utilizzando il codice VBA.

Contare i membri della lista di distribuzione in Outlook con il codice VBA

Crea e salva un codice VBA

Aggiungi un pulsante per la macro alla barra di accesso rapido

Esegui il codice VBA

Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzionalità avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.

freccia blu freccia destraContare i membri della lista di distribuzione in Outlook con il codice VBA

È possibile utilizzare il codice VBA per contare i membri della lista di distribuzione come segue.

Crea e salva un codice VBA

1. Apri il Microsoft Visual Basic, Applications Edition finestra con premendo il altro + F11 contemporaneamente i tasti della tastiera.

2. Clic inserire > Modulo. Vedi screenshot:

3. Quindi copia e incolla il seguente codice VBA nel file VbaProject finestra.

VBA: conta i membri della lista di distribuzione in 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. Quindi fare clic su Risparmi pulsante per salvarlo.

5. Chiudi il Microsoft Visual Basic, Applications Edition finestra.

Aggiungi un pulsante per la macro alla barra di accesso rapido

1. Vai alla Contatti or Persone visualizzare facendo clic su Contatti or Persone nello Riquadro di spostamento.

2. In Outlook 2010 e 2013, fare clic con il pulsante destro del mouse su Barra degli strumenti di accesso rapido e quindi fare clic Personalizza la barra degli strumenti di accesso rapido nel menu di scelta rapida. Vedi screenshot:

Note:: In Outlook 2007, apri un elenco di distribuzione, quindi fai clic con il pulsante destro del mouse su Barra degli strumenti di accesso rapido per selezionare il Barra degli strumenti di accesso rapido nel menu di scelta rapida.

3. Nel Opzioni di Outlook finestra di dialogo, è necessario:

1). Assicurati di trovarti nel file Barra degli strumenti di accesso rapido sezione;

2). Selezionare Macro nello Scegli comandi da menu `A tendina;

3). Seleziona le macro nel file Separatore scatola;

4). Clicca il Aggiungi pulsante;

5). E infine fare clic su OK pulsante. Vedi screenshot:

4. Quindi puoi vedere che il pulsante per la macro è stato aggiunto in Barra degli strumenti di accesso rapido.

Esegui il codice VBA

Dopo aver aggiunto il pulsante per la macro sulla barra di accesso rapido, ora puoi eseguire il codice VBA per contare i membri della lista di distribuzione.

1. In Outlook 2010 e 2013, puoi semplicemente selezionare una lista di distribuzione, quindi fare clic sul pulsante per la macro in QFare clic sulla barra degli strumenti di accesso.

Note:: In Outlook 2007, è necessario aprire una lista di distribuzione e quindi fare clic sul pulsante per la macro in Barra degli strumenti di accesso rapido.

2. Quindi apparirà una finestra di messaggio per dirti quanti membri sono contenuti in questa lista di distribuzione. Quindi fare clic su OK.


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
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 · 4 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 · 7 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