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, mostraremos um método fácil para importar todos os arquivos msg de um 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 o código VBA
Importar arquivos msg do sistema de arquivos para a pasta do Outlook com o código VBA
Faça o seguinte para importar arquivos msg do sistema de arquivos para uma pasta especificada no Outlook.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a 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 Sub3. aperte o F5 chave para executar o código. Na abertura Procurar pasta caixa de diálogo, selecione a pasta que contém os arquivos msg que você importará para a pasta do Outlook e clique no botão OK botão. Veja a imagem:
4. Agora um Selecionar pasta caixa de diálogo aparece, selecione um Outlook pasta para salvar os arquivos msg importados e clique no OK botão.
Em seguida, todos os arquivos msg em uma determinada pasta em seu sistema de arquivos são importados para uma pasta Outlook especificada imediatamente.
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 PDF no Outlook, conforme a demonstração abaixo.
Baixe e experimente agora! (trilha gratuita de 60 dias)
Artigos relacionados:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
