Comment masquer le numéro de fax dans Sélectionner la liste des noms dans Outlook?
Dans Outlook, vous avez peut-être découvert que dans la liste ou le carnet d'adresses «Sélectionner des noms», la colonne Adresse électronique contient non seulement les adresses électroniques mais également les entrées de télécopie qui peuvent vous ennuyer. Dans cet article, je présente quelques moyens de masquer le numéro de fax pour vous.
Masquer le numéro de fax dans la liste Sélectionner des noms avec VBA
Masquer le numéro de fax dans la liste Sélectionner des noms avec VBA
Si vous souhaitez masquer le numéro de fax existant dans la liste Sélectionner un nom, procédez comme suit:
1. presse Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module pour insérer un nouveau module vide, copiez et collez le code ci-dessous dans le script.
VBA: Masquer le numéro de fax existant dans Sélectionner les noms
Sub HideFaxNumbers_ExistingContacts()
'UpdatebyExtendoffice2018-5-23
Dim xStores As Outlook.Stores
Dim xStore As Outlook.Store
Dim xRootFolder As Outlook.Folder
Dim xFolder As Folder
On Error Resume Next
Set xStores = Outlook.Application.Session.Stores
For Each xStore In xStores
Set xRootFolder = xStore.GetRootFolder
For Each xFolder In xRootFolder.Folders
Call ProcessFolders(xFolder)
Next
Next
End Sub
Sub ProcessFolders(ByVal CurrentFolder As Outlook.Folder)
Dim xContactItem As Outlook.ContactItem
Dim xSubFolder As Outlook.Folder
Dim xFax As String
Dim I As Integer
On Error Resume Next
If CurrentFolder.DefaultItemType <> olContactItem Then Exit Sub
xFax = "Fax: "
For I = CurrentFolder.Items.Count To 1 Step -1
Set xContactItem = CurrentFolder.Items.Item(I)
With xContactItem
If (Len(.BusinessFaxNumber) <> 0) And InStrRev(.BusinessFaxNumber, Trim(xFax)) = 0 Then
.BusinessFaxNumber = xFax & .BusinessFaxNumber
End If
If (Len(.HomeFaxNumber) <> 0) And InStrRev(.HomeFaxNumber, Trim(xFax)) = 0 Then
.HomeFaxNumber = xFax & .HomeFaxNumber
End If
If (Len(.OtherFaxNumber) <> 0) And InStrRev(.OtherFaxNumber, Trim(xFax)) = 0 Then
.OtherFaxNumber = xFax & .OtherFaxNumber
End If
.Save
End With
Next I
If CurrentFolder.Folders.Count <> 0 Then
For I = CurrentFolder.Folders.Count To 1 Step -1
Set xSubFolder = CurrentFolder.Folders.Item(I)
Call ProcessFolders(xSubFolder)
Next I
End If
End Sub3. presse F5 pour exécuter le code, maintenant les numéros de fax ont été masqués.
Si vous souhaitez masquer le numéro de fax dans les nouveaux contacts, procédez comme suit:
1. presse Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.
2. Double-cliquez Cette session Outlook à Projet-1 volet, puis copiez et collez le code ci-dessous dans le script.
VBA: Masquer le numéro de fax dans les nouveaux contacts ajoutés
Public WithEvents xInspectors As Outlook.Inspectors
Public WithEvents xContactItem As Outlook.ContactItem
Private Sub Application_Startup()
'UpdatebyExtendoffice2018-5-23
Set xInspectors = Outlook.Application.Inspectors
End Sub
Private Sub xInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeName(Inspector.CurrentItem) = "ContactItem" Then
Set xContactItem = Inspector.CurrentItem
End If
End Sub
Private Sub xContactItem_PropertyChange(ByVal Name As String)
Dim xArr() As Variant
Dim xFax As String
On Error Resume Next
xArr = Array("BusinessFaxNumber", "HomeFaxNumber", "OtherFaxNumber")
xFax = "Fax: "
With xContactItem
Select Case Name
Case xArr(0)
If InStrRev(.BusinessFaxNumber, Trim(xFax)) = 0 Then
.BusinessFaxNumber = xFax & .BusinessFaxNumber
End If
Case xArr(1)
If InStrRev(.HomeFaxNumber, Trim(xFax)) = 0 Then
.HomeFaxNumber = xFax & .HomeFaxNumber
End If
Case xArr(2)
If InStrRev(.OtherFaxNumber, Trim(xFax)) = 0 Then
.OtherFaxNumber = xFax & .OtherFaxNumber
End If
End Select
End With
End Sub
3. Enregistrez le code et redémarrez Outlook pour appliquer le code.
À partir de maintenant, tous les numéros de fax des nouveaux contacts créés seront masqués dans la fenêtre Sélectionner les noms: Contacts.
 |
 |
 |
AI Mail Assistant dans Outlook : réponses plus intelligentes, communication plus claire (magie en un clic !) un devis GRATUIT
Rationalisez vos tâches Outlook quotidiennes avec l'assistant AI Mail de Kutools for Outlook. Cet outil puissant apprend de vos e-mails passés pour offrir des réponses intelligentes et précises, optimiser le contenu de vos e-mails 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 à l'emploi.
- Contenu amélioré : affinez automatiquement le texte de votre e-mail pour plus de clarté et d'impact.
- Composition sans effort : fournissez simplement des mots-clés et laissez l'IA gérer le reste, avec plusieurs styles d'écriture.
- Extensions intelligentes : développez vos idées avec des suggestions contextuelles.
- Récapitulatif : obtenez instantanément des aperçus concis des longs e-mails.
- Portée mondiale : traduisez facilement vos e-mails dans n’importe quelle langue.
Cette fonctionnalité prend en charge :
- Réponses intelligentes par e-mail
- Contenu optimisé
- Brouillons basés sur des mots clés
- Extension de contenu intelligente
- Résumé par e-mail
- Traduction multilingue
Mieux encore, cette fonctionnalité est complètement faim pour toujours! N'attendez pas—téléchargez AI Mail Assistant maintenant et profitez-en!
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (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 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 / Vous rappeler lorsque des e-mails importants arrivent / 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
