¿Cómo aplicar un botón para enviar un correo electrónico con el archivo de Word actual adjunto?
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:
- 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.
- 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".
- Cierre el panel Propiedades. Luego, haga clic derecho en el botón y elija "Ver código".
- 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
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.
- 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.
- 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...

Las mejores herramientas de productividad para Office
Kutools para Word - ¡Más de 100 herramientas para Word!
- 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
- 📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Convertir en lote a PDF
- ✏ Edición de Contenido: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar Saltos de sección
- ➕ Inserciones creativas: Insertar separadores de miles / Insertar Casillas de Verificación / Crear Códigos QR