¿Cómo eliminar el código de país del número 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 del Número de teléfono de los contactos con VBA

Si solo necesita eliminar el código de país de un Número de teléfono de un contacto, puede borrarlo manualmente tal como se indica a continuación:

1. En la vista «Personas» (o «Contactos»), haga clic en «Ver» > «Cambiar vista» > «Teléfono». Consulte la captura de pantalla:

2. Haga doble clic para abrir el contacto del que desea eliminar el código de país del número de teléfono.

3. En la ventana de contacto abierta, elimine el signo más y el código de país del campo telefónico indicado en la sección «Número de teléfono» y, a continuación, haga clic en «Contacto» > «Guardar y cerrar».

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

Si necesita eliminar el código de país de todos los números de teléfono de sus contactos en Outlook, puede hacerlo fácilmente mediante una macro VBA.

1. En la vista «Personas» (o «Contactos»), abra la carpeta de contactos en la que desea eliminar el código de país de todos los contactos.

2. Pulse simultáneamente las teclas «Alt» + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haga clic en «Insertar» > «Módulo» y, a continuación, pegue el siguiente código VBA en el nuevo módulo que se abre.

VBA: Eliminar el código de país de todos los Número 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. Pulse "F5" o haga clic en el botón «Ejecutar» para poner en marcha la macro VBA.

5. A continuación, aparecerá un cuadro de diálogo que muestra cuántos contactos se han procesado. Haga clic en «Aceptar» para cerrarlo.

Ahora verá que los códigos de país han sido eliminados de todos los tipos de número de teléfono en todos los contactos. Consulte la captura de pantalla:

Realizar un seguimiento de llamadas telefónicas con diarios en Outlook

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