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

Как вывести список всех имен вложений в текст письма при составлении электронной почты в Outlook?

Author: Xiaoyang Last Modified: 2025-06-05

Есть ли у нас какие-либо хорошие способы вставить все имена вложений в текст письма при создании электронного письма в Outlook? В этой статье я расскажу, как решить эту задачу в Outlook.

Вывод всех имен вложений в текст письма при написании электронной почты с помощью кода VBA

Вывод всех имен вложений в текст письма при написании электронной почты с помощью простой функции


Вывод всех имен вложений в текст письма при написании электронной почты с помощью кода VBA

Пожалуйста, выполните следующие шаги для завершения этой задачи:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щелкните ThisOutlookSession в панели Project1(VbaProject.OTM), чтобы открыть модуль, затем скопируйте и вставьте следующий код в пустой модуль.

Код VBA: Вывести все имена вложений в текст письма:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

doc-list-attaches-into-message-1

3. Затем продолжайте нажимать Insert > Module, скопируйте и вставьте приведенный ниже код в открытый пустой модуль, см. скриншот:

Код VBA: Вывести все имена вложений в текст письма:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

doc-list-attaches-into-message-2

4. После этого нажмите Tools > References в окне Microsoft Visual Basic for Applications, в появившемся диалоговом окне References-Project1 установите флажок Microsoft Word Object Library из списка Available References, см. скриншот:

doc-list-attaches-into-message-3 arrow doc-list-attaches-into-message-4

5. Нажмите OK, чтобы закрыть диалоговое окно, затем вам нужно добавить кнопку макроса на Панель быстрого доступа. В новом окне сообщения выберите More Commands из выпадающего меню Customize Quick Access Toolbar, см. скриншот:

doc-list-attaches-into-message-5

6. В диалоговом окне Outlook Options выполните следующие действия:

(1.) Выберите Macros из выпадающего списка Choose commands from;

(2.) Щелкните имя макроса, которое вы только что вставили;

(3.) Затем нажмите кнопку Add, чтобы добавить макрос на Панель быстрого доступа.

doc-list-attaches-into-message-6

7. Затем нажмите OK, чтобы закрыть диалоговое окно, теперь кнопка макроса была добавлена на Панель быстрого доступа, см. скриншот:

doc-list-attaches-into-message-7

8. Теперь, когда вы создаете новое сообщение и нажимаете кнопку макроса, имена вложений будут вставлены над текстом письма, как показано на следующем скриншоте:

doc-list-attaches-into-message-8


Вывод всех имен вложений в текст письма при написании электронной почты с помощью простой функции

Может быть, приведенный выше код немного сложен для вас, если у вас есть Kutools для Outlook, с его функцией Copy Names, вы можете быстро копировать имена вложений сообщения и вставлять их куда угодно.

Kutools для Outlook: Получите доступ к более чем 100 важным и продвинутым функциям! Более 70 функций доступны бесплатно. Скачайте и опробуйте бесплатную версию уже сегодня!

После установки Kutools для Outlook, пожалуйста, сделайте следующее:

1. Сначала создайте новое электронное письмо, которое вам нужно, а затем нажмите Kutools > Copy Names в новом окне Message, см. скриншот:

doc-list-attaches-into-message-9

2. Затем появится всплывающее окно, которое сообщит вам, что имена вложений были скопированы в буфер обмена, см. скриншот:

doc-list-attaches-into-message-10

3. Теперь вам просто нужно нажать клавиши Ctrl + V вместе, чтобы вставить имена вложений в текст письма, см. скриншот:

doc-list-attaches-into-message-11


Больше связанных статей:

  • Ответить всем с оригинальными вложениями в Outlook
  • Обычно, когда вы применяете функцию Reply All для ответа на сообщение всем получателям в Outlook, оригинальные вложения автоматически теряются. Возможно ли прикрепить оригинальные вложения при ответе всем в Outlook?
  • Скачивание/сохранение вложений из Outlook в определенную папку
  • В общем, вы можете сохранить все вложения одного письма, нажав Attachments > Save All Attachments в Outlook. Но если вам нужно сохранить все вложения из всех полученных и входящих писем, есть идея? Эта статья представит два решения для автоматической загрузки вложений из Outlook в определенную папку.
  • Изменение расположения сохранения вложений по умолчанию в Outlook
  • Устали каждый раз искать указанное место хранения вложений при запуске Outlook? В этом руководстве мы покажем вам, как изменить расположение сохранения вложений по умолчанию. После этого указанный каталог для сохранения вложений будет открываться автоматически каждый раз, когда вы сохраняете вложения, даже после перезапуска Outlook.
  • Удаление всех вложений из письма в Outlook
  • Обычно, просматривая письмо, вы можете удалить вложение, щелкнув правой кнопкой мыши и выбрав пункт Удалить вложение. Иногда в одном письме может быть много вложений, и удалять их по одному будет утомительно. Здесь мы предлагаем вам два простых способа удалить все вложения из одного письма, а также из нескольких писем в Outlook.

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

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

Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!

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

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

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

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

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

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

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

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

kutools for outlook features1 kutools for outlook features2