Aholkua: beste hizkuntza Google-k itzulitako dira. Bisitatu dezakezu English estekaren bertsioa.
Saioa hasi
x
or
x
x
Eman izena
x

or

Eranskinak nola gorde Outlook-eko karpetako mezu elektroniko anitzetatik?

Ohikoa den bezala, eranskin anitzekin mezuak jasotzen dituzunean eta eranskinak karpeta jakin batera gorde nahi dituzunean, bat-batean aurreztu egin beharko dituzu. Denbora asko kontsumitzen duten eragiketak kentzeko eta zuzenean hainbat eranskin gorde ditzakezu aldi berean? Begiratu tutorial hauek.

Gorde mezu elektroniko anitzetatik eranskin guztiak VBA kodea duen karpeta

Hainbat klik egitean, Kutools-en Outlook-ekin karpeta bateko hainbat mezu eranskinak gorde ditzakezu


Erraz gorde hautatutako mezu elektroniko guztien eranskin guztiak karpeta honetara:

Nirekin Banatu eranskin guztiak erabilgarritasuna Kutools for Excel, erraz gorde ditzakezu eranskin guztiak hautatutako mezu elektroniko batetik Outlook karpetara Outlook-era, pantaila-argazkia erakusten den azpitik.

Kutools Outlook-era: 40 Outlook gehigarri erabilgarriekin baino gehiagorekin, 45 egunetan mugarik gabe probatzeko. Deskargatu eta doako proba Orain!

Kutools Outlook-era: 100 + Tresna aurreratu berriak Outlook-era.
Bulegoko fitxa: Gaitu Tabbed edizioa eta nabigazioa Office-n, Like Like Chrome, Firefox, IE 8 / 9 / 10.
Menu klasikoa: Ekarri menuak zaharrak eta barra-barra Office 2007, 2010, 2013, 2016 eta 2019.

Gorde mezu elektroniko anitzetatik eranskin guztiak VBA kodea duen karpeta

1. Lehenik eta behin, zure ordenagailuko eranskinak gordetzeko karpeta bat sortu behar zenuke. Pantaila-argazki gehiago erakusten duen aurrezteko bidea erakusten du, Lj ordenagailuaren erabiltzailearen izena da eta Attachments Azkenik sortu beharko zenukeen karpeta da.

2. Karpeta sortu ondoren, sakatu Alt + F11 irekitzeko Microsoft Visual Basic aplikazioak leihoa.

3. Gero egin klik Txertatu > Moduluak irekitzeko Moduluak leihoan, eta gero kopiatu eta itsatsi hurrengo VBA kodea leihora.

VBA kodea eranskinak gordetzeko

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

Ohar: VBA kode honek posta elektronikoz eranskinak behin betiko ezabatuko ditu.

4. Joan Outlook Mail atala eranskinak gorde nahi dituzun eranskinekin mezu elektronikoak aukeratzeko.

5. Itzuli Microsoft Visual Basic aplikazioak leihoa, eta egin klik botoia kodea exekutatzeko.

6. Erakutsitako lauki bat agertzen denean, egin klik Baimendu eranskina gordetzeko. Ohar: Maiztasunen erakusleihoa maiztasunez hautatutako mezu elektronikoen araberakoa da. Eranskinekin bi mezu elektronikoak aukeratu badituzu, galdetegi-koadroa bi aldiz agertuko da eta klik egin behar duzu Baimendu birritan aurrezki guztiak amaitzeko.

7. Aurrezki guztiak bukatu ondoren, emaitza ikusiko duzu azpitik pantailan. Joan gordetako eranskinak aurrezteko bidearen arabera edo zuzenean sartzeko eranskinak gorde ditzakezu aurrezteko bidean.


Gorde E-posta mezu anitzetariko guztiak karpetara Outlook-eko Kutools-ekin (klik gutxi batzuk besterik ez)

Atal honek aurkezten du Banatu dena Kutools for Outook-en erabilgarritasuna. Erabilgarritasun honekin, Outlook-eko posta elektronikoko hainbat eranskin azkar gorde ditzakezu.

Kutools Outlook-era : Outlook gehigarrien 20 erabilgarriekin, doako 45 egunetan mugarik gabe saiatu.

1. Helbide elektronikora sartu eta posta zerrendako eranskinekin mezu elektronikoak baino gehiagorekin hautatu Ctrl gakoa.

2. Gero egin klik Kutools > Banatu dena. Ikusi pantaila-argazkia:

3. Ondoren, a Hautatu karpeta bat Elkarrizketa koadroa agertzen da, egin klik Arakatzeko botoia karpeta bat hautatzeko bereizitako eranskinak gordetzeko, egiaztatu Sortu azpikarpetak ondorengo estiloan koadroa, eta, gero, karpeta estilo bat zehaztu goitibeherako zerrendan. Azkenean sakatu OK botoia. Ikusi pantaila-argazkia:

4. Hasieran Banatu dena Elkarrizketa koadroa, egin klik Bai botoia.

5. Ondoren, a Kutools Outlook-era Elkarrizketa koadroko bistaratzeak zenbat eranskin desgaitu behar diren azaltzeko, sakatu OK button:

Erabilgarritasun honen doako proba bat izan nahi baduzu, joan software librea deskargatu lehenik eta gero, joan aurreko urratsen arabera funtzionamendua aplikatzeko.


Demostrazioa: Eranskinak hainbat helbide elektronikoetatik Kutools-ekin Outlookera-tik gorde daitezke

Kutools Outlook-era 20 + Microsoft Outlook-ren ezaugarri eta tresna indartsuak ditu. Doako 45 egunetan mugarik gabe saiatu. Jaitsi doako proba orain!


Gaiarekin lotutako artikuluak:



Kutools Outlook-era

Outlook 100, 2010, 2013, 2016 eta 2019 Outlook 365 funtzio aurreratuak baino gehiago

pantailako kutools pantailako xNUMX banner txikiari begira

Ezaugarri gehiago | Free Download | $ 39.00 bakarrik ehunka funtzioentzat

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.....