Como salvar automaticamente e-mails do Outlook no disco rígido?
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 agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / 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 mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
