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

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:

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:

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

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