Skip to main content

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

Author: Siluvia Last Modified: 2025-06-04

Para aquellos que están acostumbrados a usar el nombre del adjunto como asunto de un correo en Outlook, escribir manualmente el nombre del adjunto en la línea de asunto cada vez será muy consumidor de tiempo. Como se muestra en el gif a continuación, si deseas rellenar la línea de asunto del correo con el nombre del adjunto automáticamente al insertar un archivo adjunto, el método VBA en este tutorial te ayudará.


Rellenar automáticamente el asunto del correo con el nombre del adjunto mediante código VBA

Por favor, ejecuta el siguiente código VBA para rellenar automáticamente el asunto del correo con el nombre del adjunto insertado en Outlook.

1. Inicia tu Outlook, presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

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

3. Luego, copia el siguiente código VBA en el editor ThisOutlookSession (Código).

Código VBA: Autocompletar el asunto del correo 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

doc-autofill-subject-line-with-attachment-name-2

4. Ahora necesitas guardar el código y reiniciar Outlook.

5. A partir de ahora, cuando insertes un adjunto en un correo que aún no tiene el asunto rellenado, aparecerá un cuadro de diálogo de Kutools para Outlook preguntándote si deseas usar el nombre del adjunto como asunto; haz clic en el botón Sí.

doc-autofill-subject-line-with-attachment-name-3

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

doc-autofill-subject-line-with-attachment-name-4

Notas:

1) Si ya has rellenado el asunto, insertar un adjunto no hará que aparezca el cuadro de diálogo.
2) Si eliminas un asunto existente del correo actual pero el cursor sigue estando en la línea de asunto, insertar un adjunto tampoco hará que aparezca el cuadro de diálogo. Después de eliminar el asunto, necesitarás hacer clic fuera de la línea de asunto para actualizar el cuadro de mensaje y hacer que el código funcione.
3) Si insertas varios adjuntos al mismo tiempo, solo el nombre del primer adjunto podrá usarse como asunto del correo.

Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS

Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.
doc ai email handle

Esta función admite:

  • Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
  • Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
  • Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
  • Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
  • Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
  • Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.

Esta función admite:

  • 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

¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!


Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz 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 emails.

📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

kutools for outlook features1 kutools for outlook features2