Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan importere msg filer fra filsystemet til Outlook-mappen?

Normalt kan du importere msg filer fra filsystemet til en Outlook-mappe ved å dra og slippe. I denne artikkelen skal vi vise deg en enkel metode for å importere alle msg-filer fra et filsystem til en spesifisert Outlook-mappe i detaljer.

Importer msg filer fra filsystemet til Outlook-mappen med VBA-kode


Lagre enkelt utvalgte e-poster som forskjellige formatfiler i Outlook:

Med Save as File-verktøyet for Kutools for Outlook kan du enkelt lagre flere valgte emailsas individuelle HTML-formatfiler, TXT-formatfil, Word-dokument, CSV-fil og PDF-fil i Outlook som vist under skjermbilde.

Kutools for Outlook: Med mer enn 40-praktiske Outlook-tillegg, gratis å prøve uten begrensning i 45-dager. Last ned og gratis prøveversjon nå!


Importer msg filer fra filsystemet til Outlook-mappen med VBA-kode

Vennligst gjør følgende for å importere msg-filer fra filsystemet til en spesifisert mappe i Outlook.

1. trykk andre + F11 nøkler for å åpne Microsoft Visual Basic for Applications vinduet.

2. I Microsoft Visual Basic for Applications vinduet klikker innfelt > Modules. Kopier deretter under VBA-koden til modulvinduet.

VBA-kode: Importer msg filer fra filsystemet til Outlook-mappen

Sub ImportMessagesInFolder () Dim xFSO Som Scripting.FileSystemObject Dim xSourceFld Som Scripting.Folder Dim xSourceFldPath Som String Dim xFileItem Som Scripting.File Dim xMSG Som Objekt Dim xMailItem Som MailItem Dim xSaveFld Som Outlook.Folder På Feil Fortsett Neste Sett xFSO = Ny Skripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Velg en mappe:", 0, 0) Hvis ikke TypeName (xSelFolder) = "Ingenting", så xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Avslutt subendre Hvis Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Sett xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Hvis TypeName (xSaveFld) = "Ingenting" Så avslutt Sub End Hvis For hver xFileItem I xSourceFld.Files Sett xMSG = Session.OpenSharedItem (xFileItem.Path) Sett xMailItem = xMSG.Copy xMailItem.Move xSaveFld Sett xMailItem = Ingenting xMSG.Delete Sett xMSG = Ingenting Neste xFileItem Set xFileItem = Ingenting Angi xSourceFld = Ingenting angi xFSO = N othing End Sub

3. trykk F5 nøkkel for å kjøre koden. I åpningen Bla etter mappe dialogboksen, velg mappen inneholder msg-filene du vil importere til Outlook-mappen, og klikk deretter på OK knapp. Se skjermbilde:

4. Nå a Velg mappe dialogboksen dukker opp, velg en Outlook mappe for å lagre de importerte msg-filene, og klikk på OK knapp.

Deretter importeres alle msg-filer i en bestemt mappe i filsystemet ditt umiddelbart til en spesifisert Outlook-mappe.


Relaterte artikler:



Anbefalte produktivitetsverktøy

Office-fanen

gull star1 Ta med praktiske faner til Excel og annen Office-programvare, akkurat som Chrome, Firefox og ny Internet Explorer.

Kutools for Excel

gull star1 Fantastisk! Øk produktiviteten din i 5 minutter. Trenger ikke noen spesielle ferdigheter, lagre to timer hver dag!

gull star1 300 Nye funksjoner for Excel, gjør Excel veldig enkelt og kraftig:

  • Slett Cell / Rows / Columns uten å miste data.
  • Kombinere og konsolidere flere ark og arbeidsbøker.
  • Sammenlign Ranges, Kopier flere ranger, Konverter tekst til dato, Enhet og Valutaomregning.
  • Telling av farger, personsøkende subtotaler, avansert sortering og superfilter,
  • Mer Velg / Sett inn / Slett / Tekst / Format / Link / Kommentar / Arbeidsbøker / Regneark Verktøy ...

Skjermbilde av Kutools for 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.