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

Как быстро открыть диалоговое окно «Файл», чтобы вставить вложение в Outlook?

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

Быстро открыть диалоговое окно «Файл», чтобы вставить вложение с помощью VBA

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

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

Пожалуйста, сделайте следующее, чтобы сделать это.

1. Запустите Outlook, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Инструменты > Использованная литература, затем проверьте Среда выполнения сценариев Microsoft коробка в Рекомендации – Проект1 диалоговое окно.

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\сохранить вложения\"
Тогда указанная папка будет открываться каждый раз, когда вы запускаете этот код.

4. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

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

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

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

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

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

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

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

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

9. Кнопка, указанная на шаге 7, будет добавлена в Панель быстрого доступа. При составлении электронного письма, если вы хотите вставить вложение, вы можете просто нажать эту кнопку, чтобы открыть ЛИСТАТЬ СПИСКИ папку и выберите файл, который нужно вставить.