Comment supprimer l’indicatif régional des numéros de téléphone des contacts dans Outlook ?

Supprimer l‹indicatif régional de Numéro de téléphone d›un contact

Supprimer l‹indicatif régional de Numéro de téléphone des contacts à l›aide de VBA

Si vous devez uniquement supprimer l'indicatif régional d’un seul Numéro de téléphone d’un contact, vous pouvez le supprimer manuellement comme suit :

1. Dans la vue « Personnes » (ou « Contacts »), cliquez sur « Affichage » > « Modifier la vue » > « Téléphone ». Voir la capture d’écran :

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

3. Dans la fenêtre Contact qui s’ouvre, supprimez le signe « plus » et l’indicatif régional du champ téléphonique indiqué dans la section « Numéro de téléphone », puis cliquez sur « Contact » > « Enregistrer et fermer ».

L’indicatif régional a désormais été supprimé du Numéro de téléphone spécifié, comme illustré ci-dessous :

Si vous souhaitez supprimer l’indicatif régional de tous les numéros de téléphone de vos contacts dans Outlook, une macro VBA vous permet d’effectuer cette opération en toute simplicité.

1. Dans la vue « Personnes » (ou « Contacts »), ouvrez le dossier de contacts dans lequel vous souhaitez supprimer l’indicatif régional de tous les contacts.

2. Appuyez simultanément sur les touches « Alt » et « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».

3. Cliquez sur « Insertion » > « Module », puis collez le code VBA suivant dans le nouveau module qui s’ouvre.

VBA : Supprimer l’indicatif régional de tous les Numéro 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 lancer votre macro VBA.

5. Une boîte de dialogue s’affiche alors, indiquant le nombre de contacts traités. Cliquez sur « OK » pour la fermer.

Vous remarquez désormais que les indicatifs régionaux ont été supprimés de tous les types de numéros de téléphone pour l’ensemble de vos contacts. Voir la capture d’écran :

Suivre les appels téléphoniques avec les journaux dans Outlook

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