Как быстро открыть диалоговое окно файла для вставки вложения в Outlook?

Author: Siluvia Last Modified: 2025-08-07

Когда нам нужно вставить вложение в письмо, которое мы пишем, обычно мы должны нажать Вставить > Прикрепить файл > Обзор этого компьютера, чтобы открыть диалоговое окно «Вставить файл», а затем найти и вставить нужный файл. В этом руководстве мы предоставляем два кода VBA, которые помогут вам легко открыть диалоговое окно «Вставить файл» одним щелчком.

Быстро откройте диалоговое окно файла для вставки вложения с помощью VBA

Следующие коды VBA могут выполнить следующее:

Код VBA 1: Открывает папку «Документы» по умолчанию на вашем компьютере
Код VBA 2: Открывает указанную папку на вашем компьютере

Пожалуйста, выполните следующие действия.

1. Запустите ваш Outlook, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Инструменты > Ссылки, затем отметьте поле Microsoft Scripting Runtime в диалоговом окне Ссылки – Project1.

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

3. Нажмите Вставить > Модуль. Затем скопируйте один из следующих кодов VBA в окно Модуля.

Код VBA 1: Открывает папку «Документы» по умолчанию на вашем компьютере

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

Код VBA 2: Открывает указанную папку на вашем компьютере

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

Примечания:

1) Код VBA 1 помогает открыть папку «Документы» по умолчанию на вашем компьютере.

2) В коде VBA 2 измените путь к папке в следующей строке на путь, который вам нужен.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"
Затем каждый раз при запуске этого кода будет открываться указанная папка.

4. Нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

Теперь вам нужна кнопка для запуска макроса.

5. Нажмите Главная > Новое письмо, чтобы создать новое письмо. В окне сообщения нажмите Настройка панели быстрого доступа > Другие команды.

6. В диалоговом окне Параметры Outlook вам нужно настроить следующее.

6.1) В раскрывающемся списке Выбрать команды из выберите Макросы;

6.2) Выберите макрос, который вы добавили на предыдущем шаге;

6.3) Нажмите кнопку Добавить, чтобы добавить этот макрос в поле Настройка панели быстрого доступа.

7. Оставьте скрипт выбранным в правом поле, затем нажмите кнопку Изменить. В диалоговом окне Изменить кнопку назначьте новую кнопку для скрипта и нажмите OK.

8. Нажмите OK в диалоговом окне Параметры Outlook, чтобы сохранить изменения.

9. Кнопка, которую вы указали на шаге 7, добавлена на панель быстрого доступа. При написании письма, если вы хотите вставить вложение, вы можете просто нажать эту кнопку, чтобы открыть папку Обзор и выбрать файл, который нужно вставить.