De nombreux utilisateurs souhaitent pouvoir ajouter tous les groupes de contacts au champ « À » en une seule fois lors de la rédaction d'un e-mail Outlook. C'est pourquoi, dans cet article, nous vous proposons une telle solution.
Habituellement, pour développer un groupe de contacts dans le champ "À", vous pouvez cliquer sur l'icône "+" devant le nom du groupe. Cependant, par ce moyen, s'il existe de nombreux groupes de contacts dans le champ "À" et si vous souhaitez tous les développer, c'est un peu fastidieux. Ainsi, ici, nous vous partagerons un moyen de développer rapidement tous les groupes dans le champ "À" simplement via un clic.
Lot Développer tous les groupes de contacts dans le champ "À"
- En premier lieu, lancez votre programme Outlook.
- Ensuite, dans la fenêtre principale d'Outlook, appuyez sur les touches "Alt + F11".
- Ensuite, vous accéderez à l'écran de l'éditeur VBA, dans lequel vous devrez accéder à un module inutilisé ou simplement en insérer un nouveau.
- Ensuite, copiez le code VBA suivant dans ce module.
Sub ExpandAllContactGroupsInToField()
Dim objMail As Outlook.MailItem
Dim objRecipients As Outlook.Recipients
Dim bContactGroupFound As Boolean
Dim i As Long
'Get the current mail
Set objMail = ActiveInspector.CurrentItem
bContactGroupFound = True
Do While bContactGroupFound = True
Set objRecipients = objMail.Recipients
bContactGroupFound = False
'Expand all contact groups in "To" field
For i = objRecipients.Count To 1 Step -1
If objRecipients(i).Type = olTo Then
If objRecipients(i).AddressEntry.DisplayType <> olUser Then
For n = 1 To objRecipients(i).AddressEntry.Members.Count
If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
Else
objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
bContactGroupFound = True
End If
Next
objRecipients(i).Delete
End If
End If
Next i
objRecipients.ResolveAll
Loop
End Sub
- Après cela, vous pouvez quitter la fenêtre actuelle en cliquant simplement sur l'icône en forme de croix dans le coin supérieur droit.
- Plus tard, vous devrez ajouter ce projet VBA à la barre d'outils d'accès rapide de la fenêtre Message.
- Tout d'abord, créez un nouveau courrier.
- Cliquez ensuite sur la flèche vers le bas dans le coin supérieur gauche.
- Choisissez ensuite "Plus de commandes".
- Dans la nouvelle boîte de dialogue, vous pouvez suivre les étapes indiquées dans l'image ci-dessous pour terminer l'ajout de la macro à la barre d'outils d'accès rapide.
- Enfin, vous pouvez prendre une photo :
- Pour commencer, créez et rédigez un nouveau courriel comme d'habitude.
- Ajoutez ensuite plusieurs groupes de contacts dans le champ "À".
- Après cela, vous pouvez cliquer sur le bouton macro dans la barre d'outils d'accès rapide.
- À la fois, tous les groupes de contacts seront développés, comme l'image suivante :
Sauvez vos données Outlook en temps opportun
Généralement, dès que vous êtes confronté à des problèmes dans votre Outlook, l'outil de réparation de la boîte de réception vous vient à l'esprit en premier lieu. Cependant, le plus souvent, cela ne fera aucun effet. Dans ces moments-là, il est recommandé de recourir à un utilitaire plus puissant et plus fiable, tel que DataNumen Outlook Repair. Il peut fixer PST fichier en un instant, quel que soit le degré de détérioration de votre fichier PST.
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écupérer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com