Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Regista-te
x

or

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 especificada do Outlook em detalhes.

Importar arquivos msg do sistema de arquivos para a pasta do Outlook com o código VBA


Salve facilmente os e-mails selecionados como arquivos de formato diferentes no Outlook:

Com o utilitário Salvar como arquivo do 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 e PDF no Outlook, como mostra a imagem abaixo.

Kutools for Outlook: com mais de 40 acessíveis suplementos do Outlook, pode tentar sem limitação em dias 45. Baixe e teste grátis agora!


Importar arquivos msg do sistema de arquivos para a pasta do Outlook com o código VBA

Por favor, 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 abaixo o código VBA na janela Módulo.

Código VBA: Importar arquivos msg do sistema de arquivos para a pasta do Outlook

Sub ImportMessagesInFolder () Dim xFSO Como Scripting.FileSystemObject Dim xSourceFld Como Scripting.Folder Dim xSourceFldPath Como String Dim xFileItem Como Scripting.File Dim xMSG Como Objeto Dim xMailItem Como MailItem Dim xSaveFld Como Outlook.Folder Em Erro Retomar Próximo Definir xFSO = Novo Scripting. FileSystemObject Set xSelFolder = CriarObjeto ("Shell.Application"). BrowseForFolder (0, "Selecione uma pasta :", 0, 0) Se Não NomeDoTipo (xSelFolder) = "Nada" Então xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Sair Sub End Se Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Definir xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Se TypeName (xSaveFld) = "Nothing" Em seguida, sair Sub final se para cada xFileItem em xSourceFld.Files Definir xMSG = Session.OpenSharedItem (xFileItem.Path) Definir xMailItem = xMSG.Copy xMailItem.Move xSaveFld Definir xMailItem = Nothing xMSG.Delete Definir xMSG = Nothing Próximo xFileItem Definir xFileItem = Nothing Definir xSourceFld = Nothing Set xFSO = N Nada End Sub

3. 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. Ver captura de tela:

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 no sistema de arquivos são importados para uma pasta do Outlook especificada imediatamente.


Artigos relacionados:



Ferramentas de produtividade recomendadas

Office Tab

ouro star1 Traga guias úteis para o Excel e outros softwares do Office, como o Chrome, o Firefox e o novo Internet Explorer.

Kutools for Excel

ouro star1 Surpreendente! Aumente sua produtividade em minutos 5. Não precisa de habilidades especiais, economize duas horas por dia!

ouro star1 300 Novos recursos para o Excel, Faça o Excel muito fácil e poderoso:

  • Mesclar células / linhas / colunas sem perder dados.
  • Combine e Consolide várias folhas e pastas de trabalho.
  • Comparar intervalos, copiar intervalos múltiplos, converter texto para data, unidade e conversão de moeda.
  • Contagem de cores, subtotais de paginação, classificação avançada e super filtro,
  • Mais Selecionar / Inserir / Excluir / Texto / Formato / Link / Comentário / Guias de trabalho / Ferramentas de trabalho ...

Tira de tela de Kutools para Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.