Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

Как да запазя само специален (excel) прикачен файл в Outlook?

Outlook предоставя функция "Запиши всички прикачени файлове", за да можете бързо да запазвате всички прикачени файлове в имейл директно в конкретна папка. Ако обаче искате да запазите само специален тип прикачен файл в имейл, като прикачен файл в Excel, Word документ и т.н., какво можете да направите, за да го постигнете? Тук ние предлагаме метод VBA за решаване на проблема.

Запишете само конкретен прикачен файл в Outlook


Лесно запазете всички прикачени файлове от няколко избрани имейла в папка:

С Отворете всички прикачени файлове полезност на Kutools за Excel, лесно можете да запишете всички прикачени файлове от няколко избрани имейла до определена папка в Outlook, както е показано на екрана.

Kutools за Outlook: с повече от 40 удобни добавки за Outlook, свободни да опитате без ограничение в 45 дни. Изтеглете и безплатна пробна версия сега!

Kutools за Outlook: 100 + Нови разширени инструменти за Outlook.
Таб на Office: Активиране на редактиране и сърфиране в раздела с папки в Office, Точно като Chrome, Firefox, IE 8 / 9 / 10.
Класическо меню: Носете стари менюта и ленти с инструменти към Office 2007, 2010, 2013, 2016 и 2019.

Запишете само конкретен прикачен файл в Outlook

По-долу кодът VBA може да ви помогне да запазите само конкретен прикачен файл в имейл или няколко имейла в конкретна папка. Моля, направете следното.

1. Стартирайте Outlook, в пощенския списък, изберете имейл или множество имейли, от които ще запазите конкретен прикачен файл.

2. Натисни Друг + 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 разширени функции за Outlook 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.