Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com importar fitxers de msg des del sistema de fitxers a la carpeta d'Outlook?

Normalment, podeu importar fitxers msg des del sistema de fitxers a una carpeta d'Outlook arrossegant-los i deixant-los caure. En aquest article, us mostrarem un mètode senzill per importar tots els fitxers msg d'un sistema de fitxers a una carpeta d'Outlook especificada en detalls.

Importeu fitxers msg del sistema de fitxers a la carpeta d'Outlook amb codi VBA


Desa fàcilment els correus electrònics seleccionats com a fitxers de format diferents a l'Outlook:

Amb la utilitat Save as File de Kutools for Outlook, podeu desar fàcilment diversos correus electrònics seleccionats com a fitxer de format HTML individual, fitxer de format TXT, document de Word, fitxer CSV, així com arxiu PDF a Outlook tal com es mostra a la captura de pantalla.

Kutools per Outlook: amb més complements d'Outlook de 40, gratuïts per intentar sense limitacions en 45 dies. Baixada i prova gratuïta Ara!


Importeu fitxers msg del sistema de fitxers a la carpeta d'Outlook amb codi VBA

Feu el següent per importar fitxers msg del sistema de fitxers a una carpeta especificada a Outlook.

1. Premeu el botó Alt + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls. A continuació, copieu el codi VBA per sota de la finestra del mòdul.

Codi VBA: Importar fitxers msg del sistema de fitxers a la carpeta d'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 Com Outlook.Folder On Error Reprendre Next Set xFSO = New Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Seleccioneu una carpeta:", 0, 0) Si no TypeName (xSelFolder) = "Nothing" Then xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Exit Sub End Si s'estableix xSourceFld = xFSO.GetFolder (xSourceFldPath) Estableix xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI".) PickFolder If TypeName (xSaveFld) = "Nothing" Llavors Exit Sub End Si per a cada xFileItem en xSourceFld.Files Establir xMSG = Session.OpenSharedItem (xFileItem.Path) Estableix xMailItem = xMSG.Copy xMailItem.Move xSaveFld Establir xMailItem = Res xMSG.Delete Set xMSG = Res Next Next xFileItem Set xFileItem = Res Estableix xSourceFld = Res estableix xFSO = N Othing End Sub

3. Premeu el botó F5 clau per executar el codi. A l'obertura Cerca la carpeta quadre de diàleg, seleccioneu la carpeta que conté els fitxers msg que importarà a la carpeta d'Outlook i, a continuació, feu clic a la icona OK botó Mostra la captura de pantalla:

4. Ara a Selecciona la carpeta quadre de diàleg apareix, seleccioneu un Outlook carpeta per desar els fitxers de missatges importats i feu clic a la icona OK botó.

A continuació, tots els fitxers de msg en una determinada carpeta del vostre sistema de fitxers s'importen immediatament a una carpeta d'Outlook especificada.


Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a 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.