Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як зберегти в Outlook лише конкретне (вкладене) вкладення?

Outlook надає функцію Зберегти всі вкладення, щоб Ви могли швидко зберігати всі вкладення в електронному листі одночасно до певної папки. Однак якщо ви хочете зберегти в електронному листі лише певний тип вкладення, наприклад, вкладення Excel, документ Word тощо, що ви можете зробити для його досягнення? Тут ми пропонуємо метод VBA для вирішення проблеми.

Збережіть лише певний вкладення в Outlook


Легко зберігайте всі вкладення з декількох вибраних електронних листів у папку:

З Від'єднайте всі вкладення корисність Kutools для Excel, Ви можете легко зберегти всі вкладення з декількох вибраних електронних листів до вказаної папки в Outlook, як показано на знімку екрана.

Kutools для Outlook: з більш ніж 40 зручними надбудовами Outlook, спробуйте безкоштовно без обмежень протягом 45 днів. Завантажте та безкоштовно пробну версію зараз!

Вкладка Office - увімкніть редагування та перегляд вкладок в Office та значно спростіть роботу ...
Kutools для Outlook - приносить 100 потужних розширених функцій для Microsoft Outlook
  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів за правилами; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показувати повідомлення, коли ви намагаєтесь відповісти всім, якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями у поштовій розмові; Відповідайте на багато електронних листів одночасно; Автоматично додавати привітання при відповіді; Автоматичне додавання дати та часу до теми ...
  • Інструменти кріплення: Автоматичне від'єднання, стиснення всіх, перейменування всіх, автоматичне збереження всіх ... Швидкий звіт, Підрахувати вибрані листи, Видалення повторюваних листів та контактів ...
  • Більше 100 вдосконалених функцій вирішити більшість своїх проблем в Outlook 2010-2019 та 365. Повна функція 60-денної безкоштовної пробної версії.

Збережіть лише певний вкладення в Outlook

Наведений нижче код VBA може допомогти зберегти лише певні вкладення в електронному листі чи декількох електронних листах до певної папки. Будь ласка, виконайте наступне.

1. Запустіть Outlook, у списку розсилки виберіть електронний лист або кілька електронних листів, з яких ви збережете конкретний вкладення.

2 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікно. У вікні, що відкриється, натисніть Insert > Модулі, а потім скопіюйте код VBA у вікно модуля.

Код VBA: Збережіть у папці лише певний вкладення в електронному листі чи декількох електронних листах

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
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 & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. клацання інструменти > посилання, В Список літератури - Проект діалогове вікно, перевірте Виконання сценаріїв Microsoft і натисніть на OK кнопки.

4 Натисніть кнопку F5 клавіша для запуску коду. В вискочив Знайдіть папку діалоговому вікні, виберіть одну папку, щоб зберегти вкладення.

5. А потім натисніть OK, у наступному Kutools для Outlook діалогове вікно, введіть у текстове поле розширення файлу вкладення, яке ви збережете, і натисніть OK.

Тоді зберігаються лише вказані вкладення.

примітки:

1. Якщо ви хочете зберегти вкладення різного типу, введіть розширення файлів у текстове поле та розділіть їх комами.

2. Після збереження на тілі повідомлення відображається шлях збереження вкладення. Ви можете відкрити вкладення, натиснувши гіперпосилання безпосередньо.


Статті по темі:


Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.