Pliki cookie pomagają nam dostarczać nasze usługi. Korzystając z naszych usług, zgadzasz się na nasze pomocą plików cookie.
Wskazówka: inne języki są tłumaczone przez Google. Możesz odwiedzić English wersja tego linku.
Zaloguj Się
x
or
x
x
Zarejestruj
x

or

Jak zapisać tylko określony (excel) załącznik w Outlooku?

Program Outlook udostępnia funkcję Zapisz wszystkie załączniki, aby szybko zapisać wszystkie załączniki wiadomości e-mail w określonym folderze jednocześnie. Jeśli jednak chcesz zapisać tylko określony typ załącznika w wiadomości e-mail, taki jak załącznik Excel, dokument Word itd., Co możesz zrobić, aby go osiągnąć? Tutaj dostarczamy metodę VBA, aby rozwiązać problem.

Zapisz tylko określony załącznik w Outlooku


Z łatwością zapisuj wszystkie załączniki z wielu wybranych e-maili do folderu:

Z Odłącz wszystkie załączniki użyteczność Kutools dla programu Excel, możesz łatwo zapisać wszystkie załączniki z wielu wybranych e-maili do określonego folderu w Outlooku, jak pokazano poniżej.

Kutools dla programu Outlook: dzięki ponad 40owi przydatnym dodatkom Outlook, możesz wypróbować bez ograniczeń w 45 dniach. Pobierz i bezpłatnie wersję próbną!

Kutools dla programu Outlook: 100 + Nowe narzędzia zaawansowane dla programu Outlook.
Karta Office: Włącz edycję na kartach i przeglądanie w pakiecie OfficePodobnie jak Chrome, Firefox, IE 8 / 9 / 10.
Klasyczne menu: Przywróć stare menu i paski narzędzi do Office 2007, 2010, 2013, 2016 i 2019.

Zapisz tylko określony załącznik w Outlooku

Poniższy kod VBA może pomóc zapisać tylko określony załącznik w wiadomości e-mail lub wielu wiadomości e-mail do określonego folderu. Wykonaj następujące czynności.

1. Uruchom program Outlook, na liście adresowej wybierz wiadomość e-mail lub wiele wiadomości e-mail, z których chcesz zapisać określony załącznik.

2. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno. W oknie otwierającym kliknij wstawka > Moduł, a następnie skopiuj poniższy kod VBA do okna Module.

Kod VBA: Zapisz tylko określony załącznik w wiadomości e-mail lub wiele e-maili do folderu

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. kliknij Przybory > Referencje, W Referencje - Projekt dialog, sprawdź Microsoft Scripting Runtime i kliknij OK przycisk.

4. wciśnij F5 klucz do uruchomienia kodu. W wyskoczył Wyszukaj folder okno dialogowe, wybierz jeden folder, aby zapisać załączniki.

5. A następnie kliknij OK, w następującym Kutools dla programu Outlook W oknie dialogowym wpisz rozszerzenie pliku załącznika, który chcesz zapisać, i kliknij OK.

Następnie zapisywane są tylko określone załączniki.

Uwagi:

1. Jeśli chcesz zapisać inny typ załączników, wprowadź rozszerzenia plików w polu tekstowym i oddzielaj je przecinkami.

2. Po zapisaniu ścieżka zapisywania załącznika jest wyświetlana w treści wiadomości. Możesz otworzyć załącznik, klikając bezpośrednio hiperłącze.


Podobne artykuły:



Kutools dla programu Outlook

Więcej niż zaawansowane funkcje 100 dla programów Outlook 2010, 2013, 2016, 2019 i 365

screen shot kutools dla programu outlook tiny dla banera 201812

Więcej funkcji | Darmowe pobieranie | Tylko $ 39.00 dla setek funkcji

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.