Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

Como salvar automaticamente e-mails do Outlook no disco rígido?

Author Kelly Last modified

Para backup, evidências de trabalho ou outros fins, você pode querer salvar os e-mails do Outlook no disco rígido. É fácil salvar vários e-mails no disco arrastando-os manualmente do Outlook para o disco. No entanto, você sabe como salvar automaticamente cada e-mail recebido no disco? Este artigo apresentará um VBA para lidar com isso no Outlook.

Salvar automaticamente e-mails do Outlook no disco rígido

Salvar automaticamente e-mails do Outlook no disco rígido

Este método apresentará um VBA para salvar automaticamente cada e-mail recebido no Outlook como um arquivo HTML individual em um disco específico. Por favor, siga os passos abaixo:

1. Pressione as teclas "Alt" + "F11" para abrir a janela Microsoft Visual Basic for Applications.

2. Expanda o Projeto1 e clique duas vezes em "ThisOutlookSession" para abri-lo e, em seguida, cole o código VBA abaixo na janela ThisOutlookSession. Veja a captura de tela:

VBA: Salvar automaticamente e-mails do Outlook como arquivos HTML no disco

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
    Dim xNameSpace As Outlook.NameSpace
    Set xNameSpace = Outlook.Application.Session
    Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
    Dim FSO
    Dim xMailItem As Outlook.MailItem
    Dim xFilePath As String
    Dim xRegEx
    Dim xFileName As String
    On Error Resume Next
    xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
    xFilePath = xFilePath & "\MyEmails"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FolderExists(xFilePath) = False Then
        FSO.CreateFolder (xFilePath)
    End If
    Set xRegEx = CreateObject("vbscript.regexp")
    xRegEx.Global = True
    xRegEx.IgnoreCase = False
    xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
    If objItem.Class = olMail Then
        Set xMailItem = objItem
        xFileName = xRegEx.Replace(xMailItem.Subject, "")
        xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
    End If
    Exit Sub
End Sub

3. Salve o código VBA e reinicie seu Microsoft Outlook.

A partir de agora, cada e-mail recebido será salvo como um arquivo HTML individual na pasta “MyEmails”.

Notas:
(1) Este VBA criará uma pasta chamada “MyEmails” dentro da pasta Documentos. Você pode encontrar os e-mails salvos automaticamente usando este caminho de pasta: C:\Users\seu_nome_de_usuário\Documents\MyEmails
(2) Este VBA funcionará com e-mails recebidos na Caixa de Entrada da conta de e-mail padrão.

Artigos Relacionados

Como exportar e-mails em massa/selecionados para arquivos Excel/Texto/PST no Outlook?

Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar e-mails com facilidade, incluindo responder, resumir, otimizar, estender, traduzir e criar e-mails.

📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP)  /  Agendar Enviar Email  /  CC/BCC automático por Regra ao Enviar Email  /  Encaminhamento automático (Regra avançada)   /  Adicionar Saudação automaticamente   /  Dividir automaticamente Emails com múltiplos destinatários em Email individuais ...

📨 Gerenciamento de Email: Recallar Email  /  Bloquear emails fraudulentos por Assunto e outros critérios  /  Excluir Duplicado  /  Pesquisa Avançada  /  Organizar Pastas ...

📁 Anexos Pro: Salvar em Lote  /  Desanexar em Lote  /  Comprimir em Lote  /  Salvar automaticamente   /  Desanexar automaticamente  /  Auto Comprimir ...

🌟 Magia da Interface: 😊Mais emojis bonitos e legais   /  Notificações de emails importantes  /  Minimizar Outlook em vez de fechar ...

👍 Recursos de um clique: Responder a Todos com Anexos  /   Emails Anti-Phishing  /  🕘Exibir o fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados  /  Dividir um Grupo de Contatos em grupos individuais  /  Remover lembrete de aniversário ...

Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não espere, baixe agora e aumente sua eficiência!

kutools for outlook features1 kutools for outlook features2

🚀 Download com um clique — Baixe todos os complementos de Office

Recomendado fortemente: Kutools para Office (5 em1)

Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!

  • ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
  • 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
  • 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint