2 méthodes pour compter le nombre de destinataires dans un e-mail Outlook

Parfois, vous voudrez peut-être calculer le nombre total de destinataires dans un e-mail spécifique. Mais Outlook n'a pas de fonction de «comptage» évidente pour le prendre en charge. Cet article présentera donc 2 approches pour y parvenir.

Dans certaines situations, par exemple, lorsque vous avez ajouté un grand nombre de destinataires à un e-mail et que vous avez du mal à les gérer, vous souhaitez obtenir le nombre total de ces destinataires. Mais Outlook n'a pas de support natif ou par défaut à compter. Vous devez donc faire des efforts supplémentaires pour y parvenir. Ici, nous allons vous dire 2 méthodes.

Méthode 1 : compter le nombre de destinataires via le groupe de contact

1. Pour commencer, vous devez sélectionner tous les destinataires dans les champs « À », « Cc » et « Cci » et les copier dans l’espace vide du corps du message.
2. Sélectionnez ensuite tous les destinataires dans le corps et copiez-les également.
3. Ensuite, allez dans le volet Contacts Outlook et cliquez sur "Nouveau groupe de contacts". Dans la fenêtre contextuelle, définissez le nom sur "Temp", puis cliquez sur "Ajouter des membres" et sélectionnez "Depuis le carnet d'adresses" dans la liste déroulante.
4. Par la suite, collez les destinataires précédemment copiés dans le champ "Membre ->", comme la capture d'écran suivante :
5. Après cela, cliquez sur le bouton "OK" et revenez au groupe de contacts. Tous les doublons seront supprimés automatiquement. Maintenant, enregistrez-le sur le disque local en tant que fichier "Texte".
6. Ouvrez ensuite le fichier texte et supprimez l'en-tête inutile, comme l'image ci-dessous :
7. Enfin, vous pouvez placer le curseur sur la dernière ligne. Vous verrez le nombre total de lignes dans la barre d'état. C'est le nombre total de destinataires.

Méthode 2 : compter le nombre de destinataires avec Outlook VBA

1. Dans un premier temps, appuyez sur les touches "Alt + F11" pour accéder à la fenêtre "Visual Basic".
2. Ensuite, copiez et collez les codes VBA suivants dans un nouveau module.

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

3. Après cela, vous pouvez quitter la fenêtre "Visual Basic" et ajouter la nouvelle macro à la barre d'outils d'accès rapide de la fenêtre principale d'Outlook et de la fenêtre de message.
4. Enfin tu peux essayer :

• Lorsque vous sélectionnez un e-mail et appuyez sur le bouton dans la barre d'outils d'accès rapide, vous recevrez un message semblable à l'image suivante :
• Lorsque vous ouvrez un e-mail et cliquez sur le bouton, vous obtenez une boîte de dialogue, illustrée par l'image ci-dessous :

À noter: Cette méthode traitera un groupe de contacts comme un seul destinataire et ne contournera pas les destinataires en double.

Lutte contre les macros dangereuses

Comme chacun sait, les virus véhiculés par courriel constituent l'une des menaces les plus courantes pour les données. Il est donc primordial de configurer Outlook pour n'activer que les macros signées numériquement, capables de bloquer les virus et les logiciels malveillants. De plus, il est fortement conseillé de maintenir une sécurité renforcée. utilitaire de réparation de fichiers Outlook corrompu tels que DataNumen Outlook Repair. Cela vous sera utile lorsque votre Outlook subit une infection virale ou une attaque de logiciel malveillant.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer l'erreur de données SQL mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com