Note: The other languages of the website are Google-translated. Back to English

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 Entreprise/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:

Onglet Office - Activez la modification et la navigation par onglets dans Office et simplifiez considérablement le travail ...
Kutools for Outlook - apporte 100 fonctionnalités avancées puissantes à Microsoft Outlook
  • 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 2010-2019 et 365. Fonctionnalités complètes Essai gratuit de 60 jours.

flèche bleue bulle droiteSupprimer 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 Les numéros de téléphone section, puis cliquez sur Contact > 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:


flèche bleue bulle droiteSupprimer 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:


flèche bleue bulle droiteArticles Relatifs


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

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; 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 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 électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (1)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
cela fonctionne bien, même si j'aimerais mieux comprendre comment cela fonctionne car il met des crochets, là où je n'en ai pas vraiment besoin. Je suis en Australie.
Mon autre problème est que d'une manière ou d'une autre, quelque part, il revient à tous d'avoir le code de pays
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés