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

Author: Siluvia Last Modified: 2025-06-04

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

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz 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 emails.

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

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos 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 correos importantes / Minimiza Outlook en vez de cerrarlo...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...

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

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!