¿Cómo enviar un correo electrónico con varios archivos adjuntos en Excel?
Este artículo habla sobre el envío de un correo electrónico a través de Outlook con varios archivos adjuntos adjuntos en Excel.
Envíe un correo electrónico con varios archivos adjuntos adjuntos en Excel con código VBA
Envíe un correo electrónico con varios archivos adjuntos adjuntos en Excel con código VBA
Haga lo siguiente para enviar un correo electrónico con varios archivos adjuntos adjuntos en Excel.
1. Inserte un botón de comando haciendo clic en Developer > recuadro > Botón de comando (control ActiveX). Ver captura de pantalla:
2. Después de insertar el botón de comando, haga clic derecho y seleccione Ver código desde el menú contextual.
3. En la apertura Microsoft Visual Basic para aplicaciones ventana, haga clic en Herramientas > Referencias como se muestra a continuación.
4. En el Referencias - VBAProject cuadro de diálogo, busque y marque el Biblioteca de objetos de Microsoft Outlook opción, y luego haga clic en la OK
5. Luego reemplace el código original en la ventana Código con el código VBA a continuación.
Código de VBA: envíe un correo electrónico adjunto con varios archivos adjuntos en Excel
Private Sub CommandButton1_Click()
Dim xStrFile As String
Dim xFilePath As String
Dim xFileDlg As FileDialog
Dim xFileDlgItem As Variant
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
If xFileDlg.Show = -1 Then
With xMailOut
.BodyFormat = olFormatRichText
.To = "happy.xuebi@163.com"
.Subject = "test"
.HTMLBody = "test"
For Each xFileDlgItem In xFileDlg.SelectedItems
.Attachments.Add xFileDlgItem
Next xFileDlgItem
.Display
End With
End If
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Nota:: especifique el destinatario, el asunto y el cuerpo de su correo electrónico cambiando la variante en .A = feliz.xuebi@163.com, .Subject = "prueba" y .HTMLBody = "prueba" líneas en el código.
6. presione el otro + Q llaves juntas para salir del Microsoft Visual Basic para aplicaciones ventana.
7. Hacer clic en Developer > Modo de diseño para desactivar el modo de diseño. Ver captura de pantalla:
8. Haga clic en el botón de comando para ejecutar el código. En el apareciendo Búsqueda de ventana, seleccione los archivos que necesita adjuntar en el correo electrónico, y luego haga clic en el OK botón. Ver captura de pantalla:
9. Luego, se crea un correo electrónico con los campos especificados y los archivos adjuntos enumerados. Haga clic en el Enviar botón para enviarlo. Ver captura de pantalla:
Nota:: El código VBA solo funciona cuando usa Outlook como su programa de correo electrónico.
Envíe fácilmente correos electrónicos a través de Outlook según los campos de la lista de correo creada en Excel:
Programas de Enviar correos electrónicos utilidad de Kutools for Excel ayuda a los usuarios a enviar correo electrónico a través de Outlook según la lista de correo creada en Excel.
¡Descárgalo y pruébalo ahora! (30sendero libre de un día)
Artículos relacionados:
- ¿Cómo enviar correos electrónicos a direcciones de correo electrónico especificadas en celdas en Excel?
- ¿Cómo enviar un correo electrónico copiando y pegando un rango específico en el cuerpo del correo electrónico en Excel?
- ¿Cómo insertar una firma en el correo electrónico de Outlook al enviar por vba en Excel?
- ¿Cómo enviar un correo electrónico si se ha cumplido la fecha de vencimiento en Excel?
- ¿Cómo enviar correos electrónicos automáticamente según el valor de la celda en Excel?
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Office Tab lleva la 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 nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!














