Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako spremiti sve privitke iz više e-pošte u mapu u programu Outlook?

Kao i obično, kada primate poruke s više privitaka i želite spremiti ove privitke u određenu mapu, trebate ih spremiti jednu po jednu s nekim neugodnim operacijama. Želite li se riješiti tih dugotrajnih operacija i izravno spremiti više privitaka odjednom? Pogledajte sljedeće upute.

Spremite sve privitke iz više poruka e-pošte u mapu s VBA kodom

Nekoliko klikova za spremanje svih privitaka iz više e-poruka u mapu s Kutools za Outlook


Jednostavno spremajte sve privitke iz više odabranih e-poruka u mapu:

Uz Odvojite sve privitke korisnost Kutools za Excel, lako možete spremiti sve privitke iz više odabranih e-pošte na određenu mapu u programu Outlook, kao što je prikazano na slici.

Kutools za Outlook: s više od 40 zgodnih dodataka za Outlook, slobodno možete isprobati bez ograničenja u 45 danima. Preuzmite i besplatno testiranje odmah!

Kutools za Outlook: 100 + Novi napredni alati za Outlook.
Kartica sustava Office: Omogućavanje uređivanja i pregledavanja karata u uredu, Baš kao i Chrome, Firefox, IE 8 / 9 / 10.
Klasični izbornik: Vraćanje starih izbornika i alatnih traka na Office 2007, 2010, 2013, 2016 i 2019.

Spremite sve privitke iz više poruka e-pošte u mapu s VBA kodom

1. Prvo, trebali biste stvoriti mapu za spremanje privitaka na računalu. Štedljivi put kao i sljedeći screenshot pokazuje, Lj je korisničko ime računala i Privitci mapa koju biste napokon trebali stvoriti.

2. Nakon stvaranja mape pritisnite Alt + F11 otvoriti Microsoft Visual Basic for Applications prozor.

3. Zatim kliknite umetak > Moduli otvoriti Moduli prozor, a zatim u prozor kopirajte i zalijepite sljedeći VBA kôd.

VBA kôd za spremanje privitaka

Public Sub SaveAttachments()
'Update 20141121
	Dim objOL As Outlook.Application
	Dim objMsg As Outlook.MailItem
	Dim objAttachments As Outlook.Attachments
	Dim objSelection As Outlook.Selection
	Dim i As Long
	Dim lngCount As Long
	Dim strFile As String
	Dim strFolderpath As String
	Dim strDeletedFiles As String
	strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
	Set objOL = CreateObject("Outlook.Application")
	Set objSelection = objOL.ActiveExplorer.Selection
	strFolderpath = strFolderpath & "\Attachments\"
	For Each objMsg In objSelection
		Set objAttachments = objMsg.Attachments
		lngCount = objAttachments.Count
		strDeletedFiles = ""
		If lngCount > 0 Then
			For i = lngCount To 1 Step -1
				strFile = objAttachments.Item(i).FileName
				strFile = strFolderpath & strFile
				objAttachments.Item(i).SaveAsFile strFile
'objAttachments.Item(i).Delete()
				If objMsg.BodyFormat <> olFormatHTML Then
					strDeletedFiles = strDeletedFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
				Else
					strDeletedFiles = strDeletedFiles & "<br>" & "<a href='file://" & _
					strFile & "'>" & strFile & "</a>"
				End If
				Next i
				If objMsg.BodyFormat <> olFormatHTML Then
					objMsg.Body = vbCrLf & "The file(s) were saved to " & strDeletedFiles & vbCrLf & objMsg.Body
				Else
					objMsg.HTMLBody = "<p>" & "The file(s) were saved to " & strDeletedFiles & "</p>" & objMsg.HTMLBody
				End If
				objMsg.Save
			End If
		Next
		ExitSub:
		Set objAttachments = Nothing
		Set objMsg = Nothing
		Set objSelection = Nothing
		Set objOL = Nothing
	End Sub

bilješke: Ovaj VBA kôd trajno će ukloniti privitak iz e-pošte.

4. Ići Outlook Mail odjeljak za odabir e-poruka s privicima koji želite spremiti privitke.

5. Vratite se na Microsoft Visual Basic for Applications prozor i kliknite gumb za pokretanje koda.

6. Kada se pojavi upitni okvir, kliknite dopustiti za spremanje privitka. bilješke: Frekvencije prikazivanja brzog okvira ovise o tome koliko ste e-poruka koje ste odabrali. Ako ste odabrali dvije poruke e-pošte s privicima, potvrdni okvir dvaput će se prikazati i trebate kliknuti dopustiti dva puta da biste završili sve uštede.

