Note: The other languages of the website are Google-translated. Back to English

¿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:


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.
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

  • 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!
officetab parte inferior
Comentarios (14)
5 clasificado de 5 · 1 calificaciones
Este comentario fue minimizado por el moderador en el sitio
Puedo "Enviar rápidamente un correo electrónico con varios archivos adjuntos en Excel con Kutools para Excel" siguiendo los pasos anteriores, pero me gustaría ir un paso más allá y personalizar cada correo electrónico insertando sus nombres (de una columna en la hoja de Excel) en el cuerpo del correo electrónico. Mientras estoy en el cuerpo del correo electrónico, intento seleccionar el campo y hacer clic en "Insertar marcador de posición", pero no sucede nada. ¿Alguna idea de por qué o cómo puedo solucionar esto? ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
¿Qué sucede si los archivos anteriores se encuentran en subcarpetas? ¿Cómo buscar un archivo en una carpeta y subcarpetas?
Este comentario fue minimizado por el moderador en el sitio
¿Qué sucede si se envían varios usuarios diferentes y diferentes archivos adjuntos con una línea de asunto diferente?
Este comentario fue minimizado por el moderador en el sitio
el código anterior funciona perfectamente gracias!! pero mi firma automática de correo electrónico parece desaparecer con este código. ¿Alguna idea de por qué?
Este comentario fue minimizado por el moderador en el sitio
Hola equipo... no puedo ver el archivo adjunto en el correo, así que si sigo tus pasos... ¿puedes ayudarme?
Este comentario fue minimizado por el moderador en el sitio
Excelente...... Funciona perfectamente.
Este comentario fue minimizado por el moderador en el sitio
Disfruté trabajar con esta solución para agregar varios archivos adjuntos a un correo electrónico desde Excel VBA. Gracias. Sé que muchos de nosotros nos beneficiamos y luego queremos algún aspecto personalizado para exactamente lo que estamos tratando de hacer. No soy diferente, pero para el paso 8. ¿Podemos establecer el camino que el Búsqueda de ventana se abrirá con? Puedo navegar a otra carpeta en una ubicación diferente, pero si pudiera establecer la ruta, sería un ahorro de tiempo.
Este comentario fue minimizado por el moderador en el sitio
Hola,
Me gustaría saber como quedaría la macro si quisiera enviarla en un mismo correo a varias personas o más y con varios ficheros o más.
Muchas gracias.
Este comentario fue minimizado por el moderador en el sitio
Is het ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd?
Este comentario fue minimizado por el moderador en el sitio
Hola Alex de Graaf,
El código llama directamente a la ventana de selección de archivos de Microsoft. Esto facilita a los usuarios de VBA la selección de los archivos necesarios.
Este comentario fue minimizado por el moderador en el sitio
Hola Crystal,

Sí, lo entiendo. Sin embargo, quiero que los usuarios solo puedan seleccionar archivos PDF.
¿Es esto posible?
Este comentario fue minimizado por el moderador en el sitio
Hola Alex de Graaf,
El siguiente código de VBA enumera solo los archivos PDF en la ventana Examinar. Por favor inténtalo.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    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)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    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
Este comentario fue minimizado por el moderador en el sitio
Hola Crystal,
Sí, entiendo eso. Sin embargo, ¿es posible restringir a los usuarios para que solo seleccionen archivos pdf?
Este comentario fue minimizado por el moderador en el sitio
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
5 clasificado de 5
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL