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

Contare 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 > Moduli. Vedi screenshot:

3. Quindi copia e incolla il seguente codice VBA nel file Progetto Vba 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 nel 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 nel 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.

---

I migliori strumenti per la produttività in ufficio

Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook

🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...

???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP)  /  Pianifica l'invio di e-mail  /  CC/BCC automatico in base alle regole durante l'invio di e-mail  /  Inoltro automatico (regole avanzate)   /  Aggiunta automatica di saluto   /  Suddividi automaticamente le email con più destinatari in singoli messaggi ...

📨 gestione e-mail: Richiama facilmente le email  /  Blocca le email truffe per soggetto e altri  /  Elimina email duplicate  /  Ricerca avanzata  /  Consolidare cartelle ...

📁 Allegati Pro: Salvataggio in batch  /  Stacca batch  /  Comprimi in lotti  /  Salvataggio automatico   /  Scollegamento automatico  /  Comprimi automaticamente ...

🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici   /  Aumenta la tua produttività in Outlook con le visualizzazioni a schede  /  Riduci a icona Outlook invece di chiuderlo ...

👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo  /   E-mail anti-phishing  /  🕘Mostra il fuso orario del mittente ...

👩🏼‍🤝‍👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate  /  Dividere un gruppo di contatti in singoli gruppi  /  Rimuovi promemoria compleanno ...

Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.

Scopri di più       Scarica gratis      Acquista