Как получить список информации о вложениях в выбранном письме Outlook?
Если во входящих письмах есть вложения, иногда бывает полезно узнать о них подробную информацию — например, отображаемое имя или имя файла. На самом деле, с помощью VBA-кода можно легко получить список данных обо всех вложениях в текущем выбранном письме Outlook. Подробнее — в руководстве ниже.
Получение списка информации о вложениях в выбранном письме в Outlook
- Повысьте продуктивность работы с электронной почтой с помощью технологий ИИ — быстро отвечайте на письма, создавайте новые сообщения, переводите тексты и работайте ещё эффективнее.
- Автоматизируйте отправку писем с помощью Авто Копия/Скрытая копия и Автоматическое перенаправление по правилам; отправляйте Автоответ («Нет на месте») — без необходимости использовать сервер Exchange…
- Получайте напоминания, такие как Предупреждать при ответе на электронное письмо, в котором я указан в поле BCC — когда вы отвечаете всем, находясь в скрытой копии (BCC), а также Напоминание о пропущенных вложениях — если вы забыли прикрепить файлы…
- Повысьте эффективность работы с электронной почтой с помощью Ответ с вложениями (все), автоматического добавления приветствия или даты и времени в подпись или тему письма, Ответ на несколько писем сразу…
- Оптимизируйте работу с электронной почтой с помощью Отозвать письмо, Инструменты вложений(Сжать все, Автосохранение всех…),Удалить дубликаты и Быстрый отчет…
Получение списка информации о вложениях в выбранном письме в Outlook
1. Выберите письмо с вложениями, о которых вы хотите получить информацию.
2. Нажмите на клавиатуре сочетание клавиш Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
3. Затем дважды щёлкните по элементу Project1 > Microsoft Outlook Object > ThisOutlookSession, чтобы открыть окно Project1 – ThisOutlookSession. См. скриншот:
4. Затем скопируйте приведённый ниже код VBA и вставьте его в окно Project1 – ThisOutlookSession.
Код VBA: получение списка информации о вложениях
Option Explicit
Public Sub GetAttachmentList()
Dim selItem As Object
Dim aMail As MailItem
Dim aAttach As attachment
Dim Report As String
For Each selItem In Application.ActiveExplorer.Selection
If selItem.Class = olMail Then
Set aMail = selItem
For Each aAttach In aMail.Attachments
Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
Report = Report & GetAttachmentInfo(aAttach)
Next
Call CreateReportEmail("Attachment Report", Report)
End If
Next
End Sub
Public Function GetAttachmentInfo(attachment As attachment)
Dim Report
GetAttachmentInfo = ""
Report = Report & "Index: " & attachment.Index & vbCrLf
Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
Report = Report & "File Name: " & attachment.FileName & vbCrLf
Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
Report = Report & "Path Name: " & attachment.PathName & vbCrLf
Report = Report & "Position: " & attachment.Position & vbCrLf
Report = Report & "Size: " & attachment.Size & vbCrLf
Report = Report & "Type: " & attachment.Type & vbCrLf
GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
Dim aMail As MailItem
Set aMail = Application.CreateItem(olMailItem)
aMail.Subject = Title
aMail.Body = Report
aMail.Display
End Sub 5. Нажмите клавишу F5 на клавиатуре, чтобы запустить код VBA.
6. Теперь появится диалоговое окно Макросы. Нажмите кнопку Выполнить.
7. После нажатия кнопки Выполнить в диалоговом окне Макросы появится новое окно сообщения, в котором отобразится вся информация о вложениях выбранного письма. См. скриншот:
Примечание: Данный код VBA можно использовать в Outlook 2007, 2010 и 2013
Лучшие инструменты для повышения продуктивности в Office
Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!
📧Автоматизация работы с электронной почтой: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…
📨Управление электронной почтой: Отозвать письмо / Блокировка спама по теме и другим признакам / Удаление дубликатов писем / Расширенный поиск / Организация папок…
📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…
🌟Волшебство интерфейса: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных входящих письмах / Сворачивание Outlook вместо закрытия…
👍Чудеса одним щелчком: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…
👩🏼🤝👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные группы / Удаление напоминания о дне рождения…
Используйте Kutools на вашем любимом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!
🚀 Скачать одним щелчком — Получите все надстройки для 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