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

Author: Kelly Last Modified: 2025-08-06

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.