3 начина за изтегляне на всички прикачени файлове от Outlook

Прегледайте това ръководство, за да научите всички начини

Като професионален потребител изтеглянето на тонове прикачени файлове от имейлите, получени в Outlook, може да бъде монотонно и отнема много време.

За щастие можете лесно да изтеглите няколко прикачени файла от един имейл в Outlook наведнъж, без да се налага да натискате бутона Запазване за всеки от тях. Освен това е възможно също така да изтеглите множество прикачени файлове, налични в множество имейли, чрез просто решение.

Ако сте любопитни да научите процедурата стъпка по стъпка, останете с нас, докато ви водим през процедурата.

Как да изтегля всички прикачени файлове от имейл?

1. Използване на настолното приложение

1. Стартирайте Microsoft Outlook приложение на вашия компютър с Windows.
instagram story viewer
2. Потърсете и отворете този имейл в панела за четене, от който изтегляте прикачените файлове.
3. Преминете към Прикачени файлове раздел от горната лента с менюта, щракнете с десния бутон върху един от прикачените файлове в десния раздел и изберете Запазете всички прикачени файлове в падащото меню.
4. Натисни Ctrl и изберете всички прикачени файлове, които искате да изтеглите, в малкия диалогов прозорец, който се отваря.
5. Натисни Добре след като изберете необходимите прикачени файлове.
6. Нов Запази като ще се отвори изскачащ прозорец за запазване на вашите прикачени файлове. Прегледайте папката, в която искате да запишете прикачените файлове, и натиснете Добре бутон долу вдясно, за да започнете изтеглянето на прикачения файл.

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

2. Използване на уеб приложението

1. Достъп до Уеб приложение Microsoft Outlook като използвате предпочитания от вас уеб браузър и предоставете идентификационните си данни за вход, когато бъдете подканени да влезете.
2. Изберете Входяща кутия папка от лявата лента с менюта в У дома раздел на уеб приложението.
3. Щракнете двукратно върху въпросния имейл, за да видите съдържанието на имейла в нов прозорец.
4. Щракнете върху Изтеглете всички бутон за изтегляне на прикачените файлове под формата на ZIP файл.
5. Изберете местоположението за изтегляне и натиснете Добре бутон, ако Запази като диалоговият прозорец се отваря.

Това е лесен метод за изтегляне на всички имейл прикачени файлове от един имейл, ако предпочитате уеб приложението вместо приложението Outlook.

Как да изтегля всички прикачени файлове от множество имейли?

ЗАБЕЛЕЖКА

Можете да изпробвате този метод само ако използвате Outlook 2019, 2016, 2013, 2010, 2007 или 2003.

1. Създайте нова папка

1. Използвай Windows + д пряк път за стартиране File Explorer.
2. Навигирайте до Документи папка от лявата странична лента.
3. Щракнете с десния бутон някъде в дясната секция и изберете Нов следван от Папка от контекстното меню.
4. Щракнете двукратно върху името на папката и я преименувайте като Прикачени файлове.

2. Създайте VBA скрипт

1. Сега стартирайте приложението Outlook на вашия компютър с Windows.
2. Избери Файл опция и след това изберете Настроики от лявата странична лента.
3. Изберете Персонализиране на лентата от левия панел на Опции на Word прозорец.
4. Изберете Разработчик опция в Основни раздели и натиснете плюс икона за добавяне на режим за програмист към менюто на лентата на Outlook.
5. Затворете изскачащия прозорец с опции на Word и след това изберете Режим за програмисти следван от Visual Basic от главното меню.
6. Изберете Проект1 се показва по подразбиране и след това изберете Поставете следван от Модул за достъп до прозореца на модула.
7. Сега копирайте и поставете следния код в Модул1 и затворете прозореца.

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 & "" Else xSaveFiles = xSaveFiles & "
" & "" & xFilePath & "" 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

3. Стартирайте VBS скрипта

1. Преминете към Режим за програмисти и след това изберете Visual Basic от лентата на Outlook.
2. Изберете Модул1 и удари F5 ключ за изпълнение на кода.
3. Щракнете върху Запазване на прикачения файл след като изберете прикачените файлове, за да потвърдите действието.

VBA скриптовете ви позволяват да автоматизирате процеса на изтегляне на прикачени файлове в Microsoft Outlook. Трябва обаче да продължите внимателно с VBA скриптовете, за да избегнете повреда на вашия компютър.

Това е всичко в това ръководство! Надяваме се, че сте наясно с различните начини, по които можете лесно да изтеглите всички прикачени файлове към имейл от приложението Microsoft Outlook.

Ако попаднете на Грешка нещо се обърка в Outlook приложение, опитайте решенията, предложени в това ръководство.

Ако имате някакви въпроси или знаете за други методи, уведомете ни в секцията за коментари.