Comment modifier par lots le format « Enregistrer sous » pour tous les contacts dans Outlook ?

Généralement, les fichiers de contacts s’affichent sous la forme « Nom Prénom » dans Outlook. Mais comment modifier rapidement et par lots le format « Enregistrer sous » en « Société » ou tout autre ordre, comme illustré dans la capture d’écran ci-dessous ? L’option par défaut « Enregistrer sous » ne s’applique qu’aux nouveaux contacts, et non à ceux déjà existants. Je vous propose ici un code VBA permettant de modifier par lots le format « Enregistrer sous » pour tous vos contacts existants dans Outlook.

Modifier par lots le format « Enregistrer sous » pour tous les contacts à l’aide de VBA

---

Modifier par lots le format « Enregistrer sous » pour tous les contacts à l’aide de VBA

1. Sélectionnez les contacts dont vous souhaitez modifier le format « Enregistrer sous », puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Double-cliquez sur ThisOutlookSession dans le volet Project-Project1, puis copiez-collez le code ci-dessous dans le script vide.

VBA : Modifier le format « Enregistrer sous »

Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
    If xItem.Class = olContact Then
        Set xContact = xItem
        With xContact
            If .CompanyName = "" Then
                xFileAs = .FullName
            Else
                xFileAs = .CompanyName
            End If
            .FileAs = xFileAs
            .Save
        End With
    End If
Next
End Sub

3. Appuyez sur la touche F5 pour exécuter le code ; tous les contacts sélectionnés auront alors leur format « Enregistrer sous » modifié en « Société ».

Remarque :

1. Dans le code, vous pouvez remplacer CompanyName par d’autres champs de votre choix pour personnaliser le format « Enregistrer sous ».

2. En l’absence d’informations relatives à la société, c’est le champ « Nom complet » qui s’affiche.