Consello: outros idiomas están traducidos a Google. Podes visitar o English versión desta ligazón.
Iniciar sesión
x
or
x
x
Register
x

or

Como importar ficheiros msg desde o sistema de ficheiros ao cartafol Outlook?

Normalmente, pode importar ficheiros msg do sistema de ficheiros a unha carpeta de Outlook arrastrando e soltando. Neste artigo, imos amosarlle un método sinxelo para importar todos os ficheiros msg dun sistema de ficheiros a un cartafol de Outlook especificado nos detalles.

Importar ficheiros msg desde o sistema de ficheiros ata o cartafol Outlook con código VBA


Aforrar facilmente correos electrónicos seleccionados como ficheiros de formato diferentes en Outlook:

Coa utilidade Gardar como ficheiro de Kutools para Outlook, pode gardar facilmente varios correos electrónicos seleccionados no ficheiro de formato HTML individual, ficheiro de formato TXT, documento de Word, ficheiro CSV, así como PDF en Outlook como se mostrou a continuación.

Kutools para Outlook: con complementos de Outlook máis que 40, gratuitos para probar sen ningunha limitación en 45 días. Descarga e proba gratuíta Agora!


Importar ficheiros msg desde o sistema de ficheiros ata o cartafol Outlook con código VBA

Faga o seguinte para importar ficheiros msg do sistema de ficheiros a unha carpeta especificada en Outlook.

1. Preme o botón alt + F11 chaves para abrir a Microsoft Visual Basic para aplicacións fiestra.

2. No Microsoft Visual Basic para aplicacións fiestra, prema en Inserir > Módulos. A continuación, copia debaixo do código VBA na xanela do módulo.

Código VBA: Importar ficheiros de msg dende o sistema de ficheiros ata o cartafol Outlook

Sub ImportMessagesInFolder () Dim xFSO As Scripting.FileSystemObject Dim xSourceFld Como Scripting.Folder Dim xSourceFldPath As String Dim xFileItem As Scripting.File Dim xMSG Como obxecto Dim xMailItem As MailItem Dim xSaveFld Como Outlook.Folder On Error Reanudar o seguinte conxunto xFSO = New Scripting. Conxunto de ficheiroSystemObject xSelFolder = CreateObject ("Shell.Application"). BuscarForFolder (0, "Seleccione un cartafol:", 0, 0) Se non TipoName (xSelFolder) = "Nada" XSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Exit Sub End se establece xSourceFld = xFSO.GetFolder (xSourceFldPath) Establecer xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Se TypeName (xSaveFld) = "Nada" A continuación, Exit Sub End If para cada xFileItem en xSourceFld.Files Establecer xMSG = Session.OpenSharedItem (xFileItem.Path) Establecer xMailItem = xMSG.Copy xMailItem.Move xSaveFld Establecer xMailItem = Nada xMSG.Delete Set xMSG = Nada Seguinte xFileItem Set xFileItem = Nada Establecer xSourceFld = Nothing Set xFSO = N othing End Sub

3. Preme o botón F5 chave para executar o código. Na apertura Buscar por cartafol caixa de diálogo, seleccione o cartafol que contén os ficheiros msg que importará ao cartafol Outlook e, a continuación, prema no OK botón. Ver captura de pantalla:

4. Agora a Seleccionar cartafol aparece un cadro de diálogo, seleccione un Perspectiva para gardar os ficheiros de mensaxe importados e prema no botón OK botón.

A continuación, todos os ficheiros msg nunha carpeta determinada do seu sistema de ficheiros importaranse inmediatamente nun cartafol de Outlook especificado.


Artigos relacionados:



Ferramentas de produtividade recomendadas

Tabulación de Office

estrela de ouro1 Traia páxinas útiles para Excel e outro software de Office, como Chrome, Firefox e Internet Explorer novo.

Kutools para Excel

estrela de ouro1 Sorprendente! Aumenta tu productividad en 5 minutos. Non necesitas habilidades especiais, garda dúas horas todos os días.

estrela de ouro1 300 Novidades para Excel, Excel moi fácil e poderoso:

  • Combina celas / filas / columnas sen perder datos.
  • Combina e consolida varias follas e libros de traballo.
  • Comparar intervalos, copiar varios intervalos, converter texto a data, conversión de unidade e moeda.
  • Conta por cores, subtotales de paginación, clasificación avanzada e filtro super,
  • Máis Seleccionar / Inserir / Eliminar / Texto / Formato / Ligazón / Comentario / Libros / Follas de ferramentas ...

Pantalla 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.