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.
Importer msg-filer fra filsystemet til Outlook-mappen med VBA-kode
Importer msg-filer fra filsystemet til Outlook-mappen med VBA-kode
Gør som følger 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. Kopier derefter under VBA-koden i modulvinduet.
VBA-kode: Importer msg-filer fra filsystemet til Outlook-mappen
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 As Outlook.Folder
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
Set xSelFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Select a folder:", 0, 0)
If Not TypeName(xSelFolder) = "Nothing" Then
xSourceFldPath = xSelFolder.self.Path + "\"
Else
xSourceFldPath = ""
Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
Exit Sub
End If
For Each xFileItem In xSourceFld.Files
Set xMSG = Session.OpenSharedItem(xFileItem.Path)
Set xMailItem = xMSG.Copy
xMailItem.Move xSaveFld
Set xMailItem = Nothing
xMSG.Delete
Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub
3. Tryk på F5 nøgle for at køre koden. I åbningen Gennemse for mappe i dialogboksen, vælg mappen, der indeholder de msg-filer, du vil importere til Outlook-mappen, og klik derefter på OK knap. Se skærmbillede:
4. Nu en Vælg mappe dialogboksen vises, skal du vælge en Outlook mappen for at gemme de importerede msg-filer, og klik på OK .
Derefter importeres alle msg-filer i en bestemt mappe i dit filsystem med det samme til en bestemt Outlook-mappe.
Gem nemt valgte e-mails som forskellige formatfiler i Outlook:
Med Massebesparelse nytte af Kutools til Outlook, kan du nemt gemme flere valgte e-mails som individuel HTML-formatfil, TXT-formatfil, Word-dokument, CSV-fil samt PDF-fil i Outlook som nedenstående demo vist.
Download og prøv det nu! (60-dages gratis spor)
Relaterede artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!