¿Cómo enviar un correo electrónico con varios archivos adjuntos desde Excel?
Este artículo explica cómo enviar un correo electrónico mediante Outlook con varios archivos adjuntos desde Excel.
Enviar un correo electrónico con varios archivos adjuntos en Excel mediante código VBA
Enviar un correo electrónico con varios archivos adjuntos en Excel mediante código VBA
Siga estos sencillos pasos para enviar un correo electrónico con varios archivos adjuntos directamente desde Excel.
1. Inserte un botón de comando haciendo clic en Programador > Insertar > Botón de comando (control ActiveX). Vea la captura de pantalla:
2. Tras insertar el botón de comando, haga clic con el botón derecho sobre él y seleccione Ver código en el menú contextual.
3. En la ventana que se abre de Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias, tal como se muestra en la siguiente captura de pantalla.
4. En el cuadro de diálogo Referencias: VBAProject, busque y active la opción Microsoft Outlook Object Library y, a continuación, haga clic en el botón Aceptar.
5. A continuación, reemplace el código original en la ventana de código por el siguiente código VBA.
Código VBA: Enviar un correo electrónico 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 SubNota: especifique el destinatario, el asunto y el cuerpo del correo electrónico modificando las variables en las líneas .To = happy.xuebi@163.com, .Subject = «test» y .HTMLBody = «test» del código.
6. Pulse simultáneamente las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
7. Haga clic en Programador > Modo Diseño para desactivar el modo diseño. Vea la captura de pantalla:
8. Haga clic en el botón de comando para ejecutar el código. En la ventana emergente Examinar, seleccione los archivos que desea adjuntar al correo electrónico y, a continuación, haga clic en el botón Aceptar. Vea la captura de pantalla:
9. A continuación, se creará un correo electrónico con los campos y archivos adjuntos especificados. Haga clic en el botón Enviar para enviarlo. Vea la captura de pantalla:
Nota: el código VBA solo funciona si utiliza Outlook como su cliente de correo electrónico.
Envíe correos electrónicos fácilmente a través de Outlook basándose en los campos de los Lista de correos electrónicos creados en Excel:
La utilidad Enviar correos electrónicos de Kutools para Excel permite a los usuarios enviar correos electrónicos a través de Outlook basándose en la lista de direcciones de correo creada en Excel.
¡Descárguela y pruébela ahora! (prueba gratuita de 30 días)
Artículos relacionados:
- ¿Cómo enviar un correo electrónico a las direcciones de correo electrónico especificadas en celdas de Excel?
- ¿Cómo enviar un correo electrónico copiando y pegando un rango específico en el cuerpo del mensaje desde Excel?
- ¿Cómo insertar una firma en un correo electrónico de Outlook al enviarlo mediante VBA desde Excel?
- ¿Cómo enviar un correo electrónico cuando se cumple la condición de fecha de vencimiento en Excel?
- ¿Cómo enviar un correo electrónico automáticamente en función del valor de una celda en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos