¿Cómo abrir rápidamente el cuadro de diálogo Abrir para insertar un archivo adjunto en Outlook?

AutoraSiluvia Fecha de modificación2024-09-13

Cuando necesitamos insertar un archivo adjunto en un correo electrónico que estamos redactando, normalmente debemos hacer clic en **Insertar > Adjuntar archivo > Examinar este equipo** para abrir el cuadro de diálogo **Insertar archivo**, y luego buscar e insertar el archivo deseado. En este tutorial, le ofrecemos dos códigos VBA que le permitirán abrir fácilmente dicho cuadro de diálogo con un solo clic.

Abrir rápidamente el cuadro de diálogo Abrir para insertar un archivo adjunto con VBA

Los siguientes códigos VBA permiten:

Código VBA 1: abre la carpeta predeterminada Documentos de su equipo
Código VBA 2: abre una carpeta específica de su equipo

Siga estos sencillos pasos para lograrlo.

1. Inicie Outlook y pulse las teclas Alt+F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Herramientas > Referencias y, a continuación, active la casilla Microsoft Scripting Runtime en el cuadro de diálogo Referencias – Proyecto1.

pasos para abrir el cuadro de diálogo de archivos y insertar un archivo adjunto en Outlook

3. Haga clic en Insertar > Módulo. A continuación, copie uno de los siguientes códigos VBA en la ventana del Módulo.

Código VBA 1: abre la carpeta predeterminada Documentos de su equipo

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

Código VBA 2: abre una carpeta específica de su equipo

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

Notas:

1) El código VBA 1 permite abrir la carpeta predeterminada Documentos de su equipo.

2) En el código VBA 2, cambie la ruta Ruta del archivo en la siguiente línea por la Ruta del archivo que necesite.
xFileDlg.InitialFileName = «C:\Users\Win10x64Test\Desktop\save attachments\»
De este modo, cada vez que ejecute este código se abrirá la carpeta especificada.

4. Pulse las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

Ahora necesita un botón para ejecutar la macro.

5. Haga clic en Inicio > Nuevo correo para crear un nuevo correo. En la ventana del mensaje, haga clic en Personalizar barra de herramientas de acceso rápido > Más comandos.

6. En el cuadro de diálogo Opciones de Outlook, configure lo siguiente.

6,1) En el campo Elegir comandos deLista desplegable, seleccione Macros;

6,2) Seleccione la macro que añadió en el paso anterior;

6,3) Haga clic en el botón Agregarpara añadir esta macro al cuadro Personalizar barra de herramientas de acceso rápido.

7. Mantenga seleccionado el script en el cuadro de la derecha y, a continuación, haga clic en el botón Modificar. En el cuadro de diálogo Modificar botón, asigne un nuevo botón al script y haga clic en Aceptar.

8. Haga clic en Aceptar en el cuadro de diálogo Opciones de Outlook para guardar los cambios.

9. El botón que especificó en el paso 7 se añadirá entonces a la barra de herramientas de acceso rápido. Al redactar un correo electrónico, si desea insertar un archivo adjunto, simplemente haga clic en este botón para abrir la carpeta Examinar y seleccionar el archivo que quiera adjuntar.

Las mejores herramientas de productividad para Office

¡Descubra el nuevo Kutools para Outlook con 100+ funciones increíbles!¡Haga clic para descargar ahora!

🤖KUTOOLS AI:Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar el envío de correos electrónicos / CC/BCC automático según reglas al enviar correos / Reenvío automático (regla avanzada) / Añadir saludo automáticamente / Dividir automáticamente los correos con múltiples destinatarios en mensajes individuales...

📨Gestión de correo electrónico: Recupera tus correos electrónicos / Bloquea correos fraudulentos por asunto y otros criterios / Elimina correos electrónicos duplicados / Búsqueda avanzada / Organiza tus carpetas…

📁Archivos adjuntos Pro: Guardar en lote / Desvincular en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto comprimir...

🌟Magia de la interfaz: 😊Más emojis bonitos y modernos / Le avisa cuando llegan correos importantes / Minimiza Outlook en lugar de cerrarlo…

👍Maravillas con un solo clic: Responder a Todos con Adjuntos / Correos electrónicos antiphishing / 🕘 Mostrar zona horaria: hora actual del remitente...

👩🏼‍🤝‍👩🏻Contactos y calendario: Crear contactos en lote a partir de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utilice Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y más de 40 idiomas adicionales.

Desbloquee Kutools para Outlook al instante con un solo clic. ¡No espere más: descárguelo ahora y potencie su eficiencia!

Lista de funciones de Kutools para Outlook Descargar ahora Ir a comprar

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)

Un solo clic para descargar cinco instaladoresa la vez —Kutools para Excel, Outlook, Word, PowerPointy Office Tab Pro.¡Haga clic para descargar ahora!

✅Comodidad con un solo clic: Descargue los cinco paquetes de instalación de una sola vez.
🚀Listo para cualquier tarea de Office: Instale los complementos que necesite, justo cuando los necesite.
🧰Incluido: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Acerca del Conjunto ⬇ Descargar el Conjunto 💳 Comprar el Conjunto