Comment supprimer l'indicatif pays des numéros de téléphone des contacts dans Outlook ?

Supprimer l'indicatif pays du numéro de téléphone d'un contact

Supprimer l'indicatif pays des numéros de téléphone des contacts avec VBA

Si vous avez juste besoin de supprimer l'indicatif pays d'un numéro de téléphone d'un contact, vous pouvez le faire manuellement comme suit :

1. Dans la vue "Individus" (ou "Contacts"), cliquez sur "Affichage" > "Changer d'affichage" > "Téléphone". Voir capture d'écran :

2. Double-cliquez pour ouvrir le contact dont vous souhaitez supprimer l'indicatif pays du numéro de téléphone.

3. Dans la fenêtre Contact qui s'ouvre, supprimez le signe plus et l'indicatif pays du champ de téléphone spécifié dans la section "Numéros de téléphone", puis cliquez sur "Contact" > "Enregistrer et fermer".

Jusqu'à présent, l'indicatif pays a été supprimé du numéro de téléphone spécifié comme indiqué ci-dessous :

Si vous devez supprimer l'indicatif pays de tous les numéros de téléphone de tous les contacts dans Outlook, vous pouvez appliquer un code VBA pour le gérer facilement.

1. Dans la vue "Individus" (ou "Contacts"), ouvrez le dossier de contacts où vous souhaitez supprimer l'indicatif pays de tous les contacts.

2. Appuyez simultanément sur les touches "Alt" + "F11" pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".

3. Cliquez sur "Insérer" > "Module", puis collez le code VBA suivant dans le nouveau script Module qui s'ouvre.

VBA : Supprimer l'indicatif 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)

Do While (prefix = "+" Or prefix = "1")
Phone = Mid(Phone, 3)
prefix = Left(Phone, 1)
Loop

Phone = Replace(Phone, "(", "")
Phone = Replace(Phone, ")", "")
Phone = Replace(Phone, ".", "")
Phone = Replace(Phone, " ", "")
Phone = Replace(Phone, "-", "")

FixFormatUSPhone = Phone

End Function

4. Appuyez sur "F5" ou cliquez sur le bouton "Exécuter" pour exécuter le VBA.

5. Ensuite, une boîte de dialogue apparaît, indiquant combien de contacts ont été traités. Veuillez cliquer sur le bouton "OK" pour la fermer.

Maintenant, vous verrez que les indicatifs pays ont été supprimés de tous les types de numéros de téléphone de tous les contacts. Voir capture d'écran :

Suivi des appels téléphoniques avec des journaux dans Outlook

Rechercher des contacts par numéro de téléphone dans Outlook