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

Cuando necesitamos insertar un archivo adjunto en un correo electrónico de redacción, generalmente debemos hacer clic en Insertar> Adjuntar archivo> Examinar esta PC para abrir el cuadro de diálogo Insertar archivo, luego buscar e insertar el archivo que necesitamos. En este tutorial, proporcionamos dos códigos VBA para ayudarlo a abrir el cuadro de diálogo Insertar archivo fácilmente con solo un clic.

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

Los siguientes códigos VBA pueden lograr:

Código VBA 1: abra la carpeta Documentos predeterminada en su computadora
Código VBA 2: abra la carpeta especificada en su computadora

Por favor, haga lo siguiente para hacerlo.

1. Inicie su Outlook, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic Tools > Referencias luego revisa el Tiempo de ejecución de secuencias de comandos de Microsoft en el cuadro Referencias – Proyecto1 caja de diálogo.

3. Hacer clic en recuadro > Módulo. Luego copie uno de los siguientes códigos VBA en el Módulo ventana.

Código VBA 1: abra la carpeta Documentos predeterminada en su 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: abra la carpeta especificada en su 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

4. presione el otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana.

Ahora necesita un botón para ejecutar la macro.

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

6. En el Opciones de outlook cuadro de diálogo, debe configurarlo de la siguiente manera.

7. Mantenga la secuencia de comandos seleccionada en el cuadro de la derecha y luego haga clic en el modificar botón. En el Botón Modificar cuadro de diálogo, asigne un nuevo botón a la secuencia de comandos y haga clic en OK.

8. Hacer clic en OK en el capítulo respecto a la Opciones de outlook cuadro de diálogo para guardar los cambios.

9. El botón que especificó en el paso 7 se agrega al Acceso rapido a la barra de herramientas. Al redactar un correo electrónico, si desea insertar un archivo adjunto, puede simplemente hacer clic en este botón para abrir el Búsqueda de carpeta y seleccione el archivo que necesita insertar.

---

Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

• Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
• Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
• Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
• Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
• Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.

Leer más ... Descargar ahora...