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

Author: Siluvia Last Modified: 2025-08-26

Cuando necesitamos insertar un 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, luego encontrar e insertar el archivo que necesitamos. En este tutorial, proporcionamos dos códigos VBA para ayudarte a abrir el cuadro de diálogo Insertar archivo fácilmente con solo un clic.

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

Los siguientes códigos VBA pueden lograr:

Código VBA 1: Abrir la carpeta Documentos predeterminada en tu computadora
Código VBA 2: Abrir la carpeta especificada en tu computadora

Por favor, sigue los pasos a continuación para completarlo.

1. Abre tu Outlook, presiona las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic for Applications.

2. En la ventana Microsoft Visual Basic for Applications, haz clic en Herramientas > Referencias, luego marca la casilla Microsoft Scripting Runtime en el cuadro de diálogo Referencias – Proyecto1.

steps of opening the file dialog box to insert an attachment in outlook

3. Haz clic en Insertar > Módulo. Luego copia uno de los siguientes códigos VBA en la ventana Módulo.

Código VBA 1: Abrir la carpeta Documentos predeterminada en tu computadora

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: Abrir la carpeta especificada en tu computadora

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 ayuda a abrir la carpeta Documentos predeterminada en tu computadora.

2) En el código VBA 2, cambia la ruta de la carpeta en la siguiente línea por la ruta de la carpeta que necesitas.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"
Luego, cada vez que ejecutes este código, se abrirá la carpeta especificada.

4. Presiona las teclas Alt + Q para cerrar la ventana Microsoft Visual Basic for Applications.

Ahora necesitas un botón para ejecutar la macro.

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

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

6.1) En la lista desplegable Elegir comandos de, selecciona Macros;

6.2) Selecciona la macro que agregaste en el paso anterior;

6.3) Haz clic en el botón Agregar para añadir esta macro al cuadro Personalizar barra de herramientas de acceso rápido.

7. Mantén el script seleccionado en el cuadro de la derecha y luego haz clic en el botón Modificar. En el cuadro de diálogo Modificar botón, asigna un nuevo botón al script y haz clic en Aceptar.

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

9. El botón que especificaste en el paso 7 se agrega a la Barra de herramientas de acceso rápido. Al redactar un correo electrónico, si deseas insertar un adjunto, puedes simplemente hacer clic en este botón para abrir la carpeta Examinar y seleccionar el archivo que necesitas insertar.

Las mejores herramientas de productividad para Office

Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.

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

📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...

📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan emails importantes / Minimizar Outlook en vez de cerrar...

👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

Lista de características de Kutools para Outlook Descargar ahora Ir a Comprar

🚀 Descarga con un solo clic — Consigue todos los complementos para Office

Muy recomendado: Kutools para Office (5 en1)

Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.

✅ Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint

Acerca del paquete ⬇ Descarga el paquete 💳 Compra el paquete