Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

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

Author Xiaoyang Last modified

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 extraordinarias!

🤖 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...

📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Exportar rango en varios formatos (PDF/TXT/DOC/HTML...) / Conversión por lote a PDF...

✏ Edición de cuerpo: Buscar y reemplazar en lote en múltiples 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 / Cuadro de texto / Hipervínculos / Descubre más herramientas de eliminación en el grupo Eliminar...

➕ Inserciones creativas: Insertar delimitador de miles / Casilla de Verificación / Botón 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 / Forma / Párrafo de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier rango / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documento /11 herramientas de Conversión...

🌍 Compatible con más de40 idiomas: Usa Kutools en tu idioma preferido: ¡soporta inglés, español, alemán, francés, chino y más de40 idiomas adicionales!

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

✨ Kutools para Office – ¡Una sola instalación, cinco potentes herramientas!

Incluye Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools para Word · Kutools para PowerPoint

📦 Obtén las5 herramientas en una sola suite | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorra tiempo y aumenta tu productividad al instante

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