A volte, potresti voler calcolare il numero totale dei destinatari in una specifica email. Ma Outlook non ha un'ovvia funzione di "conteggio" per supportarlo. Quindi questo articolo introdurrà 2 approcci per raggiungerlo.
In alcune situazioni, ad esempio, quando hai aggiunto una grande quantità di destinatari a un'e-mail e hai difficoltà a gestirli, vorresti ottenere il numero totale di questi destinatari. Ma Outlook non ha un supporto nativo o predefinito da contare. Quindi devi fare degli sforzi extra per raggiungerlo. Qui ti diremo 2 metodi.
Metodo 1: contare il numero di destinatari tramite il gruppo di contatti
- Per iniziare, seleziona tutti i destinatari nei campi "A", "CC" e "Ccn" e copiali nello spazio vuoto del corpo del messaggio.
- Quindi seleziona tutti i destinatari nel corpo e copia anche loro.
- Quindi vai al riquadro Contatti di Outlook e premi "Nuovo gruppo di contatti". Nella finestra popup, imposta il nome come "Tempo", quindi fai clic su "Aggiungi membri" e seleziona "Dalla rubrica" dall'elenco a discesa.
- Successivamente, incolla i destinatari precedentemente copiati nel campo “Membro ->”, come nella seguente schermata:
- Successivamente, fai clic sul pulsante "OK" e torna al gruppo di contatti. Tutti i duplicati verranno rimossi automaticamente. Ora salvalo sul disco locale come file "Testo".
- Successivamente apri il file di testo e rimuovi l'intestazione inutile, come l'immagine qui sotto:
- Infine puoi posizionare il cursore sull'ultima riga. Vedrai il numero totale delle righe nella barra di stato. Questo è il numero totale dei destinatari.
Metodo 2: contare il numero di destinatari con Outlook VBA
- Inizialmente, premi i pulsanti "Alt + F11" per accedere alla finestra "Visual Basic".
- Quindi copia e incolla i seguenti codici VBA in un nuovo modulo.
Sub CountRecipients()
Dim obApp As Outlook.Application
Dim olSel As Selection
Dim olItem As MailItem
Dim Recips As Recipients
Dim strMsg As String
Dim nRes As Integer
Set obApp = Outlook.Application
If TypeName(obApp.ActiveWindow) = "Inspector" Then
Set olItem = obApp.ActiveInspector.CurrentItem
Set Recips = olItem.Recipients
strMsg = "The current message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
Else
Set olItem = obApp.ActiveExplorer.Selection.Item(1)
Set Recips = olItem.Recipients
strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
End If
Set obApp = Nothing
Set olSel = Nothing
Set olItem = Nothing
Set Recips = Nothing
End Sub
- Successivamente, puoi uscire dalla finestra "Visual Basic" e aggiungere la nuova macro alla barra di accesso rapido della finestra principale di Outlook e alla finestra dei messaggi.
- Alla fine puoi provare:
- Quando selezioni un'e-mail e premi il pulsante nella barra di accesso rapido, riceverai un messaggio simile all'immagine seguente:
- Quando apri un'e-mail e fai clic sul pulsante, verrà visualizzata una finestra di dialogo, mostrata come l'immagine qui sotto:
Attenzione: Questo metodo tratterà un gruppo di contatti come un unico destinatario e non ignorerà i destinatari duplicati.
Combatti contro le macro pericolose
Come tutti sappiamo, i virus trasmessi via e-mail sono stati una delle minacce più comuni ai dati. Pertanto, è di vitale importanza configurare Outlook in modo da abilitare solo le macro con firma digitale, che possono bloccare virus e malware. Inoltre, è meglio mantenere un sistema robusto utilità di riparazione file di Outlook corrotta, come DataNumen Outlook Repair. Sarà utile quando Outlook subisce un'infezione da virus o un attacco di malware.
Introduzione dell'autore:
Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparare l'errore di dati SQL mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com