
Para adjuntar solo archivos con extensión .pdf desde Excel, puedes utilizar VBA (Visual Basic for Applications) para automatizar este proceso. Aquí tienes una guía paso a paso para crear un macro que te permita adjuntar archivos PDF desde Excel:
Sub AdjuntarPDFs()
' Definir las variables
Dim OutlookApp As Object
Dim Mail As Object
Dim FileDialog As Object
Dim FilePath As String
Dim i As Integer
' Crear un nuevo objeto de Outlook
Set OutlookApp = CreateObject("Outlook.Application")
Set Mail = OutlookApp.CreateItem(0)
' Crear un cuadro de diálogo para seleccionar archivos
Set FileDialog = Application.FileDialog(msoFileDialogFilePicker)
With FileDialog
.Title = "Selecciona los archivos PDF para adjuntar"
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Archivos PDF", "*.pdf"
If .Show = -1 Then ' Si el usuario selecciona archivos
' Iterar por cada archivo seleccionado
For i = 1 To .SelectedItems.Count
FilePath = .SelectedItems(i)
' Adjuntar el archivo al correo
Mail.Attachments.Add FilePath
Next i
End If
End With
' Configurar propiedades del correo
With Mail
.Subject = "Asunto de prueba"
.Body = "Cuerpo del correo"
.Display ' Cambia a .Send para enviar directamente
End With
' Liberar objetos
Set Mail = Nothing
Set OutlookApp = Nothing
Set FileDialog = Nothing
End Sub
- Abre Excel y presiona `ALT` + `F11` para abrir el Editor de VBA.
- Inserta un módulo nuevo:
- Ve a `Insertar` > `Módulo` para crear un nuevo módulo.
- Copia y pega el siguiente código en el módulo:
- Cierra el Editor de VBA y vuelve a Excel.
- Ejecuta el macro:
- Ve a `Vista` > `Macros` > `Ver Macros`.
- Selecciona `AdjuntarPDFs` y haz clic en `Ejecutar`.
Cuando ejecutas el macro, se abrirá un cuadro de diálogo que te permitirá seleccionar los archivos PDF que deseas adjuntar a un nuevo correo en Outlook. Ajusta el asunto y cuerpo del correo según sea necesario.
Nota: Asegúrate de que tienes permisos para usar macros y de que Outlook está configurado en tu computadora para enviar correos. Además, es importante guardar tu archivo de Excel con macros habilitadas, utilizando la extensión `.xlsm`.
Conoce nuestros servicios



