Как переименовать и сохранить вложения из письма в папку в Outlook?
В Outlook вы, как правило, получаете сообщения с вложениями. Пробовали ли вы переименовать вложения письма и сохранить их в папку, как показано на снимке экрана ниже? Конечно, можно сохранять их по одному и переименовывать вручную — но у меня есть код VBA, который мгновенно присвоит всем вложениям одно и то же имя и сохранит их в указанную папку.
Переименование и сохранение вложений под одним именем в папку
Переименование и сохранение вложений в папку с помощью Kutools для Outlook
Переименование и сохранение вложений под одним именем в папку
1. Выберите сообщение, вложения которого нужно сохранить и переименовать одинаково.
2. Нажмите клавиши «Alt» + «F11» , затем в области «Project1» дважды щёлкните по «ThisOutlookSession», чтобы открыть пустой сценарий в правой части окна, и вставьте туда приведённый код.
VBA: Переименование и сохранение вложений
Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object 'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xAttachment.SaveAsFile xFilePath
Set xFile = xFSO.GetFile(xFilePath)
xCount = 1
Saved = False
xExt = "." & xFSO.GetExtensionName(xFilePath)
xTmpName = xNewName
xNewName = xTmpName & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Else
xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
While Saved = False
xNewName = xTmpName & xCount & xExt
If xFSO.FileExists(xSaveFolder & xNewName) = False Then
xFile.Name = xNewName
xNewName = xTmpName
Saved = True
Else
xCount = xCount + 1
End If
Wend
End If
Next
Next
Set xFSO = Nothing
End Sub
3. Выберите «Сервис» > «Ссылки», а в появившемся диалоговом окне установите флажок «Microsoft Script Runtime».
 |  |  |
4. Нажмите «ОК» и запустите код, нажав клавишу F5. После этого откроется диалоговое окно «Обзор папок», в котором можно выбрать или создать папку для сохранения вложений.
5. Нажмите кнопку ОК, а затем задайте имя для вложений.
6. Нажмите «ОК». Теперь все вложения получат одинаковые имена, а при обнаружении дубликатов к их названиям автоматически добавятся порядковые номера в качестве суффиксов.
Ответ на сообщение с исходными вложениями в Outlook |
| Как известно, вложения автоматически удаляются из исходного сообщения при ответе получателю в Outlook. Если вы хотите отправить ответ с сохранением вложений, воспользуйтесь функцией Kutools для Outlook's «Ответ с вложением», которая позволяет отвечать на одно сообщение с исходными вложениями и работает со всеми сообщениями.Нажмите для бесплатной 30-дневной пробной версии со всеми функциями! |
 |
| Kutools для Outlook: десятки удобных надстроек для Outlook, которые можно бесплатно и без ограничений протестировать в течение 30 дней. |
Переименование и сохранение вложений в папку с помощью Kutools для Outlook
На самом деле, в надстройке «Kutools для Outlook» — удобном дополнении к Outlook — есть функция, позволяющая переименовывать все вложения перед сохранением или отправкой.
Установите бесплатно Kutools для Outlook и выполните следующие действия:
1. Активируйте нужное письмо в области просмотра или в окне сообщения, затем выберите «Kutools» → «Инструменты вложений» → «Переименовать все».
2. В появившемся диалоговом окне введите новое имя, которое будет присвоено каждому вложению, и нажмите «ОК» — все вложения будут переименованы с использованием этого имени.
3. Щёлкните правой кнопкой мыши по любому вложению, выберите «Сохранить все вложения», нажмите «ОК» и укажите папку для сохранения вложений по вашему усмотрению. Переименованные вложения будут сохранены в эту папку.
Лучшие инструменты для повышения продуктивности в 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