Como salvar vários e-mails selecionados como arquivos MSG em massa no Outlook?
É fácil salvar um e-mail como um arquivo MSG no Outlook. Como você pode salvar vários e-mails selecionados como arquivos MSG individuais em massa no Outlook? Este artigo mostrará um método para alcançar isso.
Salvar vários e-mails selecionados como arquivos MSG com código VBA
Salvar vários e-mails selecionados como arquivos MSG com código VBA
O seguinte código VBA pode ajudá-lo a salvar vários e-mails selecionados como arquivos MSG individuais em massa no Outlook. Por favor, siga os passos abaixo.
1. Selecione os e-mails que deseja salvar como arquivos MSG. Em seguida, pressione simultaneamente as teclas "Alt" + "F11" para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em "Inserir" > "Módulo", e depois copie o código VBA abaixo na janela Módulo.
Código VBA: Salvar vários e-mails selecionados como arquivos MSG individuais no Outlook
Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
If xObjItem.Class = olMail Then
Set xMail = xObjItem
xName = xMail.Subject
xDtDate = xMail.ReceivedTime
xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(xDtDate, "-hhnnss", _
vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
xPath = xFileName + xName
xMail.SaveAs xPath, olMSG
End If
Next
End Sub
3. Pressione a tecla "F5" para executar o código.
4. Na caixa de diálogo "Procurar Pasta", especifique uma pasta para salvar os arquivos MSG e depois clique no botão "OK". Veja a captura de tela:

Agora todos os e-mails selecionados são salvos como arquivos MSG individuais, conforme mostrado na captura de tela abaixo.

Salve facilmente e-mails selecionados em diferentes formatos de arquivo no Outlook:
Com o utilitário "Bulk Save" do "Kutools for Outlook", você pode facilmente salvar vários e-mails selecionados como arquivos individuais no formato HTML, arquivos no formato TXT, documentos do Word, arquivos CSV, bem como arquivos PDF no Outlook, conforme mostrado na captura de tela abaixo. Baixe agora a versão gratuita do Kutools for 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...

