Comment modifier le fichier par lots comme format pour tous les contacts dans Outlook?
En général, les fichiers de contacts sont affichés sous forme de nom de famille, prénom dans Outlook, mais comment pouvez-vous rapidement modifier par lots les fichiers de contacts en tant que format en société ou dans un autre ordre comme illustré ci-dessous? L'ordre Option Default «Classer en tant que» ne peut fonctionner que pour le nouveau contact mais pas pour les contacts existants. Ici, j'introduis un code VBA dans le fichier de modification par lots comme format pour tous les contacts existants dans Outlook.
Fichier de changement par lots comme pour tous les contacts avec VBA
Fichier de changement par lots comme pour tous les contacts avec VBA
1. Sélectionnez les contacts sous lesquels vous souhaitez modifier le fichier, appuyez sur Alt + F11 touches pour activer Microsoft Visual Basic for Applications fenêtre.
2. Double-cliquez sur ThisOutlookSession in Project-Project1 , puis copiez et collez le code ci-dessous dans le script vide.
VBA: changer le fichier comme
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. presse F5 pour exécuter le code, tous les contacts sélectionnés ont été modifiés dans le fichier en tant que société.
Remarque:
1. Dans le code, vous pouvez modifier CompanyName aux autres champs sous lesquels vous souhaitez afficher le fichier.
2. S'il n'y a pas d'informations sur la société, il affichera le nom complet.
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel facile des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Boostez votre productivité Outlook avec des vues à onglets / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.
