¿Cómo eliminar el código de país de los números de teléfono de los contactos en Outlook?

Eliminar el código de país del número de teléfono de un contacto

Eliminar el código de país de los números de teléfono de los contactos con VBA

Si solo necesitas eliminar el código de país de un número de teléfono de un contacto, puedes eliminarlo manualmente de la siguiente manera:

1. En la vista "Individuos" (o "Contactos"), haz clic en "Ver" > "Cambiar vista" > "Teléfono". Ver captura de pantalla:

2. Haz doble clic para abrir el contacto cuyo número de teléfono deseas modificar eliminando el código de país.

3. En la ventana de Contacto que se abre, elimina el signo más y el código de país del campo de teléfono especificado en la sección "Números de Teléfono", y luego haz clic en "Contacto" > "Guardar y Cerrar".

Hasta ahora, el código de país ha sido eliminado del número de teléfono especificado como se muestra a continuación:

Si necesitas eliminar el código de país de todos los números de teléfono de todos los contactos en Outlook, puedes aplicar una macro VBA para manejarlo fácilmente.

1. En la vista "Individuos" (o "Contactos"), abre la carpeta de contactos donde deseas eliminar el código de país de todos los contactos.

2. Presiona simultáneamente las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

3. Haz clic en "Insertar" > "Módulo", y luego pega el siguiente código VBA en el nuevo script de Módulo que se abre.

VBA: Eliminar el código de país de todos los números de teléfono de todos los contactos

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. Presiona "F5" o haz clic en el botón "Ejecutar" para ejecutar el VBA.

5. Luego aparecerá un cuadro de diálogo mostrando cuántos contactos han sido procesados. Haz clic en el botón "Aceptar" para cerrarlo.

Ahora, verás que los códigos de país han sido eliminados de todos los tipos de números de teléfono de todos los contactos. Ver captura de pantalla:

Registrar llamadas telefónicas con diarios en Outlook

Buscar contactos por número de teléfono en Outlook