¿Cómo llenar automáticamente el asunto del correo electrónico con el nombre del archivo adjunto en Outlook?
Para aquellos que están acostumbrados a usar el nombre del archivo adjunto como asunto de un correo electrónico en Outlook, escribir manualmente el nombre del archivo adjunto en la línea de asunto cada vez llevará mucho tiempo. Como se muestra en el gif a continuación, si desea completar la línea de asunto del correo electrónico con el nombre del archivo adjunto automáticamente cuando inserta un archivo adjunto, el método VBA en este tutorial lo ayudará.
Complete automáticamente el asunto del correo electrónico con el nombre del archivo adjunto con el código VBA
Ejecute el siguiente código VBA para completar automáticamente el asunto del correo electrónico con el nombre del archivo adjunto insertado en Outlook.
1. Inicie su Outlook, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic Proyecto1 (VbProyecto.OTM) > Objetos de Microsoft Outlook > Esta sesión de Outlook para abrir el ThisOutlookSession (Código) editor.
3. Luego copie el siguiente código VBA en el ThisOutlookSession (Código) editor.
Código de VBA: autocompletar el asunto del correo electrónico con el nombre del archivo adjunto
Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem
Private Sub Application_Startup()
Set GExplorer = Application.ActiveExplorer
Set GInspectors = Application.Inspectors
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
Set GMail = Item
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Dim xItem As Object
Set xItem = Inspector.CurrentItem
If xItem.Class <> olMail Then Exit Sub
Set GMail = xItem
End Sub
Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
Dim xFileName As String
On Error Resume Next
If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
xFileName = Att.DisplayName
xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
GMail.Subject = xFileName
End Sub
4. Ahora debe guardar el código y reiniciar Outlook.
5. De ahora en adelante, cuando inserte un archivo adjunto en un correo electrónico que aún no tiene un asunto completado, un Kutools para Outlook aparecerá un cuadro de diálogo que le preguntará si desea utilizar el nombre del archivo adjunto como asunto, haga clic en el Sí del botón.
Luego, la línea de asunto se completará con el nombre del archivo adjunto insertado automáticamente.
Notas:
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.