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

АвторSiluviaДата изменения2024-09-13

Когда необходимо вставить вложение в создаваемое письмо, обычно требуется последовательно нажать «Вставка» > «Вложить файл» > «Обзор этого компьютера», чтобы открыть диалоговое окно «Вставка файла», а затем найти и вставить нужный файл. В этом руководстве приведены два кода 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.

шаги открытия диалогового окна выбора файла для вставки вложения в 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. Оставьте макрос выделенным в правом списке и нажмите кнопку Изменить. В диалоговом окне Изменение кнопкиназначьте макросу новую кнопку и нажмите ОК.

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

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

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для удобной работы с электронной почтой: ответы, составление резюме, оптимизация, расширение, перевод и создание писем.

📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…

Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним щелчком! Не теряйте время — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook Скачать сейчас Перейти к покупке

🚀 Скачать одним щелчком — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним щелчком пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

✅Удобство одним щелчком: Скачайте все пять установочных пакетов за одно действие.
🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете ⬇ Скачать пакет 💳 Приобрести пакет