KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

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

AutorXiaoyang Fecha de modificación

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

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

Aplique 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. En primer lugar, inserte un botón de comando. Vaya a «Programador» > «Herramientas heredadas» > «Botón de comando (Control ActiveX)».

    Nota: Si no ve la pestaña Programador en la Cinta de opciones, visite: Cómo mostrar la pestaña Programador en la Cinta de opciones de Word.

    Pestaña Desarrollador con el grupo Controles seleccionado, Herramientas heredadas pulsadas y Botón de comando resaltado
  2. Seleccione el botón y, a continuación, haga clic en «Propiedades» en la pestaña «Programador». En el panel de propiedades, introduzca en el campo «Título» el texto que desee mostrar en el botón.
    Botón Propiedades en la cinta de opciones y cuadro de diálogo Propiedades abierto
  3. Cierre el panel Propiedades y, a continuación, haga clic con el botón derecho en el botón y elija «Ver código».
    Opción Ver código en el menú contextual
  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
    Ventana de VBA con el código anterior pegado

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

  5. Cierre, guarde y salga del editor de VBA. Haga clic en «Modo diseño» en la pestaña Programador para desactivarlo. Ahora, al hacer clic en el botón de comando, se generará automáticamente un correo electrónico en Outlook con el documento de Word actual adjunto.
    Se crea un correo electrónico con el documento de Word actual como archivo adjunto
  6. Por último, haga clic en el botón «Enviar» de Outlook para enviar el mensaje.

Las mejores herramientas de productividad para Office

Kutools para Word- Potencie su experiencia en Word con más de 100funciones extraordinarias

🤖Funcionalidades de KUTOOLS AI: Asistente de IA / Asistente en Tiempo Real / Super Pulir (conservar formato) / Super Traducir (conservar formato) / Redacción con IA / Revisión con IA…

📘Dominio del documento: Dividir páginas, combinar documentos, exportar selecciones en varios formatos (PDF, TXT, DOC, HTML…) y convertir varios documentos a PDF…

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

🧹Limpieza sin esfuerzo: Elimine rápidamente espacios adicionales, saltos de sección, cuadros de texto e hipervínculos. Para más herramientas de eliminación, vaya al grupo Eliminar…

➕Inserciones creativas: Inserte separadores de miles, casillas de verificación, botones de opción, códigos QR, códigos de barras o varias imágenes. ¡Descubra más en el grupo Insertar…

🔍Selecciones precisas: Localice exactamente páginas específicas, tablas, formas o párrafos de encabezado. Mejore la navegación con más funciones de selecciónfeatures ......

⭐Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Alterna entre documentos de Windows / 11 …herramientas de conversión…

🌍Compatible con 40+ idiomas: Use Kutools en su idioma preferido – compatible con inglés, español, alemán, francés, chino y 40+ más idiomas

Kutools for Word pestañas en la cinta de opciones
 
 

Office Tab- Aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas nuevas.
  • ¡Aumente su productividad en un 50 % y ahorre cientos de clics de ratón cada día!

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

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

📦 Obtenga las 5 herramientas en un único conjunto | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorrar tiempo y aumente su productividad al instante

Las mejores herramientas de productividad para Office

Kutools para Word- Herramientas 100+ para Word

Descarga gratuitaComprar ahoraMás información sobre Kutools