Este método introduzirá um VBA para salvar automaticamente todos os e-mails recebidos no Outlook como um arquivo HTML individual no disco específico. Faça o seguinte:

1. pressione outro + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Expanda o Projeto1 e clique duas vezes Esta sessão do Outlook para abri-lo e, em seguida, cole o código VBA abaixo na janela ThisOutlookSession. Veja a imagem:

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 do VBA e reinicie o 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” na pasta Documentos. Você pode descobrir os e-mails salvos automaticamente com este caminho de pasta: C: \ Users \ your_user_name \ Documents \ MyEmails
(2) Este VBA funcionará com emails recebidos na pasta Caixa de entrada da conta de email padrão.

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