Skip to main content

¿Cómo aplicar un botón para enviar un correo electrónico con el archivo de Word actual adjunto?

Author: Xiaoyang Last Modified: 2025-08-06

Si necesita enviar un correo electrónico desde un documento de Word usando Outlook y adjuntar el archivo de Word actual, puede insertar un botón de comando que envíe el correo con un solo clic, sin necesidad de abrir Outlook manualmente. Esta guía muestra cómo configurarlo de manera rápida y sencilla.

Aplicar un botón para enviar un correo electrónico con el archivo de Word actual adjunto

Aplicar un botón para enviar un correo electrónico con el archivo de Word actual adjunto

Siga estos pasos para realizar la tarea en su documento de Word:

  1. Primero, inserte un botón de comando. Vaya a "Desarrollador" > "Herramientas heredadas" > "Botón de comando (Control ActiveX)".

    Nota: Si no ve la pestaña Desarrollador en la cinta, visite: Cómo mostrar la pestaña Desarrollador en la cinta de Word.

    Developer tab with Controls group selected, Legacy Tools clicked, and Command Button highlighted
  2. Seleccione el botón, luego haga clic en "Propiedades" bajo la pestaña "Desarrollador". En el panel Propiedades, escriba el texto que desea mostrar en el botón en el campo "Título".
    Properties button on the ribbon and Properties dialog popped up
  3. Cierre el panel Propiedades. Luego, haga clic derecho en el botón y elija "Ver código".
    View Code option on the context menu
  4. En la ventana "Microsoft Visual Basic para Aplicaciones", pegue el siguiente código entre las etiquetas de subrutina existentes: 
    Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
    .Subject = "Fax-data"
    .Body = "This is a test email."
    .To = "yy@addin99.com"
    .Importance = olImportanceNormal
    .Attachments.Add xDoc.FullName
    .Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
    VBA window with the above code pasted

    Nota: Puede cambiar el asunto, el contenido del cuerpo y la dirección de correo electrónico del destinatario en el código para que coincidan con los detalles reales de su mensaje.

  5. Guarde y cierre el editor de VBA. Haga clic en "Modo Diseño" en la pestaña Desarrollador para desactivarlo. Ahora, cuando haga clic en el botón de comando, se creará automáticamente un correo electrónico en Outlook con el documento de Word actual adjunto.
    An email is created with the current Word document as an attachment
  6. Finalmente, haga clic en el botón "Enviar" en Outlook para enviar el mensaje.

Las mejores herramientas de productividad para Office

Kutools para Word: ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Conservar Formato) / Super Traducir (Conservar Formato) / Redacción AI / Revisión con IA...

📘 Dominio del Documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

✏ Edición de Contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, ve al grupo Eliminar...

➕ Inserciones creativas: Insertar separadores de miles / casillas de verificación / botones de opción / Código QR / Código de Barras / múltiples imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Localiza páginas específicas / tablas / formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier ubicación / inserta automáticamente texto repetitivo / alterna entre ventanas de documento /11 herramientas de conversión...

🌍 Compatible con más de40 idiomas: Utiliza Kutools en tu idioma preferido: admite Inglés, Español, Alemán, Francés, Chino y más de40 idiomas.

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

Las mejores herramientas de productividad para Office

Kutools para Word: más de 100 herramientas para Word

Descarga gratuita Comprar ahora Más información sobre Kutools