Как переименовать вложения в окне Outlook без сохранения на диск?
Для вложений полученного сообщения электронной почты вы можете захотеть переименовать эти вложения, чтобы их было легко распознать в будущей работе. На самом деле в Outlook нет встроенной функции, позволяющей напрямую переименовывать вложения в окне Outlook, не сохраняя их на диск. В этой статье мы покажем вам способы переименования вложений в Outlook.
Автоматически сохранять и переименовывать вложения с кодом VBA в Outlook
Легко переименовывайте вложения в электронной почте без сохранения на диск с помощью Kutools for Outlook
Сохранять и переименовывать вложения с кодом VBA в Outlook
В этом разделе мы предоставим код VBA для автоматического сохранения вложений выбранного письма. После сохранения вы можете увидеть, что дата последнего изменения вложений была добавлена в качестве префикса к исходным именам вложений. Пожалуйста, сделайте следующее.
1. в Документы папку, создайте новую папку с именем Вложения для сохранения и переименования вложений выбранного письма.
2. Выберите электронное письмо с вложениями, которые вы хотите сохранить, и переименуйте с измененными датами.
3. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, а затем вставьте ниже код VBA в окно модуля.
Код VBA: сохранить вложения и добавить дату изменения перед именем файла
Public Sub saveattachmentsadddate()
Dim itm As Outlook.MailItem
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim fso As Object
Dim oldName
Dim file As String
Dim DateFormat As String
Dim newName As String
Dim enviro As String
enviro = CStr(Environ("USERPROFILE"))
saveFolder = enviro & "\Documents\Attachments\"
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each itm In Selection
For Each objAtt In itm.Attachments
file = saveFolder & objAtt.DisplayName
objAtt.SaveAsFile file
'Get the file name
Set oldName = fso.GetFile(file)
DateFormat = Format(oldName.DateLastModified, "yyyy-mm-dd ")
newName = DateFormat & objAtt.DisplayName
oldName.Name = newName
Set objAtt = Nothing
Next
Next
Set fso = Nothing
End Sub4. нажмите F5 ключ для запуска кода, и вложения в выбранном электронном письме сохраняются в папке "\ Документы \ Приложения \" и дата последнего изменения вложений была автоматически добавлена в качестве префикса к исходным именам вложений.
Заметки:
Легко переименовывайте вложения в электронной почте без сохранения на диск с помощью Kutools for Outlook
Здесь настоятельно рекомендуется Переименовать вложения особенность Kutools for Outlook. С помощью этой функции вы можете напрямую переименовывать вложения в окне Outlook без сохранения на диск.
Kutools for Outlook : с более чем 100 удобными надстройками Outlook, бесплатно без ограничений в течение 60 дней.
1. После установки Kutools for Outlook, выберите электронное письмо, вложения которого вы переименуете, а затем нажмите Кутулс > Инструменты для вложения > Переименовать все.
2. в Вложения переименовать диалоговое окно, вы можете увидеть, что имена всех вложений выбранного адреса электронной почты перечислены в Фамилия столбец. Дважды щелкните имя вложения для редактирования, а затем щелкните значок OK чтобы сохранить изменения.
Советы: Вы можете изменить все имена вложений или просто изменить любое из имен вложений, как вам нужно, в диалоговом окне.
Затем вложения переименовываются в выбранном окне электронной почты.
Внимание: Вы можете переименовать определенное вложение, выбрав его в области чтения, нажав Кутулс > Переименовывать, в диалоговом окне переименования введите новое имя в поле Фамилия поле, а затем щелкнув OK кнопку, чтобы сохранить его. Смотрите скриншот:
Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.
Статьи по теме:
- Как сохранить все вложения из нескольких писем в папку в Outlook?
- Как сохранить вложения при ответе в Outlook?
- Как удалить все вложения из электронной почты в Outlook?
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.
