Jeśli działasz w branży, w której codziennie otrzymujesz niezliczoną ilość e-maili, prawdopodobnie otrzymujesz wiele e-maili z wieloma załącznikami. Ręczne wyodrębnianie załączników może być czasochłonne, jeśli jest ich wiele do pobrania. Na szczęście w programie Microsoft Outlook można łatwo zapisać wiele załączników do wiadomości e-mail jednocześnie.
W tym samouczku pokażemy, jak pobrać wszystkie załączniki z Outlooka.
Jak pobrać wszystkie załączniki do wiadomości e-mail programu Microsoft Outlook jednocześnie w systemie Windows
Aby pobrać wszystkie załączniki jednocześnie za pomocą aplikacji Microsoft Outlook dla systemu Windows, wykonaj następujące czynności:
Jak pobrać wszystkie załączniki do wiadomości e-mail programu Microsoft Outlook jednocześnie na komputerze Mac
Oto sposób pobierania wszystkich załączników przy użyciu programu Outlook dla komputerów Mac:
Jak pobrać wiele załączników programu Outlook z wielu wiadomości e-mail
Możliwe jest także pobranie wielu załączników z wielu e-maili jednocześnie. Aby to zrobić:
UżyjVBAkodu
Jeśli używasz Outlooka 2019, 2016, 2013, 2010, 2007 lub 2003, możesz użyć Edytor VBA, aby pobrać wiele załączników z wielu e-maili.
Przyciemnij GCount jako liczbę całkowitą
Wymnij ścieżkę pliku GFilepath jako ciąg
Publiczne subskrypcje SaveAttachments()
„Aktualizacja 20200821
”.Przyciemnij xMailItem jako Outlook.MailItem
Przyciemnij xAttachments jako Outlook.Załączniki
Przyciemnij xSelection jako Outlook.Selection
Przyciemnij i tak długo
Dim xAttCount Tak długo
Dim xFilePath jako ciąg, xFolderPath jako ciąg, xSaveFiles jako ciąg
W przypadku błędu wznów dalej
xFolderPath = CreateObject(“WScript.Shell”).SpecialFolders(16)
Ustaw xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & „\Załączniki\”
Jeśli VBA.Dir(xFolderPath, vbDirectory) = vbNullString Wtedy
VBA.MkDir xFolderPath
Zakończ, jeśli
GFilepath = „”
Dla każdego xMailItem w xSelection
Ustaw xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = „”
Jeśli xAttCount >0 To
Dla i = xAttCount do 1 kroku -1
GCount = 0
xFilePath = xFolderPath i xAttachments.Item(i).NazwaPliku
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
Jeśli IsEmbeddedAttachment(xAttachments.Item(i)) = False To
xAttachments.Item(i).SaveAsFile xFilePath
Jeśli xMailItem.BodyFormat <>olFormatHTML To
xSaveFiles = xSaveFiles & vbCrLf & „
Inne
xSaveFiles = xSaveFiles & „
” & „” & xFilePath & „ ”
Zakończ, jeśli
Zakończ, jeśli
Następny i
Zakończ, jeśli
Dalej
Ustaw xAttachments = Nic.
Ustaw xMailItem = Nic
Ustaw xSelection = Nic
Zakończ subskrypcję
Funkcja FileRename(FilePath As String) jako String
Wymnij xPath jako ciąg
Dim xFso jako obiekt FileSystem
W przypadku błędu wznów dalej
Ustaw xFso = CreateObject(“Scripting.FileSystemObject”)
xPath = ścieżka pliku
FileRename = xPath
Jeśli xFso.FileExists(xPath) to
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & „\” & xFso.GetBaseName(GFilepath) & ” ” & GCount & „.” + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
Zakończ, jeśli
xFso = Nic
Zakończ funkcję
Funkcja IsEmbeddedAttachment (Dołącz jako załącznik)
Przyciemnij xItem jako element poczty
Dim xCid jako ciąg
Wym xID jako ciąg
Dim xHtml jako ciąg
W przypadku błędu wznów dalej
IsEmbeddedAttachment = Fałsz
Ustaw xItem = Dołącz.Parent
Jeśli xItem.BodyFormat <>olFormatHTML następnie wyjdź z funkcji
xCid = „”
xCid = Dołącz.PropertyAccessor.GetProperty(„http://schemas.microsoft.com/mapi/proptag/0x3712001F”)
Jeśli xCid <>„” To
xHtml = xItem.HTMLBody
xID = „cid:” i xCid
Jeśli InStr(xHtml, xID) >0 To
IsEmbeddedAttachment = True
Zakończ, jeśli
Zakończ, jeśli
Zakończ funkcję
Uwaga: możesz skopiować oryginalny kod powyżej z Extend Office i wkleić go do edytora.
Korzystanie z narzędzia zewnętrznego
Jeśli używasz innej wersji Outlooka, chcesz pobrać typ pliku inny niż PST lub uważasz, że metoda VBA jest uciążliwa, możesz pobrać narzędzie, które pomoże Ci pobrać wiele załączników Outlooka jednocześnie.
p>Aplikacje takie jak Ekstraktor załączników programu Outlook mają funkcję zapisywania załączników nie tylko z plików PST, ale także z innych formatów plików, takich jak pliki OST, BAK, MSG, OLK i OLM. Możesz także skonfigurować aplikację tak, aby filtrowała załączniki według rozmiaru pliku, daty lub nadawcy.
Jak pobrać wszystkie załączniki z uszkodzonego pliku
Jeśli nie możesz otwierać, przeglądać ani zapisywać załączników w programie Outlook, plik PST programu Microsoft Outlook może być uszkodzony. Możesz napraw plik PST pobrać załącznik za pomocą narzędzi takich jak aplikacja SCANPST.exe..
Aby skorzystać z tego narzędzia, zamknij Outlooka i przejdź do jednej z następujących lokalizacji, w zależności od wersji Outlooka:
Następnie kliknij dwukrotnie plik SCANPST.EXE.
Wybierz Przeglądaj, znajdź plik danych programu Outlook, który chcesz przeskanować, i naciśnij Start.
Jeśli narzędzie znajdzie błędy, wybierz opcję Napraw, aby spróbować je naprawić. Po zakończeniu uruchom ponownie Outlooka i sprawdź, czy teraz działa.
Usprawnij swoje działania e-mailowe
Pobieranie wielu plików z programu Outlook jest łatwe i można nawet pobrać wiele plików z wielu wiadomości e-mail jednocześnie. Jeśli metody wbudowane w Outlooku wydają Ci się zbyt trudne, możesz pobrać narzędzia takie jak Ekstraktor załączników programu Outlook, które Ci w tym pomogą.
.