Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Sådan importeres msg-filer fra filsystemet til Outlook-mappen?

Normalt kan du importere msg filer fra filsystemet til en Outlook-mappe ved at trække og slippe. I denne artikel vil vi vise dig en nem metode til at importere alle msg-filer fra et filsystem til en bestemt Outlook-mappe i detaljer.

Import msg filer fra filsystemet til Outlook-mappe med VBA-kode


Gem nemt valgte emails som forskellige formatfiler i Outlook:

Med værktøjet Gem som fil af Kutools for Outlook kan du nemt gemme flere valgte emailsas individuelle HTML-formatfiler, TXT-formatfil, Word-dokument, CSV-fil samt PDF-fil i Outlook som vist nedenfor.

Kutools til Outlook: Med mere end 40 handy Outlook-tilføjelser, kan du prøve uden begrænsning i 45 dage. Download og gratis prøveversion nu!


Import msg filer fra filsystemet til Outlook-mappe med VBA-kode

Gør følgende for at importere msg filer fra filsystemet til en bestemt mappe i Outlook.

1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Derefter kopieres under VBA-kode til modulvinduet.

VBA-kode: Importer msg filer fra filsystem til Outlook-mappe

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å Fejl Genoptag Næste Set xFSO = Ny Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Vælg en mappe:", 0, 0) Hvis ikke Typenavn (xSelFolder) = "Intet" Så xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Afslut subendre Hvis Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Indstil xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Hvis TypeName (xSaveFld) = "Intet" Derefter Exit Sub End Hvis For hver xFileItem I xSourceFld.Files Indstil xMSG = Session.OpenSharedItem (xFileItem.Path) Indstil xMailItem = xMSG.Copy xMailItem.Move xSaveFld Indstil xMailItem = Intet xMSG.Delete Indstil xMSG = Intet Næste xFileItem Indstil xFileItem = Intet Indstil xSourceFld = Intet sæt xFSO = N othing End Sub

3. Tryk på F5 nøgle til at køre koden. I åbningen Gennemse for mappe dialogboksen, vælg mappen indeholder de msg filer, du vil importere til Outlook-mappen, og klik derefter på OK knap. Se skærmbillede:

4. Nu a Vælg mappe dialogboksen dukker op, vælg venligst en Outlook mappe for at gemme de importerede msg filer, og klik på knappen OK knappen.

Derefter importeres alle msg-filer i en bestemt mappe i dit filsystem til en bestemt Outlook-mappe med det samme.


Relaterede artikler:



Anbefalede produktivitetsværktøjer

Office-fanen

guld star1 Medbring praktiske faner til Excel og andre Office-software, ligesom Chrome, Firefox og nye Internet Explorer.

Kutools til Excel

guld star1 Fantastiske! Forøg din produktivitet i 5 minutter. Har ikke brug for særlige færdigheder, spar to timer hver dag!

guld star1 300 Nye funktioner til Excel, gør Excel meget nemt og kraftfuldt:

  • Fusionere celler / rækker / kolonner uden at miste data.
  • Kombiner og konsolidér flere ark og arbejdsbøger.
  • Sammenlign ranges, kopier flere rækker, konverter tekst til dato, enheds- og valutaomregning.
  • Tæl efter farver, Personsøgning Subtotaler, Avanceret Sort og Super Filter,
  • Mere Vælg / Indsæt / Slet / Tekst / Format / Link / Kommentar / Arbejdsbøger / Regneark Værktøjer ...

Skærmbillede af Kutools til 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.