Jak zapisać wszystkie załączniki z wielu wiadomości e-mail do folderu w Outlooku?

Zapisywanie wszystkich załączników z wiadomości e-mail jest łatwe dzięki wbudowanej funkcji Zapisz wszystkie załączniki w programie Outlook. Jeśli jednak chcesz zapisać wszystkie załączniki z wielu wiadomości e-mail jednocześnie, żadna bezpośrednia funkcja nie może pomóc. Musisz wielokrotnie stosować funkcję Zapisz wszystkie załączniki w każdej wiadomości e-mail, aż wszystkie załączniki zostaną zapisane z tych wiadomości e-mail. To czasochłonne. W tym artykule przedstawiamy dwie metody masowego zapisywania wszystkich załączników z wielu wiadomości e-mail w określonym folderze w programie Outlook.

Zapisz wszystkie załączniki z wielu wiadomości e-mail do folderu z kodem VBA
Kilka kliknięć, aby zapisać wszystkie załączniki z wielu wiadomości e-mail w folderze za pomocą niesamowitego narzędzia

Zapisz wszystkie załączniki z wielu wiadomości e-mail do folderu z kodem VBA

W tej sekcji przedstawiono kod VBA w przewodniku krok po kroku, który pomaga szybko zapisać wszystkie załączniki z wielu wiadomości e-mail do określonego folderu jednocześnie. Wykonaj następujące czynności.

1. Najpierw musisz utworzyć folder do zapisywania załączników na swoim komputerze.

Wejdź do dokumenty folder i utwórz folder o nazwie „Załączniki”. Zobacz zrzut ekranu:

2. Wybierz wiadomości e-mail, których załączniki chcesz zapisać, a następnie naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3. kliknij wstawka > Moduł otworzyć Moduł window, a następnie skopiuj jeden z następujących kodów VBA do okna.

Kod VBA 1: Zbiorcze zapisywanie załączników z wielu wiadomości e-mail (zapisuj bezpośrednio załączniki z dokładnie tą samą nazwą)

Tips: Ten kod zapisze dokładnie takie same załączniki z nazwami, dodając cyfry 1, 2, 3 ... po nazwach plików.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

Kod VBA 2: Zbiorcze zapisywanie załączników z wielu wiadomości e-mail (sprawdź duplikaty)

Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Uwagi:

5. wciśnij F5 klucz do uruchomienia kodu.

Następnie wszystkie załączniki w wybranych wiadomościach e-mail są zapisywane w folderze utworzonym w kroku 1. 

Uwagi: Może być Microsoft Outlook pojawi się okienko zachęty, kliknij przycisk Dopuszczać przycisk, aby przejść dalej.

Zapisz wszystkie załączniki z wielu wiadomości e-mail w folderze za pomocą niesamowitego narzędzia

Jeśli jesteś nowicjuszem w VBA, tutaj gorąco polecam Zapisz wszystkie załączniki użyteczność Kutools dla Outook dla Was. Za pomocą tego narzędzia możesz szybko zapisać wszystkie załączniki z wielu wiadomości e-mail jednocześnie, kilkoma kliknięciami tylko w programie Outlook.
Przed zastosowaniem funkcji proszę najpierw pobierz i zainstaluj Kutools dla programu Outlook.

1. Wybierz wiadomości e-mail zawierające załączniki, które chcesz zapisać.

Porady: Możesz wybrać wiele nieprzylegających e-maili, przytrzymując Ctrl klawisz i wybierz je jeden po drugim;
Lub wybierz wiele sąsiednich wiadomości e-mail, przytrzymując Shift i wybierz pierwszy i ostatni e-mail.

2. kliknij Kutools >Narzędzia załączników > Zapisz wszystkie. Zobacz zrzut ekranu:

3. w Zapisz ustawienia dialog, kliknij przycisk , aby wybrać folder do zapisania załączników, a następnie kliknij OK przycisk.

3. kliknij OK dwa razy w następnym oknie dialogowym, a następnie wszystkie załączniki w wybranych wiadomościach e-mail są zapisywane w określonym folderze naraz.

Uwagi:

• 1. Jeśli chcesz zapisywać załączniki w różnych folderach na podstawie wiadomości e-mail, zaznacz plik Utwórz podfoldery w następującym stylu i wybierz styl folderu z listy rozwijanej.
• 2. Oprócz zapisywania wszystkich załączników, możesz zapisywać załączniki według określonych warunków. Na przykład chcesz zapisać tylko załączniki w pliku PDF, których nazwa zawiera słowo „Faktura”, kliknij przycisk Opcje zaawansowane , aby rozwinąć warunki, a następnie skonfiguruj, jak pokazano poniżej.
  
• 3. Jeśli chcesz automatycznie zapisywać załączniki po nadejściu wiadomości e-mail, plik Automatyczne zapisywanie załączników funkcja może pomóc.
• 4. Aby odłączyć załączniki bezpośrednio z wybranych wiadomości e-mail, plik Odłącz wszystkie załączniki cechą Kutools dla programu Outlook mogę zrobić ci przysługę.

Powiązane artykuły

---

Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki Pro: Zapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

Czytaj więcej       Darmowe pobieranie      Zakup