Печыва дапамагчы нам даставіць нашы паслугі. Карыстаючыся нашымі паслугамі, Вы згаджаецеся на выкарыстанне намі печыва.
Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як захаваць толькі канкрэтныя (Excel) ўкладанні ў Outlook?

Перспектывы прадастаўляе захаваць усе прыкладання функцыі для хутка захаваць усе ўкладанні ў паведамленне электроннай пошты ў пэўную тэчку адразу. Тым не менш, калі вы хочаце захаваць толькі пэўны тып ўкладанні ў электроннай пошце, напрыклад, прыкладанне Excel, дакумент Word, і гэтак далей, што вы можаце зрабіць, каб дасягнуць гэтага? Тут мы прапануем метад VBA для вырашэння гэтай праблемы.

Захаваць толькі канкрэтнае ўкладанне ў Outlook,


Лёгка захаваць усе ўкладанні з некалькіх выбраных лістоў у тэчку:

З Аддзяліць Усе ўкладанні карыснасць Kutools для Excel, Вы можаце лёгка захаваць усе ўкладанні з некалькіх выбраных паведамленняў электроннай пошты ў паказаную тэчку ў Outlook, як паказана ніжэй паказаў скрыншот.

Kutools для Outlook,: З больш чым 40 зручнага Outlook, надбудовы, бясплатна паспрабаваць без якіх-небудзь абмежаванняў у 45 дзён. Спампаваць і бясплатную пробную версію зараз!

Kutools для Outlook,: 100 + New Advanced Tools для Outlook.
ўкладка Упраўленне: Ўключыць укладкамі Рэдагаванне і прагляду ў Бюро, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Прынясіце Старое меню і панэлі інструментаў Назад у офіс 2007, 2010, 2013, 2016 і 2019.

Захаваць толькі канкрэтнае ўкладанне ў Outlook,

Ніжэй VBA кода можа дапамагчы захаваць толькі канкрэтныя ўкладанні ў электроннай пошце ці некалькі лістоў у вызначанай тэчцы. Калі ласка, зрабіце наступнае.

1. Запусціце свой прагноз, у спісе рассылання, абярыце адрас электроннай пошты ці некалькі лістоў вы будзеце захоўваць пэўную прыхільнасць с.

2. націсніце Alt + F11 ключы, каб адкрыць Microsoft Visual Basic для прыкладанняў акно. У якое адкрылася акне націсніце кнопку Уставіць > Модулі, А затым скапіяваць ніжэй 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 Scripting час выканання поле і націсніце OK кнопкі.

4. націсніце F5 ключ для запуску кода. У выскачыў прагляд тэчак дыялогавае акно, выберыце адну тэчку для захавання укладанняў.

5. І затым, націсніце OK, У наступным Kutools для Outlook, дыялогавае акно, увядзіце пашырэнне файла ўкладання вы зэканоміце у тэкставым полі і націсніце OK.

Тады толькі спецыфікаваных ўкладання захоўваюцца.

нататкі:

1. Калі вы хочаце захаваць іншы тып укладанняў, калі ласка, увядзіце пашырэнне файла ў тэкставым полі і падзяліўшы іх коскай.

2. Пасля захавання ўкладання шлях для захавання адлюстроўваецца на целе паведамлення. Вы можаце адкрыць прыкладанне, націснуўшы на спасылку непасрэдна.


Артыкулы па тэме:



Kutools для Outlook,

Больш 100 Пашыраныя функцыі для Перспектывы 2010, 2013, 2016, 2019 і 365

здымак экрана kutools для перспектывы маленечкага для банэра 201812

дадатковыя магчымасці | спампаваць | Толькі $ 39.00 сотні функцый

Say something here...
symbols left.
You are guest ( Sign Up? )
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.