Как вывести список всех имен вложений в текст письма при составлении электронной почты в Outlook?
Есть ли у нас какие-либо хорошие способы вставить все имена вложений в текст письма при создании электронного письма в 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
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
4. После этого нажмите Tools > References в окне Microsoft Visual Basic for Applications, в появившемся диалоговом окне References-Project1 установите флажок Microsoft Word Object Library из списка Available References, см. скриншот:
![]() | ![]() | ![]() |
5. Нажмите OK, чтобы закрыть диалоговое окно, затем вам нужно добавить кнопку макроса на Панель быстрого доступа. В новом окне сообщения выберите More Commands из выпадающего меню Customize Quick Access Toolbar, см. скриншот:
6. В диалоговом окне Outlook Options выполните следующие действия:
(1.) Выберите Macros из выпадающего списка Choose commands from;
(2.) Щелкните имя макроса, которое вы только что вставили;
(3.) Затем нажмите кнопку Add, чтобы добавить макрос на Панель быстрого доступа.
7. Затем нажмите OK, чтобы закрыть диалоговое окно, теперь кнопка макроса была добавлена на Панель быстрого доступа, см. скриншот:
8. Теперь, когда вы создаете новое сообщение и нажимаете кнопку макроса, имена вложений будут вставлены над текстом письма, как показано на следующем скриншоте:
Вывод всех имен вложений в текст письма при написании электронной почты с помощью простой функции
Может быть, приведенный выше код немного сложен для вас, если у вас есть Kutools для Outlook, с его функцией Copy Names, вы можете быстро копировать имена вложений сообщения и вставлять их куда угодно.
После установки Kutools для Outlook, пожалуйста, сделайте следующее:
1. Сначала создайте новое электронное письмо, которое вам нужно, а затем нажмите Kutools > Copy Names в новом окне Message, см. скриншот:
2. Затем появится всплывающее окно, которое сообщит вам, что имена вложений были скопированы в буфер обмена, см. скриншот:
3. Теперь вам просто нужно нажать клавиши Ctrl + V вместе, чтобы вставить имена вложений в текст письма, см. скриншот:
Больше связанных статей:
- Ответить всем с оригинальными вложениями в Outlook
- Обычно, когда вы применяете функцию Reply All для ответа на сообщение всем получателям в Outlook, оригинальные вложения автоматически теряются. Возможно ли прикрепить оригинальные вложения при ответе всем в Outlook?
- Скачивание/сохранение вложений из Outlook в определенную папку
- В общем, вы можете сохранить все вложения одного письма, нажав Attachments > Save All Attachments в Outlook. Но если вам нужно сохранить все вложения из всех полученных и входящих писем, есть идея? Эта статья представит два решения для автоматической загрузки вложений из Outlook в определенную папку.
- Изменение расположения сохранения вложений по умолчанию в Outlook
- Устали каждый раз искать указанное место хранения вложений при запуске Outlook? В этом руководстве мы покажем вам, как изменить расположение сохранения вложений по умолчанию. После этого указанный каталог для сохранения вложений будет открываться автоматически каждый раз, когда вы сохраняете вложения, даже после перезапуска Outlook.
- Удаление всех вложений из письма в Outlook
- Обычно, просматривая письмо, вы можете удалить вложение, щелкнув правой кнопкой мыши и выбрав пункт Удалить вложение. Иногда в одном письме может быть много вложений, и удалять их по одному будет утомительно. Здесь мы предлагаем вам два простых способа удалить все вложения из одного письма, а также из нескольких писем в Outlook.
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Kutools для Outlook запускает бесплатную версию!
Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...

