Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo enviar un correo electrónico con múltiples archivos adjuntos adjuntos en Excel?

Este artículo habla de enviar un correo electrónico a través de Outlook con varios archivos adjuntos adjuntos en Excel.

Enviar correo electrónico con múltiples archivos adjuntos adjuntos en Excel con código VBA

Envía rápidamente correos electrónicos con múltiples archivos adjuntos adjuntos en Excel con Kutools para Excel

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

Enviar correo electrónico con múltiples 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. Por favor inserte un botón de comando haciendo clic Desarrollador > 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, por favor haga clic Herramientas > Referencias como se muestra a continuación.

4. En el Referencias - VBAProject cuadro de diálogo, busque y verifique Biblioteca de objetos de Microsoft Outlook opción, y luego haga clic en OK botón.

5. Luego reemplace el código original en la ventana Código con el código VBA debajo.

Código VBA: envía 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: por favor especifique su destinatario de correo electrónico, asunto y cuerpo al cambiar la variable en .To = happy.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 Desarrollador > 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 Buscar ventana, seleccione los archivos que necesita adjuntar en el correo electrónico y luego haga clic en OK botón. Ver captura de pantalla:

9. Luego se crea un correo electrónico con los campos especificados y los archivos adjuntos enumerados. Por favor haga clic en Enviar para enviarlo Ver captura de pantalla:

Nota: El código de VBA solo funciona cuando usa Outlook como su programa de correo electrónico.


Envía rápidamente correos electrónicos con múltiples archivos adjuntos adjuntos en Excel con Kutools para Excel

Esta sección te recomendará el Enviar correos electrónicos utilidad de Kutools for Excel. Con esta utilidad, puede enviar fácilmente correos electrónicos con múltiples archivos adjuntos adjuntos en Excel. Por favor haz lo siguiente.

Kutools for Excel : con más de 300 útiles complementos de Excel, gratis para probar sin limitaciones en los días 60.

1. Siga la siguiente captura de pantalla que se muestra para crear una lista de correo. Y complete la dirección de correo electrónico del destinatario, el asunto del correo electrónico y las rutas de los archivos adjuntos que debe adjuntar en el correo electrónico de envío.

2. Seleccione la lista de correo completa que acaba de crear (aquí selecciono el rango A1: E2), luego haga clic Empresa > Enviar correos electrónicos. Ver captura de pantalla:

2. En el apareciendo Enviar correos electrónicos cuadro de diálogo, por favor haga las siguientes configuraciones:

A. El A, Adjuntar archivos y Asunto los campos se llenarán automáticamente con las listas de correo seleccionadas;

B. Componga el cuerpo del correo electrónico como lo necesite;

C. Verifique Enviar correo electrónico a través de Outlook caja;

D. Haga clic en Enviar botón para enviar el correo electrónico. Ver captura de pantalla:

3. Entonces un Kutools for Excel cuadro de diálogo aparece para decirle cuántos correos electrónicos se han enviado. Por favor haga clic en OK botón y cierra el Enviar correos electrónicos caja de diálogo. Ver captura de pantalla:

Nota: Puede ir a la carpeta de elementos enviados de Outlook para verificar el envío de correos electrónicos.

Propina.Si desea tener una versión de prueba gratuita de esta utilidad, vaya a descarga el software libremente primero, y luego vaya a aplicar la operación de acuerdo a los pasos anteriores.


Artículos relacionados:


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kailas Naik · 20 days ago
    HI Team ....i am unable to see the attachment in mail so if i follow the your step...can you pls help
  • To post as a guest, your comment is unpublished.
    Regina · 8 months ago
    the above code works perfectly thanks!! but my email automatic signature seem to disappear with this code. any idea why?
  • To post as a guest, your comment is unpublished.
    Rizwan Siddiqui · 1 years ago
    What if multiple different user and different attachment to be send with different subject line.
  • To post as a guest, your comment is unpublished.
    Prashant Soni · 1 years ago
    What if above files are located in sub-folders? How to look for a file in folder and sub-folders?
  • To post as a guest, your comment is unpublished.
    Laurel Granger · 1 years ago
    I am able to "Quickly send email with multiple attachments attached in Excel with Kutools for Excel" using your steps above, but would like to take it one step further and personalize each email by inserting their names (from a column in the Excel sheet) into the body of the email. While in the body of the email, I try selecting the field and clicking on "Insert Placeholder" but nothing happens. Any idea why or how I can fix this? Thank you!