Comment supprimer le code de pays des numéros de téléphone des contacts dans Outlook?
Dans la fenêtre Contact, lorsque vous cliquez sur le Business/Accueil/Fax/Mobile bouton de champ avant les numéros de téléphone pour activer la boîte de dialogue Vérifier le numéro de téléphone comme illustré ci-dessous, le code du pays sera ajouté automatiquement avant les numéros de téléphone. Mais, parfois, l'indicatif du pays n'est pas du tout nécessaire et vous souhaitez le supprimer de tous les numéros de téléphone, comment pouvez-vous le gérer? Essayez les solutions ci-dessous:
Supprimer le code de pays du numéro de téléphone d'un contact
Supprimer le code de pays des numéros de téléphone des contacts avec VBA
- CC / BCC automatique par des règles lors de l'envoi d'e-mails; 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 e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
- Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier; Répondre à plusieurs e-mails à la fois; Ajouter un message d'accueil automatique quand répondre; Ajout automatique de la date et de l'heure au sujet ...
- Outils de fixation: Détacher automatiquement, Tout compresser, Tout renommer, Tout enregistrer automatiquement ... Rapport rapide, Compter les courriers sélectionnés, Supprimer les messages et contacts en double ...
- Plus de 100 fonctionnalités avancées résoudre la plupart de vos problèmes dans Outlook 2021 - 2010 ou Office 365. Fonctionnalités complètes Essai gratuit de 60 jours.
Supprimer le code de pays du numéro de téléphone d'un contact
Si vous avez juste besoin de supprimer le code de pays d'un numéro de téléphone d'un contact, vous pouvez le supprimer manuellement comme suit:
1. dans le Personnes (ou Contacts) vue, cliquez sur Voir > Change de vue > Téléphone. Voir la capture d'écran:
2. Double-cliquez pour ouvrir le contact dont vous supprimerez le numéro de téléphone du pays.
3. Dans la fenêtre de contact d'ouverture, supprimez le signe plus et le code du pays du téléphone spécifié dans le Téléphone section, puis cliquez sur Nous contacter > Sauvegarder et fermer.
Jusqu'à présent, le code du pays a été supprimé du numéro de téléphone spécifié, comme illustré ci-dessous:
Supprimer le code de pays des numéros de téléphone des contacts avec VBA
Si vous devez supprimer le code de pays de tous les numéros de téléphone de tous les contacts dans Outlook, je recommande un VBA pour le gérer facilement.
1. dans le Personnes (ou Contacts), ouvrez le dossier de contacts dans lequel vous supprimerez le code de pays de tous les contacts.
2. presse autre + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
3. Cliquez insérer > Module, puis collez sous le code VBA dans le nouveau script d'ouverture du module.
VBA: supprimer le code de pays de tous les numéros de téléphone de tous les contacts
Sub FixPhoneFormat()
Dim oFolder As MAPIFolder
Set oFolder = Application.ActiveExplorer.CurrentFolder
If Left(UCase(oFolder.DefaultMessageClass), 11) <> "IPM.CONTACT" Then
MsgBox "You need to select a Contacts folder", vbExclamation
Exit Sub
End If
Dim nCounter As Integer
nCounter = 0
Dim oItem
For Each oItem In oFolder.Items
Dim oContact As ContactItem
If TypeName(oItem) <> "DistListItem" Then
Set oContact = oItem
With oContact
.AssistantTelephoneNumber = FixFormatUSPhone(.AssistantTelephoneNumber)
.Business2TelephoneNumber = FixFormatUSPhone(.Business2TelephoneNumber)
.BusinessFaxNumber = FixFormatUSPhone(.BusinessFaxNumber)
.BusinessTelephoneNumber = FixFormatUSPhone(.BusinessTelephoneNumber)
.CallbackTelephoneNumber = FixFormatUSPhone(.CallbackTelephoneNumber)
.CarTelephoneNumber = FixFormatUSPhone(.CarTelephoneNumber)
.CompanyMainTelephoneNumber = FixFormatUSPhone(.CompanyMainTelephoneNumber)
.Home2TelephoneNumber = FixFormatUSPhone(.Home2TelephoneNumber)
.HomeFaxNumber = FixFormatUSPhone(.HomeFaxNumber)
.HomeTelephoneNumber = FixFormatUSPhone(.HomeTelephoneNumber)
.ISDNNumber = FixFormatUSPhone(.ISDNNumber)
.MobileTelephoneNumber = FixFormatUSPhone(.MobileTelephoneNumber)
.OtherFaxNumber = FixFormatUSPhone(.OtherFaxNumber)
.OtherTelephoneNumber = FixFormatUSPhone(.OtherTelephoneNumber)
.PagerNumber = FixFormatUSPhone(.PagerNumber)
.PrimaryTelephoneNumber = FixFormatUSPhone(.PrimaryTelephoneNumber)
.RadioTelephoneNumber = FixFormatUSPhone(.RadioTelephoneNumber)
.TelexNumber = FixFormatUSPhone(.TelexNumber)
.TTYTDDTelephoneNumber = FixFormatUSPhone(.TTYTDDTelephoneNumber)
.Save
nCounter = nCounter + 1
End With
End If
Next
MsgBox nCounter & " contacts processed.", vbInformation
End Sub
Private Function FixFormatUSPhone(Phone As String) As String
Phone = Trim(Phone)
FixFormatUSPhone = Phone
If Phone = "" Then Exit Function
Dim prefix As String
prefix = Left(Phone, 1)
' Configured for US
' Enter the correct prefix here
Do While (prefix = "+" Or prefix = "1")
' if the prefix is 2 digits, change to 4;
' if 3 digits, change to 5
Phone = Mid(Phone, 3)
prefix = Left(Phone, 1)
Loop
' After we clean up the country code, we remove non-numeric characters
' Can be tweaked to change formatting, ie: change 202.555.1212 to 202-555-1212
Phone = Replace(Phone, "(", "")
Phone = Replace(Phone, ")", "")
Phone = Replace(Phone, ".", "")
Phone = Replace(Phone, " ", "")
Phone = Replace(Phone, "-", "")
FixFormatUSPhone = Phone
End Function
4. presse F5 ou cliquez sur la Rubouton n pour exécuter ce VBA.
5. Et puis une boîte de dialogue apparaît et vous montre combien de contacts ont été traités, veuillez cliquer sur le OK bouton pour le fermer.
Maintenant, vous verrez que le code du pays a été supprimé de toutes sortes de numéros de téléphone de tous les contacts. Voir la capture d'écran:
Articles Relatifs
Suivre les appels téléphoniques avec des journaux dans Outlook
Rechercher des contacts par numéro de téléphone dans Outlook
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
📧 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.