Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Siluvia Last modified

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

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

Код 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. Нажмите Главная > Новое письмо, чтобы создать новое письмо. В окне сообщения нажмите Настройка панели быстрого доступа > Другие команды.

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

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

6.1) В раскрывающемся списке Выбрать команды из выберите Макросы;
6.2) Выберите макрос, который вы добавили на предыдущем шаге;
6.3) Нажмите кнопку Добавить, чтобы добавить этот макрос в поле Настройка панели быстрого доступа.
steps of opening the file dialog box to insert an attachment in outlook

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

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

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

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

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

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

Срочные новости: бесплатная версия Kutools для Outlook уже доступна!

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

🤖 Kutools AI : Использует передовые технологии искусственного интеллекта для легкой работы с Email — включая Ответ, Резюме, Оптимизацию, Расширение, Перевод и Составление писем.

📧 Автоматизация Email: Автоответчик (Доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Авторазделение Email с несколькими получателями на отдельные письма ...

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

📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...

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

👍 Удобные функции одним кликом: Ответить всем с вложениями / Антифишинговая Email / 🕘Показать часовой пояс отправителя ...

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

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

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

kutools for outlook features1 kutools for outlook features2

🚀 Скачайте все дополнения Office одним кликом

Рекомендуем: Kutools для Office (5-в-1)

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

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