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 necesita eliminar el código de país de un número de teléfono de un contacto, puede eliminarlo manualmente de la siguiente manera:

1. En el Personas (o Contacto) ver, haga clic en Ver > Cambio Vista > Teléfono. Ver captura de pantalla:

2. Haga doble clic para abrir el contacto cuyo número de teléfono eliminará el número de país.

3. En la ventana de contacto de apertura, elimine el signo más y el código de país del teléfono especificado en el Números de teléfono sección y luego haga clic en Contacto > Guardar cerrar.

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

Si necesita eliminar el código de país de todos los números de teléfono de todos los contactos en Outlook, le recomiendo un VBA para manejarlo fácilmente.

1. En el Personas (o Contacto), abra la carpeta de contactos donde eliminará el código de país de todos los contactos.

2. Prensa otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. Hacer clic en recuadro > Móduloy luego pegue el código VBA debajo en el nuevo script de módulo de apertura.

VBA: elimine 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)

' 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. Prensa F5 o haga clic en el Run botón para ejecutar este VBA.

5. Y luego aparece un cuadro de diálogo que le muestra cuántos contactos se han procesado, haga clic en el OK para cerrarlo

Ahora, verá que el código de país se ha eliminado de todo tipo de números de teléfono de todos los contactos. Ver captura de pantalla:

Seguimiento de llamadas telefónicas con diarios en Outlook

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