Как переименовать и сохранить вложения электронного письма в папке в Outlook?
В Outlook вы обычно можете получать сообщения с вложениями, и пытаетесь ли вы переименовать вложения сообщения и сохранить их в папке, как показано ниже? Очевидно, вы можете сохранить их в папку и переименовывать их один за другим, но на самом деле у меня есть код VBA, который может быстро переименовать все вложения с одинаковым именем, а затем сохранить в одной папке.
Переименовать и сохранить вложения с тем же именем в папке
Переименуйте и сохраните вложения в папке с помощью Kutools for Outlook
Ответить на сообщение с исходными вложениями в Outlook
|
Как мы все знаем, прикрепленные вложения будут удалены из исходного сообщения, когда вы ответите на сообщение получателю в Outlook. Если вы хотите ответить на массаж с сохранением вложений, вы можете попробовать Kutools для Outlook's Ответить с вложением функция, он может отвечать на одно сообщение с оригинальными вложениями, а также работать со всеми сообщениями. Нажмите, чтобы получить полную версию 60-дневной бесплатной пробной версии! |
![]() |
Kutools for Outlook: с десятками удобных надстроек Outlook, попробуйте бесплатно без ограничений в течение 60 дней. |
- Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Множественные письма по правилам; Автоответчик без сервера обмена и дополнительных автоматических функций ...
- Предупреждение BCC - показывать сообщение при попытке ответить всем, если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
- Ответить (всем) со всеми вложениями в почтовой переписке; Отвечайте сразу на несколько писем; Автоматическое добавление приветствия при ответе; Автоматически добавлять дату и время в тему ...
- Инструменты для вложения: Автоотключение, Сжать все, Переименовать все, Автосохранение всех ... Быстрый отчет, Подсчет выбранных писем, Удаление повторяющихся писем и контактов ...
- Более 100 дополнительных функций будут решить большинство ваших проблем в Outlook 2021–2010 или Office 365. Полнофункциональная 60-дневная бесплатная пробная версия.
Переименовать и сохранить вложения с тем же именем в папке
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 флажок.
![]() |
![]() |
![]() |
4. Нажмите OK, нажмите F5 ключ для запуска кода, Просмотр папки появляется диалоговое окно для выбора или создания папки для размещения вложений.
5. Нажмите OK, затем дайте имя прикрепленным файлам.
6. Нажмите OK, теперь вложения переименовываются с тем же именем, если есть дубликаты, к дублирующимся будут добавлены номера в качестве суффикса.
Переименуйте и сохраните вложения в папке с помощью Kutools for Outlook
Собственно, особенность есть в Kutools для Outlook - удобный инструмент расширения Outlook может переименовывать все вложения перед сохранением или отправкой.
Kutools for Outlook , Тур включает:
100
мощные функции и инструменты для Microsoft Outlook 2016, 2013, 2010 и Office 365. |
||
Бесплатная установка Kutools for Outlook, а затем выполните следующие действия:
1. Активируйте электронную почту на панели уведомлений или в поле сообщения, как хотите, нажмите Кутулс > Инструменты для вложения > Переименовать все.
2. Во всплывающем диалоговом окне введите новое имя, которое вы используете для каждого вложения. Нажмите OK, вложения были переименованы с новыми именами.
3. Щелкните правой кнопкой мыши одно вложение, выберите Сохранить все вложения, нажмите OK и выберите папку для сохранения вложений по мере необходимости. Затем переименованные вложения были сохранены в папке.
Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!
- Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
- Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
- Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
- Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
- Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.





