Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i arbed pob atodiad o negeseuon e-bost lluosog i ffolder yn Outlook?

Fel arfer, pan fyddwch yn derbyn negeseuon gydag atodiadau lluosog ac rydych am gadw'r atodiadau hyn i ffolder penodol, mae angen i chi eu achub un i un gyda rhai gweithrediadau blino. Ydych chi am gael gwared ar y gweithrediadau hynny sy'n cymryd amser ac yn achub yr atodiadau lluosog ar unwaith? Edrychwch ar y sesiynau tiwtorial canlynol.

Cadwch yr holl atodiadau o negeseuon e-bost lluosog i ffolder gyda chod VBA

Mae nifer o gliciau i arbed pob atodiad o negeseuon e-bost lluosog i ffolder gyda Kutools ar gyfer Outlook


Yn hawdd arbed pob atodiad o negeseuon e-bost dewisol lluosog i ffolder:

Efo'r Datgysylltwch yr holl atodiadau cyfleustodau i Kutools ar gyfer Excel, gallwch chi arbed pob atodiad o negeseuon e-bost dewisol lluosog i ffolder penodol yn Outlook fel y dangosir y sgrin isod.

Kutools ar gyfer Outlook: gyda mwy na 40 Outlook ategol defnyddiol, yn rhad ac am ddim i geisio heb gyfyngiad mewn diwrnodau 45. Lawrlwythwch a threial am ddim Nawr!

Kutools ar gyfer Outlook: 100 + Offer Uwch Newydd ar gyfer Outlook.
Tab Swyddfa: Galluogi Golygu Tablau a Pori yn y Swyddfa, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Bwydlen Clasurol: Dewch â Hen Fwydlenni a Pheiriau Offer Yn ôl i Office 2007, 2010, 2013, 2016 a 2019.

Cadwch yr holl atodiadau o negeseuon e-bost lluosog i ffolder gyda chod VBA

1. Yn gyntaf, dylech greu ffolder ar gyfer achub yr atodiadau yn eich cyfrifiadur. Mae'r llwybr arbed yn union fel y lluniau canlynol yn dangos, Lj yw enw defnyddiwr y cyfrifiadur, a'r Ymlyniadau yw'r ffolder y dylech ei greu o'r diwedd.

2. Ar ôl creu'r ffolder, pwyswch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Yna cliciwch Mewnosod > Modiwlau i agor y Modiwlau ffenestr, ac yna copïwch a gludwch y cod VBA canlynol i'r ffenestr.

Cod VBA ar gyfer cadw atodiadau

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

Nodyn: Bydd y cod VBA hwn yn dileu'r atodiad yn barhaol o'r e-bost.

4. Ewch i Mail Outlook adran i ddewis y negeseuon e-bost gydag atodiadau yr ydych chi am achub yr atodiadau.

5. Dychwelyd i'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, a chliciwch botwm i redeg y cod.

6. Pan fydd blwch prydlon yn ymddangos, cliciwch Caniatáu i achub yr atodiad. Nodyn: Mae'r blwch prydlon sy'n dangos amlder yn dibynnu ar faint o negeseuon e-bost rydych chi wedi'u dewis. Os ydych chi wedi dewis dau e-bost gydag atodiadau, bydd y blwch prydlon yn ymddangos ddwywaith ac mae angen i chi glicio Caniatáu ddwywaith i orffen yr holl arbedion.

7. Ar ôl gorffen yr holl gynilion, fe welwch y canlyniad fel y dangosir yn y sgriniau sgrin isod. Gallwch fynd i ddod o hyd i'r atodiadau a arbedwyd yn ôl y llwybr arbed neu agor yr atodiad yn uniongyrchol trwy glicio ar y llwybr arbed.


Cadwch yr holl atodiadau o negeseuon e-bost lluosog i ffolder gyda Kutools ar gyfer Outlook (dim ond sawl clic)

Bydd yr adran hon yn cyflwyno'r Datgelwch yr Holl cyfleustodau Kutools ar gyfer Outook. Gyda'r cyfleustodau hwn, gallwch arbed atodiadau yn gyflym o negeseuon e-bost lluosog ar unwaith yn Outlook.

Kutools ar gyfer Outlook : gyda mwy na 20 Outlook defnyddiol ategol, yn rhad ac am ddim i geisio heb gyfyngiad mewn diwrnodau 45.

1. Ewch i'r ffolder e-bost a dewiswch yr e-byst lluosog gydag atodiadau yn y rhestr bost trwy ddal y Ctrl allweddol.

2. Yna cliciwch Kutools > Datgelwch yr Holl. Gweler y sgrin:

3. Yna a Dewiswch ffolder pops up dialog, cliciwch y Pori botwm i ddewis ffolder i achub yr atodiadau ar wahân, edrychwch ar y Creu is-ddosbarthwyr yn dilyn arddull blwch, ac yna nodwch arddull ffolder o'r rhestr ostwng. Yn olaf, cliciwch y OK botwm. Gweler y sgrin:

4. Yn yr agoriad Datgelwch yr Holl blwch deialog, cliciwch ar y Ydw botwm.

5. Yna a Kutools ar gyfer Outlook arddangosfeydd blwch deialog i ddweud wrthych faint o atodiadau sydd ar wahân yn llwyddiannus, cliciwch ar OK botwm:

Os ydych chi am gael prawf am ddim o'r cyfleustodau hwn, ewch i rhyddha download y meddalwedd am ddim yn gyntaf, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Demo: Cadwch yr holl atodiadau o negeseuon e-bost lluosog i ffolder gyda Kutools ar gyfer Outlook

Kutools ar gyfer Outlook yn cynnwys nodweddion a chyfarpar pwerus 20 + ar gyfer Microsoft Outlook. Am ddim i geisio heb gyfyngiad mewn dyddiau 45. Lawrlwythwch y treial am ddim nawr!


Erthyglau perthnasol:



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

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