Як зберегти лише конкретні (Excel) вкладення в Outlook?
Outlook надає функцію «Зберегти всі вкладення», щоб допомогти вам одночасно зберігати всі вкладення в електронному листі до певної папки. Однак якщо ви хочете зберегти лише певні типи вкладень в одному або кількох електронних листах, наприклад, робочі книги Excel, документи Word тощо, як цього досягти? У цьому підручнику ми пропонуємо вам два способи вирішення цієї проблеми.
Зберігайте лише вкладені файли певного формату в Outlook за допомогою коду VBA
Легко зберігайте лише вкладені файли певного формату в Outlook за допомогою дивовижного інструменту
Зберігайте лише вкладені файли певного формату в Outlook за допомогою коду VBA
Наступний код VBA може допомогти зберегти лише вкладені файли певного формату в одному або кількох вибраних електронних листах до певної папки. Будь ласка, зробіть наступне.
1. Запустіть Outlook. У списку Пошта виберіть один або кілька листів, з яких потрібно зберегти лише вкладення у певному форматі файлу.
2 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікно. У вікні, що відкриється, натисніть Insert > Модулі, а потім скопіюйте код VBA у вікно модуля.
Код VBA: Збережіть у папці лише певний вкладення в електронному листі чи декількох електронних листах
Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
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
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
If xItem.Class = olMail Then
xFilesSavePath = ""
For Each xAttachment In xItem.Attachments
xFilePath = xSaveFolder & xAttachment.FileName
xExt = "." & xFSO.GetExtensionName(xFilePath)
xExtArr = VBA.Split(xExtStr, ",")
xS = VBA.Filter(xExtArr, xExt)
If UBound(xS) > -1 Then
xAttachment.SaveAsFile xFilePath
If xItem.BodyFormat <> olFormatHTML Then
xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xFilesSavePath = xFilesSavePath & "
" & "" & xFilePath & ""
End If
End If
Next
xItem.Save
End If
Next
Set xFSO = Nothing
End Sub
3. клацання Tools > посилання, В Список літератури - Проект діалогове вікно, перевірте Виконання сценаріїв Microsoft і натисніть на OK кнопки.
4 Натисніть кнопку F5 клавіша для запуску коду. В вискочив Знайдіть папку діалоговому вікні, виберіть одну папку, щоб зберегти вкладення.
5. А потім натисніть OK, у наступному Kutools для Outlook діалогове вікно, введіть у текстове поле розширення файлу вкладення, яке ви збережете, і натисніть OK.
Примітка. Для кількох розширень файлів потрібно розділяти їх комами.
Тоді зберігаються лише вказані вкладення.
Легко зберігайте лише вкладені файли певного формату в Outlook за допомогою дивовижного інструменту
Якщо ви новачок у VBA, ми рекомендуємо вам скористатися Зберегти всі вкладення особливість Kutools для Outlook. За допомогою цієї функції ви можете легко зберігати в Outlook лише вкладені файли в певному форматі.
1. Виберіть електронні листи, з яких потрібно зберігати лише вкладення у певному форматі файлу.
2. клацання Кутулс > Інструменти кріплення > Зберегти все.
3 В зберегти налаштування діалогове вікно, вам потрібно налаштувати наступним чином.
4. З'явиться діалогове вікно з нагадуванням, якщо ви хочете зберегти вкладення, натисніть OK продовжувати.
5. Потім з'явиться інше діалогове вікно, щоб повідомити, скільки вкладень було збережено, натисніть кнопку OK кнопки.
Тепер зберігаються лише вкладені файли певного формату.
Натисніть тут щоб дізнатися більше про цю функцію.
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Статті по темі:
- Як зберегти всі вкладення з електронних повідомлень в Outlook?
- Як видалити всі вкладення з електронної пошти в Outlook?
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.