Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

Como salvar vários e-mails selecionados como arquivos MSG em massa no Outlook?

Author Siluvia Last modified

É 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:

the screenshot of step 1 about saving selected emails as msg files using vba in outlook

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

the screenshot of step 2 about saving selected emails as msg files using vba in outlook

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! 

ad about saving emails as multiple file formats in outlook with kutools for outlook

Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar e-mails com facilidade, incluindo responder, resumir, otimizar, estender, traduzir e criar e-mails.

📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP)  /  Agendar Enviar Email  /  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 Email individuais ...

📨 Gerenciamento de Email: Recallar Email  /  Bloquear emails fraudulentos por Assunto e outros critérios  /  Excluir Duplicado  /  Pesquisa Avançada  /  Organizar Pastas ...

📁 Anexos Pro: Salvar em Lote  /  Desanexar em Lote  /  Comprimir em Lote  /  Salvar automaticamente   /  Desanexar automaticamente  /  Auto Comprimir ...

🌟 Magia da Interface: 😊Mais emojis bonitos e legais   /  Notificações de emails importantes  /  Minimizar Outlook em vez de fechar ...

👍 Recursos de um clique: Responder a Todos com Anexos  /   Emails Anti-Phishing  /  🕘Exibir o fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados  /  Dividir um Grupo de Contatos em grupos individuais  /  Remover lembrete de aniversário ...

Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não espere, baixe agora e aumente sua eficiência!

kutools for outlook features1 kutools for outlook features2

🚀 Download com um clique — Baixe todos os complementos de Office

Recomendado fortemente: Kutools para Office (5 em1)

Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!

  • ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
  • 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
  • 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint