Como guardar automaticamente os e-mails do Outlook no disco rígido ou num dispositivo de armazenamento?

Para fins de cópia de segurança, provas de trabalho ou outras necessidades, poderá querer guardar os seus e-mails do Outlook diretamente no disco rígido. Guardar vários e-mails manualmente é simples: basta arrastá-los do Outlook para uma pasta no disco. Mas sabe como guardar automaticamente cada e-mail recebido no disco? Este artigo apresenta um código VBA que o permite fazer exatamente isso no Outlook.

Guardar automaticamente os e-mails do Outlook no disco rígido/dispositivo de armazenamento

---

Guardar automaticamente os e-mails do Outlook no disco rígido/dispositivo de armazenamento

Este método introduz um código VBA que guarda automaticamente cada e-mail recebido no Outlook como ficheiros HTML individuais numa pasta específica do disco. Siga os passos abaixo:

1. Prima as teclas «Alt» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.

2. Expanda o Projeto1, clique duas vezes em «ThisOutlookSession» para o abrir e cole o código VBA abaixo na janela ThisOutlookSession. Veja a imagem:

VBA: Guardar automaticamente os e-mails do Outlook como Arquivo 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. Guarde o código VBA e reinicie o Microsoft Outlook.

A partir de agora, cada e-mail recebido será guardado como um ficheiro HTML individual na pasta «MyEmails».

Notas:
(1) Este código VBA cria automaticamente uma pasta com o nome «MyEmails» dentro da pasta Documentos. Pode encontrar os e-mails guardados neste caminho: Caminho do Arquivo: C:\Users\seu_nome_de_utilizador\Documents\MyEmails
(2) Este código VBA funciona com os e-mails recebidos na pasta Caixa de Entrada da conta de e-mail predefinida.

---

Artigos Relacionados

Como exportar e-mails selecionados ou em massa para um ficheiro do Excel, de texto ou PST no Outlook?