Se você trabalha em um setor onde recebe inúmeros e-mails todos os dias, provavelmente receberá muitos e-mails com vários anexos. Usar um método manual para extrair anexos pode ser demorado se houver muitos para baixar. Felizmente, é fácil salvar vários anexos de e-mail de uma só vez usando o Microsoft Outlook.
Neste tutorial, mostraremos como baixar todos os anexos do Outlook.
Como baixar todos os anexos de e-mail do Microsoft Outlook de uma só vez no Windows
Para baixar todos os anexos de uma vez usando o aplicativo Windows Microsoft Outlook, faça o seguinte:
Como baixar todos os anexos de e-mail do Microsoft Outlook de uma só vez no Mac
Veja como baixar todos os anexos usando o Outlook para Mac:
Como baixar vários anexos do Outlook de vários e-mails
Também é possível baixar vários anexos de vários e-mails de uma só vez. Para fazer isso:
Usar códigoVBA
Se você estiver usando o Outlook 2019, 2016, 2013, 2010, 2007 ou 2003, poderá usar Editor VBA para baixar vários anexos de vários e-mails.
Dim GContagem como número inteiro
Dim GFilepath como string
Sub SaveAttachments públicos()
'Atualização 20200821
Dim xMailItem como Outlook.MailItem
Dim xAttachments como Outlook.Attachments
Dim xSelection como Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath como string, xFolderPath como string, xSaveFiles como string
Em caso de erro, retomar próximo
xFolderPath = CreateObject(“WScript.Shell”).SpecialFolders(16)
Definir xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & “\Anexos\”
Se VBA.Dir(xFolderPath, vbDirectory) = vbNullString Então
VBA.MkDir xFolderPath
Terminar se
GFilepath = “”
Para cada xMailItem em xSelection
Definir xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = “”
Se xAttCount >0 Então
Para i = xAttCount para 1 Etapa -1
GContagem = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
Se IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
Se xMailItem.BodyFormat <>olFormatHTML então
xSaveFiles = xSaveFiles & vbCrLf & “
Outra coisa
xSaveFiles = xSaveFiles & “
” & “” & xFilePath & “ ”
Terminar se
Terminar se
Próximo eu
Terminar se
Próximo
Definir xAttachments = Nada.
Definir xMailItem = Nada
Definir xSelection = Nada
Finalizar sub
Função FileRename(FilePath As String) As String
Dim xPath como string
Dim xFso como FileSystemObject
Em caso de erro, retomar próximo
Definir xFso = CreateObject(“Scripting.FileSystemObject”)
xPath = CaminhodoArquivo
FileRename = xPath
Se xFso.FileExists(xPath) Então
GContagem = GContagem + 1
xPath = xFso.GetParentFolderName(GFilepath) & “\” & xFso.GetBaseName(GFilepath) & ” ” & GCount & “.” + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
Terminar se
xFso = Nada
Função final
Função IsEmbeddedAttachment(Anexar como anexo)
Dim xItem como MailItem
Dim xCid como string
Dim xID como string
Dim xHtml como string
Em caso de erro, retomar próximo
IsEmbeddedAttachment = Falso
Definir xItem = Attach.Parent
Se xItem.BodyFormat <>olFormatHTML, então saia da função
xCid = “”
xCid = Attach.PropertyAccessor.GetProperty(“http://schemas.microsoft.com/mapi/proptag/0x3712001F”)
Se xCid <>“” Então
xHtml = xItem.HTMLBody
xID = “cid:” & xCid
Se InStr(xHtml, xID) >0 Então
IsEmbeddedAttachment = Verdadeiro
Terminar se
Terminar se
Função final
Observação: você pode copiar o código original acima do Extend Office e colá-lo no editor.
Usando uma ferramenta externa
Se você estiver usando outra versão do Outlook, quiser fazer o download do um tipo de arquivo diferente de PST ou achar o método VBA complicado, baixe uma ferramenta que pode ajudá-lo a baixar vários anexos do Outlook de uma só vez.
Aplicativos como Extrator de anexos do Outlook têm a funcionalidade de salvar anexos não apenas de arquivos PST, mas também de outros formatos de arquivo, como arquivos OST, BAK, MSG, OLK e OLM. Você também pode configurar o aplicativo para filtrar anexos por tamanho de arquivo, data ou remetente.
Como baixar todos os anexos de um arquivo corrompido
Se você não conseguir abrir, visualizar ou salvar anexos de arquivo no Outlook, o arquivo PST do Microsoft Outlook pode estar corrompido ou danificado. Você pode reparar o arquivo PST recuperar o anexo usando ferramentas como o aplicativo SCANPST.exe..
Para usar esta ferramenta, feche o Outlook e navegue até um dos seguintes locais, dependendo da sua versão do Outlook:
Em seguida, clique duas vezes em SCANPST.EXE.
Selecione Procurar, localize o arquivo de dados do Outlook que deseja verificar e pressione Iniciar.
Se a ferramenta encontrar erros, selecione Repararpara tentar corrigi-los. Depois de concluído, reinicie o Outlook e verifique se funciona agora.
Simplifique suas atividades por e-mail
Baixar vários arquivos do Outlook é fácil e você pode até baixar vários arquivos de vários e-mails de uma só vez. Se você achar os métodos integrados do Outlook muito difíceis, poderá baixar ferramentas como Extrator de anexos do Outlook para ajudá-lo.
.