¿Cómo adjuntar solo archivos con extensión .pdf desde Excel?

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

Conoce nuestra tienda

Mejora tu nivel y logra tus objetivo

Excel

Excel cursos

Access

cursos de Access

Power BI

cursos power BI

Deja un comentario