Salvar anexos de muitos e-mails de uma só vez no Outlook?


18

Alguém me enviou 200 e-mails durante a noite, com um anexo de arquivo cada. suspiro

Estou esperando mais 200 por noite pelas próximas três noites (os emails são de um servidor, portanto, não é possível pedir para agrupá-los em lotes).

Os anexos de arquivo têm nomes de arquivos exclusivos. Existe uma maneira simples de salvar os anexos de todo o grupo de e-mails de uma só vez?

Eu odiaria ter que abrir cada email individualmente, clicar com o botão direito, salvar, enxaguar, repetir ...

Sou fluente em VBA, muito confortável em criar macros do Excel, então posso imaginar que seja relativamente fácil atravessar uma determinada pasta para todas as mensagens e salvar anexos para cada uma, mas não escrevi uma macro do Outlook antes, não estou familiarizada com a hierarquia de objetos.

Respostas:


14

O OutlookAttachView do NirSoft pode fazer isso facilmente, mesmo na linha de comando!

O OutlookAttachView verifica todas as mensagens armazenadas no Outlook e exibe a lista de todos os arquivos anexados encontrados. Você pode selecionar facilmente um ou mais anexos e salvá-los na pasta desejada, além de excluir grandes anexos indesejados que ocupam muito espaço em disco na sua caixa de correio. Você também pode salvar a lista de anexos no arquivo xml / html / text / csv.

texto alternativo

O OutlookAttachView é um freeware.


Obrigado por este utilitário. Ajudei com o que eu queria fazer hoje de manhã: baixe 99 anexos em PDF na minha caixa de entrada de uma só vez.
Chaitanya MSV

6

Suplemento do Removedor de Anexos do Outlook :

Suplemento gratuito do Outlook para salvar e extrair anexos, diminuindo o tamanho dos arquivos do Outlook. Fácil de usar. Muitos recursos.

imagem


11
Isso não funcionou no Outlook 2013. O suplemento simplesmente não pode ser encontrado e não é reconhecido quando tentei carregá-lo manualmente.
Milind R

3

Aqui estão mais algumas opções com isso.

O site de Sue Mosher http://slipstick.com é um recurso fantástico para o Outlook. Ela também é MVP da Microsoft.

Para os codificadores disponíveis: Salve os anexos no disco rígido e, em alternativa, salve e abra um anexo usando o VBA .

O código a seguir funciona no Outlook 2000 e versões posteriores. Ele salva os anexos das mensagens selecionadas, mas não os apaga das mensagens.

...

Copie e cole o código desta página no seu projeto ThisOutlookSession.

No Outlook, pressione Alt + F11 para abrir o editor VBA e expanda Objetos do Microsoft Outlook e clique duas vezes em ThisOutlookSession para abri-lo no painel de edição e Ctrl + V para colar o código.

Para usá-lo, você deve primeiro criar uma pasta em Meus Documentos chamada OLAttachments (o código não a criará para você). Em seguida, selecione uma ou mais mensagens e execute a macro para salvar os anexos. Você precisará definir a segurança da macro para avisar antes de ativar as macros ou assinar a macro. Você pode alterar o nome ou o caminho da pasta em que os anexos são salvos, editando o código.

Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
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

    ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next

    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")

    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist
' You can change this to another folder name of your choice

    ' Set the Attachment folder.
    strFolderpath = strFolderpath & "\OLAttachments\"

    ' Check each selected item for attachments. 
    For Each objMsg In objSelection

    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count

    If lngCount > 0 Then

    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.

    For i = lngCount To 1 Step -1

    ' Get the file name.
    strFile = objAttachments.Item(i).FileName

    ' Combine with the path to the Temp folder.
    strFile = strFolderpath & strFile

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

    Next i
    End If

    Next

ExitSub:

Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub

E se você não deseja programar: Ferramentas de Gerenciamento de Anexos para Outlook


No meu caso, todos os meus e-mails tinham a mesma linha de assunto, de modo que cada arquivo substituiu o anterior, deixando-me com um único arquivo. A correção rápida e suja que eu fiz foi acrescentar um número de índice para garantir que cada arquivo seja garantido exclusivo, como este: abaixo das declarações atuais add: Dim Index As Longe next line Index = 1 Change: strFile = strFolderpath & strFileto strFile = strFolderpath & Index & "_" & strFile and before "Next i" add:Index = Index + 1
Stax

0

Depois que fui bombardeado com e-mails de uma pessoa que achou legal me enviar um arquivo RAR dividido em 30 e-mails, usei com sucesso esse script VBA publicado pela Microsoft chamado mAttachmentSaver.

Primeiro, você deve baixar o arquivo que contém o script .

É importante que as macros estejam ativadas. No Outlook 2010, você pode fazer isso acessando Arquivo »Opções» Central de Confiabilidade »Configurações da Central de Confiabilidade» Configurações de Macro »Habilitar todas as macros» OK »OK . Então você precisa reiniciar o Outlook. Para versões anteriores, está em Ferramentas »Macro» Segurança… .

Em seguida, siga as etapas descritas no artigo do TechCenter:

  • Pressione Alt+F11para abrir o VBE no Outlook.

  • Arraste o mAttachmentSaver.basarquivo para o Project Explorer (pressione Ctrl+Rse não o conseguir ver) ou via Arquivo >> Importar arquivo ... ( Ctrl+M).

    Execute a ExecuteSavingmacro para salvar anexos.

  • Volte para a interface do usuário do Outlook e pressione Alt+F8para abrir a janela Macros.

  • Selecione ExecuteSavingna lista de nomes e clique no botão Executar (lembre-se de selecionar os itens do Outlook antes de executar esta macro).

  • Selecione uma pasta específica para salvar os anexos na caixa de diálogo Procurar Pasta e clique no botão OK .

Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.