Съвет: Други езици са преведени от Google. Можете да посетите English версия на тази връзка.
Влизане
x
or
x
x
Регистрирам
x

or

Как да запишете всички прикачени файлове от няколко имейла в папка в Outlook?

Както обикновено, когато получавате съобщения с множество прикачени файлове и искате да запазите тези прикачени файлове в определена папка, трябва да ги запазите един по един с някои досадни операции. Искате ли да се отървете от тези отнемащи много време операции и директно да запазите множеството прикачени файлове наведнъж? Моля, разгледайте следните уроци.

Запазете всички прикачени файлове от няколко имейла в папка с код VBA

Няколко кликвания, за да запазите всички прикачени файлове от няколко имейла в папка с Kutools за Outlook


Лесно запазете всички прикачени файлове от няколко избрани имейла в папка:

С Отворете всички прикачени файлове полезност на Kutools за Excel, лесно можете да запишете всички прикачени файлове от няколко избрани имейла до определена папка в Outlook, както е показано на екрана.

Kutools за Outlook: с повече от 40 удобни добавки за Outlook, свободни да опитате без ограничение в 45 дни. Изтеглете и безплатна пробна версия сега!

Kutools за Outlook: 100 + Нови разширени инструменти за Outlook.
Таб на Office: Активиране на редактиране и сърфиране в раздела с папки в Office, Точно като Chrome, Firefox, IE 8 / 9 / 10.
Класическо меню: Носете стари менюта и ленти с инструменти към Office 2007, 2010, 2013, 2016 и 2019.

Запазете всички прикачени файлове от няколко имейла в папка с код VBA

1. Първо, трябва да създадете папка за запазване на прикачените файлове в компютъра. Пътят за запаметяване, подобно на следващата екранна снимка показва, Lj е потребителското име на компютъра и Прикачени е папката, която най-накрая трябва да създадете.

2. След като създадете папката, натиснете Alt + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

3. След това кликнете Поставете > Модули за да отворите Модули , след което копирайте и поставете следния VBA код в прозореца.

Кода на VBA за запазване на прикачените файлове

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

Забележка: Този код на VBA ще премахне окончателно прикачения файл от имейла.

4. Отидете Outlook Mail за да изберете имейлите с прикачени файлове, които искате да запазите прикачените файлове.

5. Връщане към Microsoft Visual Basic за приложения прозорец и кликнете за да стартирате кода.

6. Когато се покаже прозореца за бърз достъп, кликнете върху Позволете за да запазите прикачения файл. Забележка: Показващите честоти на прозореца зависят от броя на избраните имейли. Ако сте избрали два имейла с прикачени файлове, прозорецът за промпт ще се покаже два пъти и ще трябва да кликнете Позволете два пъти, за да завършите всички спестявания.

7. След като приключите с всички спестявания, ще видите резултата, както е показано на следващите екранни снимки. Можете да отидете да намерите запазените прикачени файлове в съответствие с пътя за запис или да отворите прикачения файл директно, като просто кликнете върху пътя за запис.


Запазете всички прикачени файлове от няколко имейла в папка с Kutools за Outlook (само няколко кликвания)

Този раздел ще въведе Отделете всичко полезност на Kutools за Outook. С тази програма можете бързо да запазвате прикачени файлове от няколко имейла едновременно в Outlook.

Kutools за Outlook : с повече от 20 удобен добавки за Outlook, безплатно да опитате без ограничение в 45 дни.

1. Влезте в папката за електронна поща и изберете многобройните имейли с прикачени файлове в пощенския списък, като задържите Ctrl ключ.

2. След това кликнете Kutools > Отделете всичко, Вижте екранна снимка:

3. Тогава Моля, изберете папка диалогов прозорец, щракнете върху паса за да изберете папка, за да запазите отделените прикачени файлове, проверете Създавайте подпапки в стила му , след което задайте стил на папката от падащия списък. Накрая кликнете върху OK бутон. Вижте екранна снимка:

4. В отварянето Отделете всичко кликнете върху да бутон.

5. Тогава Kutools за Outlook диалогов прозорец, който показва колко прикачени файлове се отстраняват успешно, моля кликнете върху OK бутон:

Ако искате да имате безплатна пробна версия на тази програма, моля, посетете безплатно изтегляне на софтуера първо, и след това отидете да приложите операцията по горните стъпки.


Демонстрация: Запазете всички прикачени файлове от няколко имейла в папка с Kutools за Outlook

Kutools за Outlook включва 20 + мощни функции и инструменти за Microsoft Outlook. Безплатно, без да се ограничавате в 45 дни. Изтеглете безплатния пробен период сега!


Свързани статии:



Kutools за Outlook

Повече от 100 разширени функции за Outlook 2010, 2013, 2016, 2019 и 365

Екран изстрел kutools за перспективата малка за банер 201812

Още функции | Безплатно сваляне | Само $ 39.00 за стотици функции

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