3 načini za prenos vseh prilog iz Outlooka

Preberite ta vodnik, če želite izvedeti vse načine

Kot profesionalni uporabnik je lahko prenašanje množice prilog iz e-poštnih sporočil, prejetih v Outlooku, monotono in dolgotrajno.

Na srečo lahko preprosto prenesete več prilog iz enega e-poštnega sporočila v Outlooku hkrati, ne da bi morali pritisniti gumb Shrani za vsako od njih. Poleg tega je mogoče s preprosto rešitvijo prenesti več prilog, ki so prisotne v več e-poštnih sporočilih.

Če vas zanima postopek po korakih, ostanite z nami, saj vas bomo vodili skozi postopek.

Kako prenesem vse priloge iz e-pošte?

1. Uporaba namizne aplikacije

1. Zaženite Microsoft Outlook aplikacijo na vašem računalniku z operacijskim sistemom Windows.
2. Poiščite in odprite to e-pošto v podoknu za branje, iz katerega prenašate priloge.
3. Preklopite na
   instagram story viewer
   priloge v zgornji menijski vrstici, z desno miškino tipko kliknite eno od datotečnih prilog v desnem razdelku in izberite Shrani vse priloge v spustnem meniju.
4. Pritisnite Ctrl in v majhnem pogovornem oknu, ki se odpre, izberite vse priloge, ki jih želite prenesti.
5. Pritisnite v redu po izbiri potrebnih prilog.
6. Nov Shrani kot odprlo se bo pojavno okno za shranjevanje prilog. Poiščite mapo, v katero želite shraniti priponke, in pritisnite v redu gumb spodaj desno, da začnete prenos priloge.

Z lahkoto lahko naenkrat prenesete vse datoteke, priložene e-poštnemu sporočilu, namesto da bi prenašali vsako datoteko posebej.

2. Uporaba spletne aplikacije

1. Dostop do Spletna aplikacija Microsoft Outlook uporabite svoj priljubljeni spletni brskalnik in ob pozivu za prijavo vnesite svoje poverilnice za prijavo.
2. Izberite Prejeto mapo v levi menijski vrstici v domov razdelek spletne aplikacije.
3. Dvokliknite zadevno e-pošto, da si ogledate vsebino e-pošte v novem oknu.
4. Kliknite na Prenesi vse gumb za prenos prilog v obliki datoteke ZIP.
5. Izberite lokacijo za prenos in pritisnite v redu gumb, če je Shrani kot odpre se pogovorno okno.

To je preprosta metoda za prenos vseh e-poštnih prilog iz enega e-poštnega sporočila, če imate raje spletno aplikacijo namesto aplikacije Outlook.

Kako prenesem vse priloge iz več e-poštnih sporočil?

OPOMBA

To metodo lahko preizkusite le, če uporabljate Outlook 2019, 2016, 2013, 2010, 2007 ali 2003.

1. Ustvari novo mapo

1. Uporabi Windows + E bližnjica za zagon Raziskovalec datotek.
2. Pomaknite se do Dokumenti mapo v levi stranski vrstici.
3. Z desno miškino tipko kliknite kjer koli na desnem delu in izberite Novo sledi Mapa iz kontekstnega menija.
4. Dvokliknite ime mape in jo preimenujte v priloge.

2. Ustvarite skript VBA

1. Zdaj zaženite aplikacijo Outlook v računalniku z operacijskim sistemom Windows.
2. Izberite mapa možnost in nato izberite Opcije z leve stranske vrstice.
3. Izberite Prilagodite trak z leve plošče Wordove možnosti okno.
4. Izberite Razvijalec možnost v Glavni zavihki in pritisnite Plus ikono za dodajanje razvijalskega načina v meni traku programa Outlook.
5. Zaprite pojavno okno Word Options in nato izberite Način za razvijalce sledi Visual basic iz glavnega menija.
6. Izberite Projekt1 prikazan kot privzeti in nato izberite Vstavi sledi Modul za dostop do okna modula.
7. Zdaj kopirajte in prilepite naslednjo kodo Modul1 in zaprite okno.

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. Zaženite skript VBS

1. Preklopite na Način za razvijalce in nato izberite Visual basic iz Outlookovega traku.
2. Izberite Modul1 in udaril F5 tipko za zagon kode.
3. Kliknite na Shrani prilogo po izbiri prilog, da potrdite dejanje.

Skripti VBA vam omogočajo avtomatizacijo postopka prenosa prilog v programu Microsoft Outlook. Vendar morate s skripti VBA nadaljevati previdno, da ne poškodujete računalnika.

To je vse v tem priročniku! Upam, da poznate različne načine, kako lahko preprosto prenesete vse e-poštne priloge iz aplikacije Microsoft Outlook.

Če naletite na V Outlooku je šlo nekaj narobe, napaka preizkusite rešitve, predlagane v tem priročniku.

Če imate kakršna koli vprašanja ali poznate druge metode, nam to sporočite v razdelku za komentarje.