3 veidi, kā lejupielādēt visus pielikumus no programmas Outlook

Izlasiet šo rokasgrāmatu, lai uzzinātu visus veidus

Kā profesionāls lietotājs daudzu pielikumu lejupielāde no programmā Outlook saņemtajiem e-pasta ziņojumiem var būt vienmuļa un laikietilpīga.

Par laimi, programmā Outlook vienlaikus varat viegli lejupielādēt vairākus pielikumus no viena e-pasta, nenospiežot pogu Saglabāt katram no tiem. Turklāt ir iespējams arī lejupielādēt vairākus pielikumus, kas atrodas vairākos e-pastos, izmantojot vienkāršu risinājumu.

Ja vēlaties uzzināt soli pa solim procedūru, palieciet kopā ar mums, jo mēs jums palīdzēsim veikt procedūru.

Kā lejupielādēt visus pielikumus no e-pasta?

1. Izmantojot darbvirsmas lietotni

1. Palaidiet Microsoft Outlook lietotni savā Windows datorā.
2. Atrodiet un atveriet šo e-pastu lasīšanas rūtī, no kuras lejupielādējat pielikumus.
instagram story viewer
3. Pārslēdzieties uz Pielikumi sadaļu augšējā izvēlņu joslā, ar peles labo pogu noklikšķiniet uz viena no faila pielikumiem labajā sadaļā un atlasiet Saglabājiet visus pielikumus nolaižamajā izvēlnē.
4. Nospiediet pogu Ctrl taustiņu un atlasiet visus pielikumus, kurus vēlaties lejupielādēt mazajā dialoglodziņā, kas tiek atvērts.
5. Nospiediet pogu labi pogu pēc nepieciešamo pielikumu atlases.
6. Jauns Saglabāt kā tiks atvērts uznirstošais logs, lai saglabātu pielikumus. Pārlūkojiet līdz mapei, kurā vēlaties saglabāt pielikuma failus, un nospiediet labi pogu apakšējā labajā stūrī, lai sāktu pielikuma lejupielādi.

Varat ērti lejupielādēt visus e-pasta ziņojumam pievienotos failus uzreiz, nevis lejupielādēt katru failu atsevišķi.

2. Izmantojot tīmekļa lietotni

1. Piekļūstiet Microsoft Outlook tīmekļa lietotne izmantojot vēlamo tīmekļa pārlūkprogrammu un, kad tiek prasīts pierakstīties, norādiet savus pieteikšanās akreditācijas datus.
2. Izvēlieties Iesūtne mapi no kreisās izvēlnes joslas Mājas tīmekļa lietotnes sadaļā.
3. Veiciet dubultklikšķi uz attiecīgā e-pasta, lai skatītu e-pasta saturu jaunā logā.
4. Noklikšķiniet uz Lejupielādēt visu pogu, lai lejupielādētu pielikumus ZIP faila veidā.
5. Izvēlieties lejupielādes vietu un nospiediet labi pogu, ja Saglabāt kā tiek atvērts dialoglodziņš.

Šī ir vienkārša metode, kā lejupielādēt visus e-pasta pielikumus no viena e-pasta, ja vēlaties izmantot tīmekļa lietotni, nevis programmu Outlook.

Kā lejupielādēt visus pielikumus no vairākiem e-pastiem?

PIEZĪME

Varat izmēģināt šo metodi tikai tad, ja izmantojat programmu Outlook 2019, 2016, 2013, 2010, 2007 vai 2003.

1. Izveidojiet jaunu mapi

1. Izmantojiet Windows + E palaišanas saīsne Failu pārlūks.
2. Dodieties uz Dokumenti mapi no kreisās sānjoslas.
3. Ar peles labo pogu noklikšķiniet jebkurā vietā labajā sadaļā un izvēlieties Jauns seko Mape no konteksta izvēlnes.
4. Veiciet dubultklikšķi uz mapes nosaukuma un pārdēvējiet to kā Pielikumi.

2. Izveidojiet VBA skriptu

1. Tagad savā Windows datorā palaidiet programmu Outlook.
2. Izvēlies Fails opciju un pēc tam atlasiet Iespējas no kreisās sānjoslas.
3. Izvēlieties Pielāgot lenti no kreisā paneļa Vārda opcijas logs.
4. Izvēlieties Izstrādātājs opcija sadaļā Galvenās cilnes un nospiediet Plus ikonu, lai Outlook lentes izvēlnei pievienotu izstrādātāja režīmu.
5. Aizveriet uznirstošo Word opcijas un pēc tam atlasiet Izstrādātāja režīms seko Visual Basic no galvenās izvēlnes.
6. Izvēlieties Projekts1 tiek parādīts kā noklusējums un pēc tam atlasiet Ievietot seko Modulis lai piekļūtu moduļa logam.
7. Tagad kopējiet un ielīmējiet tālāk norādīto kodu 1. modulis un aizveriet logu.

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. Palaidiet VBS skriptu

1. Pārslēdzieties uz Izstrādātāja režīms un pēc tam atlasiet Visual Basic no Outlook lentes.
2. Izvēlieties 1. modulis un nospiediet F5 taustiņu, lai palaistu kodu.
3. Noklikšķiniet uz Saglabāt pielikumu pogu pēc pielikumu atlasīšanas, lai apstiprinātu darbību.

VBA skripti ļauj automatizēt pielikuma lejupielādes procesu programmā Microsoft Outlook. Tomēr rūpīgi jārīkojas ar VBA skriptiem, lai nesabojātu datoru.

Tas viss šajā rokasgrāmatā! Cerams, ka esat informēts par dažādiem veidiem, kā viegli lejupielādēt visus e-pasta pielikumus no lietotnes Microsoft Outlook.

Ja jūs uzskriet Programmā Outlook radās kļūda lietotni, izmēģiniet šajā rokasgrāmatā ieteiktos risinājumus.

Ja jums ir kādi jautājumi vai zināt par citām metodēm, informējiet mūs komentāru sadaļā.