Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

Hur importeras msg-filer från filsystemet till Outlook-mappen?

Normalt kan du importera msg-filer från filsystemet till en Outlook-mapp genom att dra och släppa. I den här artikeln kommer vi att visa dig en enkel metod för att importera alla msg-filer från ett filsystem till en angiven Outlook-mapp i detaljer.

Importera msg-filer från filsystemet till Outlook-mappen med VBA-kod


Spara enkelt valda e-postmeddelanden som olika formatfiler i Outlook:

Med Save as File-verktyget för Kutools for Outlook kan du enkelt spara flera valda emailsas enskilda HTML-formatfiler, TXT-formatfiler, Word-dokument, CSV-filer och PDF-filer i Outlook enligt nedan.

Kutools för Outlook: med mer än 40 användbara Outlook-tillägg, gratis att prova utan begränsning i 45 dagar. Ladda ner och gratis test nu!


Importera msg-filer från filsystemet till Outlook-mappen med VBA-kod

Gör så här för att importera msg-filer från filsystemet till en angiven mapp i Outlook.

1. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Infoga > Modulerna. Kopiera sedan under VBA-kod till modulfönstret.

VBA-kod: Importera msg-filer från filsystemet till 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 Object Dim xMailItem Som MailItem Dim xSaveFld Som Outlook.Folder On Error Fortsätt Nästa Set xFSO = New Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Välj en mapp:", 0, 0) Om inte typnamn (xSelFolder) = "Inget" Då xSourceFldPath = xSelFolder.self.Path + "\" Alternativet xSourceFldPath = " Därefter Avsluta slutändan Om för varje xFileItem I xSourceFld.Files Ange xMSG = Session.OpenSharedItem (xFileItem.Path) Ange xMailItem = xMSG.Copy xMailItem.Move xSaveFld Ange xMailItem = Inget xMSG.Delete Ange xMSG = Inget Nästa xFileItem Ställ xFileItem = Ingenting Ange xSourceFld = Inget Ange xFSO = N Othing End Sub

3. tryck på F5 nyckeln för att köra koden. I öppningen Bläddra för mapp dialogrutan väljer du mappen innehåller de msg-filerna du vill importera till Outlook-mappen och klickar sedan på OK knapp. Se skärmdump:

4. Nu a Välj mapp dialogrutan dyker upp, vänligen välj en utsikterna mapp för att spara de importerade msg-filerna och klicka på OK knapp.

Då importeras alla msg-filer i en viss mapp i ditt filsystem direkt till en angiven Outlook-mapp.


Relaterade artiklar:


Excel-produktivitetsverktyg

Ribbon of Excel (med Kutools for Excel installerat)

300 + Avancerade funktioner Öka produktiviteten med 70%, och hjälpa dig att sticka ut ur folkmassan!

Vill du fullfölja ditt dagliga arbete snabbt och perfekt? Kutools för Excel ger 300 + coola och kraftfulla avancerade funktioner (Kombinera arbetsböcker, summa efter färg, delad cellinnehåll, konvertera datum och så vidare ...) för 1500 + arbetsscenarier, hjälper dig att lösa 80% Excel-problem.

  • Hantera alla komplicerade uppgifter på några sekunder, hjälpa till att förbättra din arbetsförmåga, få framgång från den hårda konkurrensen, och aldrig oroa dig för att bli avfyrade.
  • Spara mycket arbetstid, lämna mycket tid för att du ska älska och ta hand om familjen och njuta av ett bekvämt liv nu.
  • Minska tusentals tangentbord och musklick varje dag, lätta dina trötta ögon och händer, och ge dig en hälsosam kropp.
  • Bli en Excel-expert på 3-minuter och få beundransvikt från dina kollegor eller vänner.
  • Behöver inte längre komma ihåg några smärtsamma formler och VBA-koder, ha ett avkopplande och trevligt sinne, ge dig en spänning som du aldrig haft tidigare.
  • Tillbringa endast $ 39, men värt än $ 4000 träning av andra. Används av 110,000 elites och 300 + kända företag.
  • 60-dagen obegränsad gratis provperiod. 60-dagars pengarna tillbaka garanti. Gratis uppgradering och support för 2 år. Köp en gång, använd alltid.
  • Ändra hur du jobbar nu, och ge dig ett bättre liv omedelbart!

Fliken Office ger effektiva och praktiska flikar till Office (inkluderar Excel), precis som Chrome, Firefox och New IE

  • Ökar din produktivitet med 50% när du tittar på och redigerar flera dokument.
  • Minska hundratals musklick för dig varje dag, säg farväl till musens hand.
  • Öppna och skapa dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Hjälper dig att arbeta snabbare och lätt sticka ut från mängden! En sekund för att växla mellan dussintals öppna dokument!
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 · 11 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.