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-06-04

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 (Mantener formato) / Super Traducir (Mantener formato) / Redacción AI / Revisión con IA...

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

Edición de Contenido: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tabla / 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, visita el grupo Eliminar...

Inserciones creativas: Insertar separadores de miles / Casillas de verificación / Botones de opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Selecciona 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 / Cambia entre ventanas de documentos /11 herramientas de conversión...

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!