Note: The other languages of the website are Google-translated. Back to English

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

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


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

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

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

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

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

2 В Microsoft Visual Basic для додатків вікна, натисніть інструменти > література, потім перевірте Виконання сценаріїв 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, додається до Панель швидкого доступу. Під час створення електронного листа, якщо ви хочете вставити вкладення, ви можете просто натиснути цю кнопку, щоб відкрити перегорнути папку та виберіть файл, який потрібно вставити.


Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця