Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment modifier en lots le fichier en tant que format pour tous les contacts dans Outlook?

En général, les fichiers de contact sont affichés en tant que nom de famille Prénom dans Outlook, mais comment pouvez-vous rapidement modifier par lots les fichiers de contact en format de société ou autre ordre comme ci-dessous capture d'écran montré? La commande par défaut de l'option "Fichier en tant que" peut fonctionner pour le nouveau contact mais pas pour les contacts existants. Ici, je présente un code VBA pour modifier le fichier en tant que format pour tous les contacts existants dans Outlook.

supprimer tous les contacts en double d'un ou plusieurs dossiers de contacts dans Outlook

Dans certains cas, nous pouvons ajouter à plusieurs reprises les mêmes contacts, comment peut-on supprimer les contacts en double d'un ou plusieurs dossiers de contacts? Kutools for Outlook's Duplicate Contacts fonction peut rapidement supprimer ou fusionner des contacts en double basés sur des courriels, le nom complet ou d'autres critères d'un ou plusieurs dossiers de contacts. Cliquez pour l'essai gratuit de 45 days!
doc supprimer les contacts en double 1
Kutools pour Outlook: avec des dizaines de compléments Outlook pratiques, gratuits à essayer sans limitation dans les jours 45.

Fichier de changement par lots comme pour tous les contacts avec VBA

Onglet Office - Activer l'édition et la navigation par onglets dans Office, et simplifier considérablement le travail ...
Kutools for Outlook - apporte de puissantes fonctionnalités avancées 100 à Microsoft Outlook
  • CC automatique / BCC par les règles lors de l'envoi d'email; Transfert automatique Emails multiples par règles; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse de messagerie est dans la liste BCC; Rappeler lorsque des pièces jointes sont manquantes, et plus encore, rappelle les fonctionnalités ...
  • Répondre (tous) avec toutes les pièces jointes dans la conversation par courrier; Répondez plusieurs courriels à la fois; Ajout automatique de message d'accueil quand répondez; Ajout automatique Date et heure dans le sujet ...
  • Outils de fixation: Détacher automatiquement, tout compresser, tout renommer, tout enregistrer automatiquement ... Rapport rapide, Compter les messages sélectionnés, Supprimer les e-mails et les contacts en double ...
  • Plus que les fonctionnalités avancées de 100 résoudre la plupart de vos problèmes dans Outlook 2010-2019 et 365. Fonctionnalités complètes Essai gratuit du jour 60.

Fichier de changement par lots comme pour tous les contacts avec VBA

1. Sélectionnez les contacts pour lesquels vous souhaitez modifier le fichier, appuyez sur Alt + F11 touches pour activer le Microsoft Visual Basic for Applications fenêtre.

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

VBA: Modifier le fichier en tant que

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

Doc change le fichier en 3

3. presse F5 clé pour exécuter le code, puis tous les contacts sélectionnés ont été modifiés le fichier en tant que société.

Veuillez noter que :

1. Dans le code, vous pouvez changer CompanyName à d'autres champs que vous souhaitez afficher le fichier.

2. S'il n'y a pas d'informations sur l'entreprise, il affichera le nom complet.


Kutools for Outlook - Apporte les fonctionnalités avancées de 100 à Outlook et simplifie grandement le travail!

  • CC automatique / BCC par les règles lors de l'envoi d'email; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse mail est dans la liste BCC; Rappeler lorsque des pièces jointes sont manquantes, et plus encore, rappelle les fonctionnalités ...
  • Répondre (tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à beaucoup d'emails en secondes; Ajout automatique de message d'accueil quand répondez; Ajouter la date au sujet ...
  • Outils de pièce jointe: Gérer toutes les pièces jointes dans tous les courriers, Auto Detach, Compresser tout, Renommer tout, Sauvegarder tout ... Rapport rapide, Compter les mails sélectionnés...
  • Puissants courriers indésirables par la coutume; Supprimer les e-mails et les contacts en double... Vous permet de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools perspectives onglet kutools 1180x121
tir kutools perspectives kutools plus onglet 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Glauco · 15 days ago
    I run the script above in 5 min and saved hours!! GREAT!