¿Cómo aplicar un botón para enviar correo electrónico con el archivo de Word actual adjunto?
Si necesita enviar un mensaje de correo electrónico desde un documento de Word a través de Outlook y adjuntar también el archivo de Word actual, puede crear un botón de comando y luego enviar el mensaje haciendo clic en este botón sin abrir Outlook. En este artículo, presentaré cómo lidiar con él de forma rápida y sencilla.
Aplicar un botón para enviar correo electrónico con el archivo de Word actual adjunto
Aplicar un botón para enviar correo electrónico con el archivo de Word actual adjunto
Siga los siguientes pasos para resolver este trabajo en un archivo de Word:
1. Primero, debe crear un botón de comando, haga clic en Developer > Herramientas heredadas > Botón de comando (control ActiveX), ver captura de pantalla:
2. Seleccione el botón y haga clic en Propiedades bajo el Developer pestaña, en el Propiedades panel, escriba el texto del título que necesita en el Subtítulo campo, ver captura de pantalla:
3. Luego, cierre el Propiedades panel, ahora, haga clic derecho en el botón y elija Ver código, ver captura de pantalla:
4. Y luego, en la pantalla Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código entre los scripts originales, vea la captura de pantalla:
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 = ""
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
Note: En el código anterior, debe cambiar el asunto, el cuerpo del texto o la dirección de envío según sus necesidades.
5. Luego, guarde y cierre este código, haga clic en Modo de diseño para desactivar el modo de diseño. Ahora, al hacer clic en el botón de comando que ha creado, se creará un correo electrónico con el documento de Word actual como archivo adjunto, vea la captura de pantalla:
6. Por fin, solo necesitas hacer clic Enviar botón para enviar este mensaje.
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar páginas específicas / tablas / formas / párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegue rápidamente a cualquier ubicación / insertar automáticamente texto repetitivo / alternar sin problemas entre ventanas de documentos / 11 herramientas de conversión...