7. Nakon što završite sve uštede, vidjet ćete rezultat kako je prikazano na donjim snimkama zaslona. Možete otići pronaći spremljene privitke prema načinu spremanja ili izravno otvoriti privitak samo klikom na put spremanja.


Spremite sve privitke iz više e-pošte u mapu s Kutools za Outlook (samo nekoliko klikova)

Ovaj odjeljak će uvesti Odvoji sve korisnost Kutoolsa za Outook. Pomoću tog uslužnog programa možete brzo spremati privitke iz više e-poruka odjednom u programu Outlook.

Kutools za Outlook : s više od 20 zgodan dodataka za Outlook, bez pokušaja bez ograničenja u 45 danima.

1. Ulazite u mapu e-pošte i odaberite višestruke poruke e-pošte s privicima u popisu pošte držeći Ctrl ključ.

2. Zatim kliknite Kutools > Odvoji sve, Pogledajte snimak zaslona:

3. Zatim a Odaberite mapu pojavljuje se dijaloški okvir, molimo kliknite na brstiti gumb za odabir mape za spremanje odvojene privitke, provjerite Izradite podmape u sljedećem stilu , a zatim s padajućeg popisa odredite stil mape. Konačno kliknite gumb OK dugme. Pogledajte snimak zaslona:

4. U otvoru Odvoji sve kliknite dijaloški okvir Da tipku.

5. Zatim a Kutools za Outlook prikazat će vam se dijaloški okvir kako bi vam rekao koliko privitaka se uspješno odvoji, kliknite gumb OK Tipka:

Ako želite imati besplatnu probnu verziju tog uslužnog programa, idite na besplatno preuzimanje softvera najprije, a zatim idite na primjenu operacije prema gore navedenim koracima.


Demo: Spremite sve privitke iz više e-poruka u mapu s Kutools za Outlook

Kutools za Outlook uključuje 20 + moćne značajke i alate za Microsoft Outlook. Slobodno je pokušati bez ograničenja u 45 danima. Preuzmite besplatnu probnu verziju sada!


Vezani članci:



Kutools za Outlook

Više od 100 naprednih funkcija za Outlook 2010, 2013, 2016, 2019 i 365

zaslon pucao kutools za Outlook mali za banner 201812

Dodatne mogućnosti | Besplatno preuzimanje | Samo $ 39.00 za stotine funkcija

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Brian · 1 years ago
    This is what the code is at now, and it does save all the attachments, but it only adds text to the first message. Can anyone help me with this?

    Public Sub SaveAttachments()
    'Update 20170523
    Dim objOL As Outlook.Application
    Dim objMsg As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objSelection As Outlook.Selection
    Dim I As Long
    Dim lngCount As Long
    Dim strFile As String
    Dim strFolderpath As String
    Set objOL = CreateObject("Outlook.Application")
    Set objSelection = objOL.ActiveExplorer.Selection
    strFolderpath = "C:\Users\brianp\Documents\Attachments\"
    For Each objMsg In objSelection
    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count
    'Use this to test MsgBox "Subject = " & objMsg.Subject & " lngCount = " & objAttachments.Count
    If lngCount > 0 Then
    For I = lngCount To 1 Step -1
    strFile = objAttachments.Item(I).FileName
    strFile = strFolderpath & strFile
    objAttachments.Item(I).SaveAsFile strFile
    Next I
    End If
    If objMsg.BodyFormat olFormatHTML Then
    objMsg.Body = vbCrLf & "The Attached file(s) were saved to " & "" & strFile & "" & vbCrLf & objMsg.Body
    Else
    objMsg.HTMLBody = "" & "The Attached file(s) were saved to " & "" & strFile & "" & "" & objMsg.HTMLBody
    End If
    Next
    ExitSub:
    Set objAttachments = Nothing
    Set objMsg = Nothing
    Set objSelection = Nothing
    Set objOL = Nothing
    End Sub
  • To post as a guest, your comment is unpublished.
    Brian · 1 years ago
    I can get this to run but how and the objSelection.Count is 2 but it will only save the attachments on the first email.
  • To post as a guest, your comment is unpublished.
    Atron Seige · 2 years ago
    Thanks! This saved me a lot of time and frustration!
  • To post as a guest, your comment is unpublished.
    Josh Fernandez · 2 years ago
    Works great with no problems! Thanks. Saved me a bunch of time!

    Thanks,

    Josh
  • To post as a guest, your comment is unpublished.
    Sathish · 2 years ago
    How to remove the "The file(s) were saved to" which is showing below.....