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çá-lo.
Salve vários e-mails selecionados como arquivos MSG com código VBA
Salve 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. Faça o seguinte.
1. Selecione os e-mails que deseja salvar como arquivos MSG. Em seguida, pressione as teclas Alt + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir> Módulo e, em seguida, copie o código VBA abaixo para a janela Módulo.
Código VBA: Salve 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 clique no botão OK. Veja a imagem:
Agora, todos os e-mails selecionados são salvos como arquivos MSG individuais, conforme a imagem mostrada abaixo.
Salve facilmente e-mails selecionados como arquivos de formatos diferentes no Outlook:
Com o Salvar em massa utilidade de Kutools for Outlook, você pode salvar facilmente vários e-mails selecionados como arquivo de formato HTML individual, arquivo de formato TXT, documento do Word, arquivo CSV, bem como arquivo de PDF no Outlook, conforme mostrado a imagem abaixo. Baixe e experimente agora! (trilha gratuita de 60 dias)
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.