¿Cómo rellenar automáticamente el asunto del correo electrónico con el nombre del archivo adjunto en Outlook?

Para quienes tienen la costumbre de usar el nombre del archivo adjunto como asunto en los correos electrónicos de Outlook, escribir manualmente dicho nombre en la línea de asunto cada vez resultará muy lento. Tal como se muestra en el GIF siguiente, si desea que el asunto del correo se rellene automáticamente con el nombre del archivo al insertar un adjunto, el método VBA de este tutorial le será de gran ayuda.

Rellenar automáticamente la Asunto del correo electrónico con el Nombre del Adjunto mediante código VBA

Ejecute el siguiente código VBA para rellenar automáticamente el asunto del correo electrónico con el nombre del archivo adjunto insertado en Outlook.

1. Inicie Outlook y pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en Project1 (VbProject.OTM) > Objetos de Microsoft Outlook > ThisOutlookSession para abrir el editor de ThisOutlookSession (Código).

3. A continuación, copie el siguiente código VBA en el editor de ThisOutlookSession (Código).

Código VBA: Relleno automático de la Asunto del correo electrónico con el Nombre del 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. A partir de ahora, al insertar un archivo adjunto en un correo que aún no tenga asunto, aparecerá un cuadro de diálogo Kutools para Outlook preguntándole si desea usar el nombre del archivo adjunto como asunto; haga clic en el botón Sí.

Entonces, la línea de asunto se rellenará automáticamente con el nombre del archivo adjunto insertado.

Notas:

Asistente de correo con IA en Outlook: respuestas más inteligentes y comunicación más clara (¡magia con un solo clic!)

Simplifique sus tareas diarias en Outlook con el Asistente de correo con IA de Kutools para Outlook. Esta potente herramienta aprende de sus correos anteriores para ofrecerle respuestas inteligentes y precisas, optimizar el contenido de sus mensajes y ayudarle a redactarlos y perfeccionarlos sin esfuerzo.

Esta función incluye:

• Respuestas inteligentes: obtenga respuestas elaboradas a partir de sus conversaciones anteriores: personalizadas, precisas y listas para usar.
• Contenido mejorado: refine automáticamente el texto de sus correos electrónicos para lograr mayor claridad e impacto.
• Redacción sin esfuerzo: proporcione solo palabras clave y deje que la IA haga el resto, con múltiples estilos de escritura.
• Extensiones inteligentes: potencie sus ideas con sugerencias adaptadas al contexto.
• Resumen: obtenga al instante resúmenes concisos de correos electrónicos extensos.
• Alcance global: traduzca sus correos electrónicos a cualquier idioma con facilidad.

Esta función incluye:

• Respuestas inteligentes de correo electrónico
• Contenido optimizado
• Borradores basados en palabras clave
• Extensión inteligente de contenido
• Resumen de correos electrónicos
• Traducción multilingüe

¡No espere más—descargue ahora el Asistente de correo con IA y disfrute!

---

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

🤖KUTOOLS AI:Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

👩🏼‍🤝‍👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook      Descargar ahora      Ir a comprar

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

• ✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
• 🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
• 🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto⬇ Descargar el Conjunto💳 Comprar el Conjunto