Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Regista-te
x

or

Como salvar todos os anexos de vários e-mails para pasta no Outlook?

Como de costume, quando você recebe mensagens com vários anexos e deseja salvar esses anexos em uma pasta específica, você precisa salvá-los um por um com algumas operações irritantes. Você quer se livrar dessas operações que consomem tempo e salvar diretamente os múltiplos anexos ao mesmo tempo? Por favor, veja os seguintes tutoriais.

Salve todos os anexos de vários e-mails para uma pasta com código VBA

Vários cliques para salvar todos os anexos de vários e-mails para a pasta com o Kutools for Outlook


Guarde facilmente todos os anexos de vários e-mails selecionados para a pasta:

Com o Desanexar todos os anexos utilidade de Kutools for Excel, você pode facilmente salvar todos os anexos de vários e-mails selecionados para a pasta especificada no Outlook, conforme mostra a tela mostrada abaixo.

Kutools for Outlook: com mais de 40 acessíveis suplementos do Outlook, pode tentar sem limitação em dias 45. Baixe e teste grátis agora!

Kutools for Outlook: 100 + Novas Ferramentas Avançadas para o Outlook.
Office Tab: Ativar edição com guias e navegação no Office, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Clássico: Traga os velhos menus e as barras de ferramentas de volta para Office 2007, 2010, 2013, 2016 e 2019.

Salve todos os anexos de vários e-mails para uma pasta com código VBA

1. Em primeiro lugar, você deve criar uma pasta para salvar os anexos em seu computador. O caminho de salvamento, como mostra a seguinte tela, Lj é o nome de usuário do computador, e o Anexos é a pasta que você deve finalmente criar.

2. Depois de criar a pasta, pressione Alt + F11 para abrir o Microsoft Visual Basic para Aplicações janela.

3. Então clique inserção > Módulo para abrir o Módulo janela e, em seguida, copie e cole o seguinte código VBA para a janela.

Código VBA para salvar anexos

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

notas: Este código VBA removerá permanentemente o anexo do e-mail.

4. Vamos para Outlook correio para selecionar os e-mails com anexos que deseja salvar os anexos.

5. Retorne para Microsoft Visual Basic para Aplicações janela e clique em para executar o código.

6. Quando aparecer uma caixa de prompt, clique em permitir para salvar o anexo. notas: As freqüências de exibição da caixa do prompt dependem de quantos e-mails você selecionou. Se você selecionou dois e-mails com anexos, a caixa de prompt aparecerá duas vezes e você precisará clicar permitir duas vezes para terminar todas as economias.

7. Depois de terminar todas as economias, você verá o resultado como mostrado nas capturas de tela abaixo. Você pode encontrar os anexos salvos de acordo com o caminho de salvamento ou abrir o anexo diretamente clicando apenas no caminho de salvamento.


Salve todos os anexos de vários e-mails para a pasta com o Kutools for Outlook (apenas vários cliques)

Esta seção apresentará o Desanexar tudo Utilidade de Kutools para Outook. Com este utilitário, você pode salvar rapidamente os anexos de vários emails ao mesmo tempo no Outlook.

Kutools for Outlook : com mais de 20 acessíveis suplementos do Outlook, livre para tentar sem limitação nos dias 45.

1. Entre na pasta de e-mail e selecione os vários e-mails com anexos na lista de e-mails segurando o Ctrl chave.

2. Então clique Kutools > Desanexar tudo. Ver captura de tela:

3. Então uma Selecione uma pasta caixa de diálogo aparece, clique no botão procurar para selecionar uma pasta para salvar os anexos destacados, verifique a Crie subpastas no estilo seguinte caixa e, em seguida, especifique um estilo de pasta na lista suspensa. Finalmente, clique no botão OK botão. Ver captura de tela:

4. Na abertura Desanexar tudo caixa de diálogo, clique no botão Sim botão.

5. Então uma Kutools for Outlook caixa de diálogo exibida para indicar quantos anexos são destacados com sucesso, clique no botão OK botão:

Se você quiser ter uma versão gratuita deste utilitário, acesse baixar gratuitamente o software primeiro, e depois vá para aplicar a operação de acordo com as etapas acima.


Demonstração: Salve todos os anexos de vários e-mails na pasta com o Kutools for Outlook

Kutools for Outlook inclui 20 + recursos e ferramentas poderosas para o Microsoft Outlook. Gratuito para tentar sem limitação nos dias 45. Baixe o teste gratuito agora!


Artigos relacionados:



Kutools for Outlook

Mais do que 100 Funções avançadas para o Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools para outlook minúsculo para banner 201812

mais recursos | Download grátis | Apenas $ 39.00 para centenas de funções

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.
    BG Davis · 5 days ago
    So I click the link "Kutools for outlook" and I'm directed to a page that is not that, but "Kutools - Combines More Than 300 Advanced Functions and Tools for Microsoft Excel."

    Nothing about Outlook. Waste of time.
  • 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