¿Cómo cambiar el archivo por lotes como formato para todos los contactos en Outlook?
En general, los archivos de contacto se muestran como Apellido Nombre en Outlook, pero ¿cómo puede cambiar rápidamente por lotes los archivos de contacto como formato a Compañía u otro orden como se muestra a continuación? La orden de opción predeterminada "Archivar como" solo puede funcionar para el nuevo contacto, pero no para los existentes. Aquí, presento un código VBA para cambiar el archivo por lotes como formato para todos los contactos existentes en Outlook.
Archivo de cambio por lotes como para todos los contactos con VBA
Archivo de cambio por lotes como para todos los contactos con VBA
1. Seleccione los contactos a los que desea cambiar el archivo, presione Alt + F11 claves para habilitar el Microsoft Visual Basic for Applications ventana.
2. Haga doble clic en ThisOutlookSession in Project-Project1 panel, y copie y pegue el código siguiente en el script en blanco.
VBA: cambiar archivo como
Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
If xItem.Class = olContact Then
Set xContact = xItem
With xContact
If .CompanyName = "" Then
xFileAs = .FullName
Else
xFileAs = .CompanyName
End If
.FileAs = xFileAs
.Save
End With
End If
Next
End Sub
3. Prensa F5 para ejecutar el código, luego todos los contactos seleccionados han sido cambiados en el archivo como empresa.
Nota:
1. En el código, puedes cambiar CompanyName a otros campos en los que desea mostrar el archivo.
2. Si no hay información de la empresa, mostrará el nombre completo.
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.
