Як швидко відкрити діалогове вікно файлу, щоб вставити вкладення в Outlook?

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

Швидко відкрийте діалогове вікно файлу, щоб вставити вкладення за допомогою VBA

Наступні коди VBA можуть досягти:

Код VBA 1: відкрийте стандартну папку «Документи» на комп’ютері
Код VBA 2: відкрийте вказану папку на своєму комп’ютері

Будь ласка, зробіть наступне, щоб це зробити.

1. Запустіть Outlook, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Tools > література, потім перевірте Виконання сценаріїв Microsoft коробка в Список літератури – Проект1 діалогове вікно.

3. клацання Insert > Модуль. Потім скопіюйте один із наведених нижче кодів 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 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.

Тепер вам потрібна кнопка для запуску макросу.

5. клацання Головна > Нова електронна пошта щоб створити новий електронний лист. У вікні повідомлення натисніть Налаштування панелі швидкого доступу > Більше команд.

6 В Параметри Outlook діалогове вікно, вам потрібно налаштувати наступним чином.

6.1) У Виберіть команди з у спадному списку виберіть Макроси;

6.2) Виберіть макрос, який ви додали на попередньому кроці;

6.3) Клацніть на додавати , щоб додати цей макрос до Налаштування панелі швидкого доступу коробка

7. Залиште сценарій вибраним у правому полі, а потім клацніть Змінювати кнопку. В Кнопка зміни діалоговому вікні, призначте нову кнопку для сценарію та натисніть OK.

8. клацання OK в Параметри Outlook діалогове вікно, щоб зберегти зміни.

9. Потім кнопка, яку ви вказали на кроці 7, додається до Панель швидкого доступу. Під час створення електронного листа, якщо ви хочете вставити вкладення, ви можете просто натиснути цю кнопку, щоб відкрити перегорнути папку та виберіть файл, який потрібно вставити.