Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Rejestruję się  \/ 
x

or

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

Program Outlook udostępnia funkcję Zapisz wszystkie załączniki, która umożliwia szybkie zapisywanie wszystkich załączników w 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 programu Excel, dokument programu Word itp., Co możesz zrobić, aby to osiągnąć? Tutaj podajemy metodę VBA do rozwiązania problemu.

Zapisz tylko określony załącznik w Outlooku


Z łatwością zapisz 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 wiadomości e-mail do określonego folderu w Outlooku, jak pokazano poniżej.

Kutools dla programu Outlook: z ponad 40 przydatnymi dodatkami do Outlooka, które możesz wypróbować bez ograniczeń przez 45 dni. Pobierz i bezpłatną wersję próbną teraz!

Karta Office - Włącz edycję i przeglądanie w kartach w pakiecie Office i znacznie ułatw pracę ...
Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Microsoft Outlook
  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili według reguł; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy próbujesz odpowiedzieć wszystkim, jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie mailowej; Odpowiadaj na wiele e-maili jednocześnie; Automatyczne dodawanie powitania kiedy odpowiedz; Automatyczne dodawanie daty i godziny do tematu ...
  • Narzędzia załączników: Automatyczne odłączanie, kompresowanie wszystkiego, zmiana nazwy wszystkiego, automatyczne zapisywanie wszystkiego ... Szybki raport, Policz wybrane wiadomości, Usuń zduplikowane wiadomości e-mail i kontakty ...
  • Ponad 100 zaawansowanych funkcji rozwiąż większość swoich problemów w Outlooku 2010-2019 i 365. Pełne funkcje 60-dniowy bezpłatny okres próbny.

Zapisz tylko określony załącznik w Outlooku

Poniższy kod VBA może pomóc w zapisaniu tylko określonego załącznika w wiadomości e-mail lub wielu wiadomości e-mail w określonym folderze. Wykonaj następujące czynności.

1. Uruchom Outlooka, z listy mailingowej wybierz wiadomość e-mail lub wiele e-maili, z których zapiszesz określony załącznik.

2. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno. W otwartym oknie 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 wiadomości e-mail w folderze

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 - Project zaznacz Środowisko wykonawcze skryptów firmy Microsoft Microsoft i kliknij OK przycisk.

4. wciśnij F5 klucz do uruchomienia kodu. W wyskoczył Przeglądaj w poszukiwaniu folderu W oknie dialogowym wybierz jeden folder, aby zapisać załączniki.

5. A następnie kliknij OK, w następującym Kutools dla programu Outlook W oknie dialogowym wprowadź rozszerzenie pliku załącznika, który zapiszesz, w polu tekstowym 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 oddziel je przecinkami.

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


Podobne artykuły:


Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
  • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
  • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 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.