Outlook mostrará todos los correos electrónicos de contacto en su formato de nombre de visualización predeterminado, a saber, "nombre completo (dirección de correo electrónico)". Si no le gusta, deberá cambiarlo manualmente cada vez que cree nuevos contactos. Este artículo le enseñará una forma rápida de cambiarlos en lotes con Outlook VBA.
Cuando crea un nuevo contacto de Outlook, después de ingresar el nombre completo y la dirección de correo electrónico y luego hacer clic en el cuadro "Mostrar como", el nombre para mostrar predeterminado se completará automáticamente, como se muestra en la siguiente captura de pantalla:
Este nombre para mostrar de correo electrónico tendrá efectos cuando necesite seleccionar un contacto. Como la imagen de abajo, el 2nd la columna "Nombre para mostrar" corresponde a la información del campo "Mostrar como".
Cuando desee cambiar el formato del nombre para mostrar del correo electrónico, debe hacerlo manualmente. Pero con la ayuda de VBA, puede cambiar el formato de nombre de visualización de correo electrónico de todos los contactos al formato deseado en lotes.
Cambiar los formatos de nombre de visualización de correo electrónico de todos sus contactos en lotes
- En primer lugar, inicie Outlook y presione los botones de tecla “Alt + F11” para acceder a la ventana de “Visual Basic”.
- Luego abra un nuevo módulo y copie los siguientes códigos VBA en él.
Sub BatchChangeContactDisplayName()
Dim obApp As Application
Dim olContacts As Outlook.Items
Dim obj As Object
Dim oContact As Outlook.ContactItem
Dim strName As String
Set olContacts = Session.GetDefaultFolder(olFolderContacts).Items
For Each obj In olContacts
If TypeName(obj) = "ContactItem" Then
Set oContact = obj
With oContact
'Display name format: "fullname (company name)(email address)"
strName = .FullName & " (" & .CompanyName & ")" & " (" & .Email1Address & ") "
.Email1DisplayName = strName
.Save
End With
End If
Next
End Sub
Consejos adicionales:
- Puede cambiar el orden entre "nombre completo", "nombre de la empresa" y "dirección de correo electrónico" según sus preferencias.
- El evento ".Nombre completo”Se refiere al formato en“ Nombre Apellido ”. Si desea mostrar en "Apellido Nombre", utilice ".Último nombre y primer nombre"En su lugar.
- Posteriormente, después de pegar los códigos VBA, debe agregar la nueva macro a la barra de herramientas de acceso rápido. Siga los pasos a continuación:
- En primer lugar, vuelva a la ventana principal de Outlook y presione la flecha hacia abajo en la barra de herramientas de acceso rápido.
- De la lista desplegable, elija "Más comandos".
- Luego, en la ventana "Opciones de Outlook", debe seleccionar "Macros" en el cuadro "Elegir comandos de".
- Posteriormente, seleccione la macro de destino y pulse el botón "Añadir" en el centro.
- Por último, haga clic en el botón "Aceptar".
- Finalmente, puede volver a su carpeta de contactos predeterminada. Haga clic en el botón de macro en la barra de herramientas de acceso rápido. Después de eso, puede abrir un contacto para verificar. Verá que se ha cambiado el formato del nombre para mostrar del correo electrónico.
Escape de la pérdida de datos de Outlook
Como todos sabemos, Outlook es susceptible a errores, corrupciones. Por lo tanto, es una tarea ardua mantener los datos de Outlook protegidos y evitar la pérdida de datos. Por lo tanto, debe realizar una copia de seguridad periódica de sus datos de Outlook, lo que contribuirá mucho a Recuperación de daños de datos de Outlook en caso de falla de Outlook. Además, es esencial obtener una herramienta de reparación potente, como DataNumen Outlook Repair. Con todo, será útil si la copia de seguridad no está actualizada o no produce efectos.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparación SQL Server daños en la base de datos mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com