Outlook affichera tous les e-mails de contact dans son format de nom d'affichage par défaut, à savoir "nom complet (adresse e-mail)". Si vous ne l'aimez pas, vous devrez le modifier manuellement à chaque fois lors de la création de nouveaux contacts. Cet article vous apprendra un moyen rapide de les modifier par lots avec Outlook VBA.
Lorsque vous créez un nouveau contact Outlook, après avoir entré le nom complet et l'adresse e-mail, puis cliqué dans la case "Afficher en tant que", le nom d'affichage par défaut sera rempli automatiquement, illustré par la capture d'écran suivante :
Ce nom d'affichage d'e-mail aura des effets lorsque vous devrez sélectionner un contact. Comme l'image ci-dessous, les 2nd la colonne "Nom d'affichage" correspond aux informations du champ "Afficher en tant que".
Lorsque vous souhaitez modifier le format du nom d'affichage de l'e-mail, vous devez le modifier manuellement. Mais avec l'aide de VBA, vous pouvez modifier le format du nom d'affichage des e-mails de tous les contacts au format souhaité par lots.
Modifier les formats de nom d'affichage d'e-mail de tous vos contacts par lots
- En premier lieu, lancez Outlook et appuyez sur les touches "Alt + F11" pour accéder à la fenêtre "Visual Basic".
- Ouvrez ensuite un nouveau module et copiez-y les codes VBA suivants.
Sub BatchChangeContactDisplayName()
Dim obApp As Application
Dim olContacts As Outlook.Items
Dim obj As Object
Dim oContact As Outlook.ContactItem
Dim strName As String
Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
For Each obj In olContacts
If TypeName(obj) = "ContactItem" Then
Set oContact = obj
With oContact
'Display name format: "fullname (company name)(email address)"
strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
.Email1DisplayName = strName
.Save
End With
End If
Next
End Sub
Conseils supplémentaires:
- Vous pouvez modifier l'ordre entre "nom complet", "nom de l'entreprise" et "adresse e-mail" selon vos préférences.
- L'événement .Nom et prénom» fait référence au format dans « Prénom Nom de famille ». Si vous souhaitez afficher dans "Lastname Firstname", utilisez ".NomEtPrenom" au lieu.
- Ensuite, après avoir collé les codes VBA, vous devez ajouter la nouvelle macro à la barre d'outils d'accès rapide. Suivez les étapes ci-dessous :
- Tout d'abord, revenez à la fenêtre principale d'Outlook et appuyez sur la flèche vers le bas dans la barre d'outils d'accès rapide.
- Dans la liste déroulante, choisissez "Plus de commandes".
- Ensuite, dans la fenêtre "Options Outlook", vous devez sélectionner "Macros" dans la case "Choisir les commandes de".
- Ensuite, sélectionnez la macro cible et appuyez sur le bouton « Ajouter » au centre.
- Cliquez enfin sur le bouton "OK".
- Finalement, vous pouvez revenir à votre dossier de contacts par défaut. Cliquez sur le bouton macro dans la barre d'outils d'accès rapide. Après cela, vous pouvez ouvrir un contact pour vérifier. Vous constaterez que le format du nom d'affichage de l'e-mail a été modifié.
Échapper à la perte de données Outlook
Comme nous le savons tous, Outlook est susceptible d'erreurs, de corruptions. Par conséquent, il est ardu de protéger les données Outlook et d'éviter la perte de données. Vous devez donc faire une sauvegarde régulière de vos données Outlook, ce qui contribuera beaucoup à Récupération des dommages aux données Outlook en cas de plantage d'Outlook. En outre, il est essentiel d'obtenir un outil de réparation puissant, tel que DataNumen Outlook Repair. Dans l'ensemble, cela sera utile si la sauvegarde n'est pas à jour ou ne produit pas d'effets.
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éparation SQL Server dommages à la base de données mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com