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

¿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 Herramientas > 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:

1) El código VBA 1 ayuda a abrir la carpeta Documentos predeterminada en su computadora.

2) En el código VBA 2, cambie la ruta de la carpeta en la siguiente línea a la ruta de la carpeta que necesita.
xFileDlg.InitialFileName = "C:\Usuarios\Win10x64Test\Escritorio\guardar archivos adjuntos\"
Luego, la carpeta especificada se abrirá cada vez que ejecute este código.

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.

6.1) en el Elija comandos de lista desplegable, seleccione macros;

6.2) Seleccione la macro que agregó en el paso anterior;

6.3) Haga clic en Añada para agregar esta macro al Personalizar la barra de herramientas de acceso rápido encajonar.

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 existentes 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 Explorar carpeta y seleccione el archivo que necesita insertar.