Comment modifier le format de fichier par lot pour tous les contacts dans Outlook ?
En général, les fichiers de contacts sont affichés sous la forme Nom Prénom dans Outlook, mais comment pouvez-vous rapidement modifier par lot les fichiers de contacts au format Société ou dans un autre ordre comme indiqué dans la capture d'écran ci-dessous ? L'option par défaut « Enregistrer sous » ne fonctionne que pour les nouveaux contacts, mais pas pour ceux déjà existants. Ici, je vous présente un code VBA pour modifier par lot le format de fichier pour tous les contacts existants dans Outlook.
Modifier par lot le format de fichier pour tous les contacts avec VBA
Modifier par lot le format de fichier pour tous les contacts avec VBA
1. Sélectionnez les contacts dont vous souhaitez modifier le format de fichier, puis appuyez sur Alt + F11 pour activer la fenêtre Microsoft Visual Basic pour Applications.
2. Double-cliquez sur ThisOutlookSession dans le volet Projet-Projet1, puis copiez et collez le code ci-dessous dans le script vide.
VBA : Modifier le format de fichier
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, puis tous les contacts sélectionnés auront leur format de fichier modifié en entreprise.
Remarque :
1. Dans le code, vous pouvez remplacer CompanyName par d'autres champs que vous souhaitez afficher en tant que format de fichier.
2. S'il n'y a aucune information sur l'entreprise, le nom complet sera affiché.
Assistant de messagerie IA dans Outlook : Réponses plus intelligentes, communication plus claire (magie en un clic !) GRATUIT
Rationalisez vos tâches quotidiennes dans Outlook avec l'Assistant de messagerie IA de Kutools pour Outlook. Cet outil puissant apprend de vos anciens emails pour offrir des réponses intelligentes et précises, optimiser le contenu de vos emails et vous aider à rédiger et affiner vos messages sans effort.
Cette fonctionnalité prend en charge :
- Réponses intelligentes : Obtenez des réponses élaborées à partir de vos conversations passées — personnalisées, précises et prêtes à être envoyées.
- Contenu amélioré : Affinez automatiquement votre texte d'email pour plus de clarté et d'impact.
- Rédaction sans effort : Fournissez simplement des mots-clés, et laissez l'IA faire le reste, avec plusieurs styles d'écriture.
- Extensions intelligentes : Développez vos idées avec des suggestions sensibles au contexte.
- Résumé : Obtenez des aperçus concis des longs emails instantanément.
- Rayonnement mondial : Traduisez vos emails dans n'importe quelle langue facilement.
Cette fonctionnalité prend en charge :
- Réponses intelligentes aux emails
- Contenu optimisé
- Brouillons basés sur des mots-clés
- Extension de contenu intelligente
- Résumé d'email
- Traduction multilingue
Le meilleur de tout, cette fonctionnalité est entièrement gratuite pour toujours ! Ne tardez pas — téléchargez dès maintenant l'Assistant de messagerie IA et profitez-en
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
