Prođite kroz ovaj vodič da biste saznali sve načine
- Microsoft vam omogućuje preuzimanje svih privitaka priloženih e-pošti odjednom.
- Isto tako, možete preuzeti privitke iz više privitaka pomoću VB koda.
- Prođite kroz ovaj vodič kako biste korak po korak naučili postupak preuzimanja višestrukih privitaka.
Kao profesionalnom korisniku, preuzimanje gomile privitaka iz e-pošte primljene u programu Outlook može biti monotono i dugotrajno.
Srećom, možete jednostavno preuzeti više privitaka iz jedne e-pošte u programu Outlook odjednom, a da za svaki od njih ne morate pritisnuti gumb Spremi. Nadalje, također je moguće preuzeti više privitaka prisutnih u više poruka e-pošte putem jednostavnog rješenja.
Ako ste znatiželjni saznati postupak korak po korak, ostanite s nama dok ćemo vas voditi kroz postupak.
Kako mogu preuzeti sve privitke iz e-pošte?
1. Korištenje aplikacije za radnu površinu
- Pokrenite Microsoft Outlook aplikaciju na vašem računalu sa sustavom Windows.
- Potražite i otvorite tu e-poštu u oknu za čitanje iz kojeg preuzimate privitke.
- Prebacite se na Prilozi odjeljak s gornje trake izbornika, desnom tipkom miša kliknite jedan od privitaka datoteke u desnom odjeljku i odaberite Spremite sve privitke u padajućem izborniku.
- pritisni Ctrl tipku i odaberite sve privitke koje želite preuzeti u malom dijaloškom okviru koji se otvori.
- pritisni u redu nakon odabira potrebnih priloga.
- Nova Spremi kao otvorit će se skočni prozor za spremanje vaših privitaka. Pronađite mapu u koju želite spremiti privitke i pritisnite u redu gumb u donjem desnom kutu za pokretanje preuzimanja privitka.
Možete jednostavno preuzeti sve datoteke priložene e-poruci odjednom umjesto preuzimanja svake datoteke zasebno.
2. Korištenje web aplikacije
- Pristupite Microsoft Outlook web aplikacija pomoću željenog web preglednika i unesite svoje vjerodajnice za prijavu kada se od vas zatraži da se prijavite.
- Odaberite Inbox mapu s lijeve trake izbornika u Dom odjeljak web aplikacije.
- Dvaput kliknite predmetnu e-poštu da biste vidjeli sadržaj e-pošte u novom prozoru.
- Kliknite na Preuzmite sve gumb za preuzimanje privitaka u obliku ZIP datoteke.
- Odaberite mjesto za preuzimanje i pritisnite u redu gumb ako je Spremi kao otvara se dijaloški okvir.
Ovo je jednostavna metoda za preuzimanje svih privitaka e-pošte iz jedne e-pošte ako više volite web-aplikaciju umjesto aplikacije Outlook.
Kako mogu preuzeti sve privitke iz više poruka e-pošte?
Ovu metodu možete isprobati samo ako koristite Outlook 2019, 2016, 2013, 2010, 2007 ili 2003.
1. Napravite novu mapu
- Koristiti Windows + E prečac za pokretanje File Explorer.
- Idite do Dokumenti mapu s lijeve bočne trake.
- Desnom tipkom miša kliknite bilo gdje na desnom dijelu i odaberite Novi slijedi Mapa iz kontekstnog izbornika.
- Dvaput kliknite naziv mape i preimenujte je u Prilozi.
2. Napravite VBA skriptu
- Sada pokrenite aplikaciju Outlook na računalu sa sustavom Windows.
- Odaberi Datoteka opciju, a zatim odaberite Mogućnosti s lijeve bočne trake.
- Izaberi Prilagodite vrpcu s lijeve ploče Word opcije prozor.
- Odaberite Developer opcija u Glavne kartice i pritisnite Plus ikona za dodavanje načina rada za razvojne programere na izbornik vrpce programa Outlook.
- Zatvorite skočni prozor Word Options i zatim odaberite Način rada za razvojne programere slijedi Visual Basic iz glavnog izbornika.
- Izaberi Projekt1 prikazano kao zadano, a zatim odaberite Umetnuti slijedi Modul za pristup prozoru modula.
- Sada kopirajte i zalijepite sljedeći kod u Modul1 i zatvori prozor.
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. Pokrenite VBS skriptu
- Prebacite se na Način rada za razvojne programere a zatim odaberite Visual Basic s vrpce programa Outlook.
- Izaberi Modul1 i pogodi F5 ključ za pokretanje koda.
- Kliknite na Spremi privitak nakon odabira privitaka za potvrdu radnje.
VBA skripte omogućuju automatizaciju procesa preuzimanja privitaka u programu Microsoft Outlook. Međutim, trebali biste pažljivo nastaviti s VBA skriptama kako ne biste oštetili svoje računalo.
To je sve u ovom vodiču! Nadamo se da ste svjesni različitih načina na koje možete jednostavno preuzeti sve privitke e-pošte iz aplikacije Microsoft Outlook.
Ako naletite na Nešto je pošlo po zlu greška u Outlooku aplikaciju, isprobajte rješenja predložena u ovom vodiču.
Ako imate bilo kakvih pitanja ili znate za druge metode, javite nam u odjeljku za komentare.