Como importar arquivos msg do sistema de arquivos para a pasta do Outlook?
Normalmente, você pode importar arquivos msg do sistema de arquivos para uma pasta do Outlook arrastando e soltando. Neste artigo, vamos mostrar um método fácil para importar todos os arquivos msg do sistema de arquivos para uma pasta específica do Outlook em detalhes.
Importar arquivos msg do sistema de arquivos para a pasta do Outlook com código VBA
Importar arquivos msg do sistema de arquivos para a pasta do Outlook com código VBA
Por favor, siga as instruções abaixo para importar arquivos msg do sistema de arquivos para uma pasta específica no Outlook.
1. Pressione 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. Em seguida, copie o código VBA abaixo na janela Módulo.
Código VBA: Importar arquivos msg do sistema de arquivos para a pasta do Outlook
Sub ImportMessagesInFolder()
Dim xFSO As Scripting.FileSystemObject
Dim xSourceFld As Scripting.Folder
Dim xSourceFldPath As String
Dim xFileItem As Scripting.File
Dim xMSG As Object
Dim xMailItem As MailItem
Dim xSaveFld As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder:", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
xSourceFldPath = xSelFolder.self.Path + "\"
Else
xSourceFldPath = ""
Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
Exit Sub
End If
For Each xFileItem In xSourceFld.Files
Set xMSG = Session.OpenSharedItem(xFileItem.Path)
Set xMailItem = xMSG.Copy
xMailItem.Move xSaveFld
Set xMailItem = Nothing
xMSG.Delete
Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub
3. Pressione a tecla F5 para executar o código. Na caixa de diálogo Procurar Pasta que será aberta, selecione a pasta que contém os arquivos msg que deseja importar para a pasta do Outlook e clique no botão OK. Veja a captura de tela:

4. Agora aparecerá uma caixa de diálogo Selecionar Pasta, por favor, selecione uma pasta do Outlook para salvar os arquivos msg importados e clique no botão OK.

Todos os arquivos msg em uma determinada pasta do seu sistema de arquivos serão importados imediatamente para uma pasta específica do Outlook.
Salve facilmente e-mails selecionados em diferentes formatos de arquivo no Outlook:
Com o Salvar em Massa utilitário do Kutools para Outlook, você pode facilmente salvar vários e-mails selecionados como arquivos individuais no formato HTML, TXT, documento Word, arquivo CSV, bem como PDF no Outlook, conforme mostrado na demonstração abaixo.
Baixe agora a versão gratuita do Kutools para Outlook! /a>
Artigos relacionados:
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!