Parcurgeți acest ghid pentru a afla toate modalitățile
- Microsoft vă permite să descărcați toate atașamentele atașate la e-mail dintr-o singură mișcare.
- De asemenea, puteți descărca atașamente din mai multe atașamente folosind codul VB.
- Parcurgeți acest ghid pentru a afla procesul pas cu pas pentru a descărca mai multe atașamente.
![Outlook descărcați toate atașamentele](/f/94d12485d52ef7f407701ba23034a8c1.jpg)
Ca utilizator profesionist, descărcarea de tone de atașamente din e-mailurile primite în Outlook poate fi monotonă și consumatoare de timp.
Din fericire, puteți descărca cu ușurință mai multe atașamente dintr-un e-mail în Outlook simultan, fără a fi nevoie să apăsați butonul Salvare pentru fiecare dintre ele. În plus, este, de asemenea, posibil să descărcați mai multe atașamente prezente în mai multe e-mailuri printr-o soluție simplă.
Dacă sunteți curios să cunoașteți procedura pas cu pas, rămâneți cu noi în timp ce vă ghidăm prin procedură.
Cum descarc toate atașamentele dintr-un e-mail?
1. Folosind aplicația desktop
- Lansați Microsoft Outlook aplicația pe computerul dvs. cu Windows.
- Căutați și deschideți acel e-mail în panoul de citire din care descărcați atașamentele.
- Comutați la Atasamente secțiunea din bara de meniu de sus, faceți clic dreapta pe unul dintre fișierele atașate din secțiunea din dreapta și selectați Salvați toate atașamentele în meniul derulant.
- apasă pe Ctrl tasta și selectați toate atașamentele pe care doriți să le descărcați în caseta de dialog mică care se deschide.
- apasă pe Bine butonul după selectarea atașamentelor necesare.
- Un nou Salvează ca se va deschide o fereastră pop-up pentru a salva atașamentele. Navigați la folderul în care doriți să salvați fișierele atașate și apăsați tasta Bine butonul din dreapta jos pentru a iniția descărcarea atașamentului.
Puteți descărca cu ușurință toate fișierele atașate unui e-mail simultan, în loc să descărcați fiecare fișier individual.
2. Folosind aplicația web
- Accesați Aplicația web Microsoft Outlook utilizând browserul web preferat și furnizați acreditările dvs. de conectare atunci când vi se solicită să vă conectați.
- Selectează Inbox folder din bara de meniu din stânga din Acasă secțiunea aplicației web.
- Faceți dublu clic pe e-mailul în cauză pentru a vedea conținutul e-mailului într-o fereastră nouă.
- Apasă pe Descarca toate butonul pentru a descărca atașamentele sub forma unui fișier ZIP.
- Alegeți locația de descărcare și apăsați tasta Bine butonul dacă Salvează ca se deschide caseta de dialog.
Aceasta este o metodă simplă de a descărca toate atașamentele de e-mail dintr-un singur e-mail dacă preferați aplicația web în loc de aplicația Outlook.
Cum descarc toate atașamentele din mai multe e-mailuri?
Puteți încerca această metodă numai dacă utilizați Outlook 2019, 2016, 2013, 2010, 2007 sau 2003.
1. Creați un folder nou
- Folosește Windows + E scurtătură pentru lansare Explorator de fișiere.
- Navigați la Documente folder din bara laterală din stânga.
- Faceți clic dreapta oriunde în secțiunea din dreapta și alegeți Nou urmată de Pliant din meniul contextual.
- Faceți dublu clic pe numele folderului și redenumiți-l ca Atasamente.
2. Creați un script VBA
- Acum lansați aplicația Outlook pe computerul dvs. Windows.
- Alege Fişier opțiunea și apoi selectați Opțiuni din bara laterală din stânga.
- Selectați Personalizați panglica din panoul din stânga al Opțiuni Word fereastră.
- Selectează Dezvoltator opțiunea în Filele principale și apăsați tasta La care se adauga pictograma pentru a adăuga modul Dezvoltator la meniul panglică Outlook.
- Închideți fereastra pop-up Opțiuni Word și apoi selectați Modul dezvoltator urmată de Visual Basic din meniul principal.
- Selectați Proiect1 afișat implicit și apoi selectați Introduce urmată de Modul pentru a accesa fereastra Modulului.
- Acum copiați și inserați următorul cod în Modulul 1 si inchide fereastra.
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. Rulați scriptul VBS
- Comutați la Modul dezvoltator și apoi selectați Visual Basic din panglica Outlook.
- Selectați Modulul 1 și loviți F5 tasta pentru a rula codul.
- Apasă pe Salvați atașamentul butonul după selectarea atașamentelor pentru a confirma acțiunea.
Scripturile VBA vă permit să automatizați procesul de descărcare a atașamentelor în Microsoft Outlook. Cu toate acestea, ar trebui să procedați cu atenție cu scripturile VBA pentru a evita deteriorarea computerului.
Asta este tot în acest ghid! Sper că știți diferitele moduri în care puteți descărca cu ușurință toate atașamentele de e-mail din aplicația Microsoft Outlook.
Dacă dai de Ceva a mers prost eroare în Outlook aplicație, încercați soluțiile sugerate în acest ghid.
Dacă aveți întrebări sau știți despre alte metode, anunțați-ne în secțiunea de comentarii.