Как переименовать и сохранить вложения электронного письма в папке в Outlook?

В Outlook вы обычно можете получать сообщения с вложениями, и пытаетесь ли вы переименовать вложения сообщения и сохранить их в папке, как показано ниже? Очевидно, вы можете сохранить их в папку и переименовывать их один за другим, но на самом деле у меня есть код VBA, который может быстро переименовать все вложения с одинаковым именем, а затем сохранить в одной папке.

Переименовать и сохранить вложения с тем же именем в папке

Переименуйте и сохраните вложения в папке с помощью Kutools for Outlook

---

Ответить на сообщение с исходными вложениями в Outlook

Как мы все знаем, прикрепленные вложения будут удалены из исходного сообщения, когда вы ответите на сообщение получателю в Outlook. Если вы хотите ответить на массаж с сохранением вложений, вы можете попробовать Kutools for Outlook's Ответить с вложением функция, он может отвечать на одно сообщение с оригинальными вложениями, а также работать со всеми сообщениями.    Нажмите, чтобы получить полную версию 60-дневной бесплатной пробной версии!

Kutools for Outlook: с десятками удобных надстроек Outlook, попробуйте бесплатно без ограничений в течение 60 дней.

Переименовать и сохранить вложения с тем же именем в папке

1. Выберите сообщение, вложения которого вы хотите сохранить, и переименуйте его с тем же именем.

2. Нажмите Alt + F11кэйс, то в Project1 панель, дважды щелкните Эта сессия Outlook чтобы создать новый пустой скрипт в правом разделе, затем скопируйте и вставьте в него код.

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 for Outlook - удобный инструмент расширения Outlook может переименовывать все вложения перед сохранением или отправкой.

Бесплатная установка Kutools for Outlook, а затем выполните следующие действия:

1. Активируйте электронную почту на панели уведомлений или в поле сообщения, как хотите, нажмите Кутулс > Инструменты для вложения > Переименовать все.

2. Во всплывающем диалоговом окне введите новое имя, которое вы используете для каждого вложения. Нажмите OK, вложения были переименованы с новыми именами.
 

3. Щелкните правой кнопкой мыши одно вложение, выберите Сохранить все вложения, нажмите OK и выберите папку для сохранения вложений по мере необходимости. Затем переименованные вложения были сохранены в папке.
 

---

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения Pro: Пакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      Купите