Как да преименувам и запазвам прикачени файлове на имейл в папка в Outlook?

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

Преименувайте и запазвайте прикачени файлове със същото име в папка

Преименувайте и запазвайте прикачени файлове в папка с Kutools за Outlook

---

Отговор на съобщение с оригинални прикачени файлове в Outlook

Както всички знаем, прикачените прикачени файлове ще бъдат премахнати от оригиналното съобщение, когато отговаряте на съобщение до получателя в Outlook. Ако искате да отговорите на масаж със запазване на прикачени файлове, можете да опитате Kutools за Outlook's Отговорете с прикачен файл функция, тя може да отговори на едно съобщение с оригиналните прикачени файлове, също работи за всички messafe.    Кликнете за пълни функции 60 дни безплатен пробен период!

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

Преименувайте и запазвайте прикачени файлове със същото име в папка

1. Изберете съобщението, чиито прикачени файлове искате да запазите, и го преименувайте със същото име.

2. Натиснете Alt + F11 kEys, тогава в 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. кликване OK, Натиснете F5 ключ за изпълнение на кода, a Преглед за папка изскача диалогов прозорец за избор или създаване на папка за поставяне на прикачени файлове.

5. кликване OK, след което дайте име на прикачените файлове.

6. кликване OK, сега прикачените файлове се преименуват с едно и също име, ако има дубликати, дублиращите се ще бъдат добавени номера като суфикс.

Преименувайте и запазвайте прикачени файлове в папка с Kutools за Outlook

Всъщност има функция в Kutools за Outlook -- удобен инструмент за добавяне на Outlook може да преименува всички прикачени файлове преди записване или изпращане.

Безплатна инсталация Kutools за Outlook и след това направете стъпките по-долу:

1. Активирайте имейла в нативния панел или в полето Съобщение, както желаете, щракнете Kutools > Инструменти за прикачване > Преименуване на всички.

2. В изскачащия диалогов прозорец въведете новото име, което използвате за всеки прикачен файл. Кликнете OK, прикачените файлове са преименувани с нови имена.
 

3. Щракнете с десния бутон върху един прикачен файл, изберете Запазване на всички прикачени файлове, Щракнете върху OK и изберете папка, за да запазите прикачените файлове, както ви е необходимо. След това преименуваните прикачени файлове са записани в папка.
 

---

Най-добрите инструменти за продуктивност в офиса

Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook

🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...

📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP)  /  График за изпращане на имейли  /  Автоматично CC/BCC по правила при изпращане на имейл  /  Автоматично пренасочване (разширени правила)   /  Автоматично добавяне на поздрав   /  Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...

📨 Управление на Email: Лесно извикване на имейли  /  Блокиране на измамни имейли по теми и други  /  Изтриване на дублирани имейли  /  подробно търсене  /  Консолидиране на папки ...

📁 Прикачени файлове Pro: Пакетно запазване  /  Партидно отделяне  /  Партиден компрес  /  Автоматично запазване   /  Автоматично отделяне  /  Автоматично компресиране ...

🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони   /  Увеличете продуктивността на Outlook с изгледи с раздели  /  Минимизирайте Outlook, вместо да затваряте ...

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

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

Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.

Вижте повече       Безплатно сваляне      покупка