3 módszer az e-mailek Windows mappából való importálására az Outlook programba

Lehet, hogy több Outlook e-mailt mentett a Windows mappájába. Most, ha vissza szeretné importálni őket egy Outlook mappába, hogyan teheti meg? Ez a cikk 3 módszert tanít meg.

Mint mindannyian tudjuk, az Outlook beépített opcióval rendelkezik – „Mentés másként”, amellyel az e-maileket a Windows mappába mentheti. Nincs azonban olyan funkció, amellyel az exportált e-maileket újra hozzá lehetne adni az Outlook mappához. Ezért, ha vissza szeretné importálni az Outlook e-maileket az Outlookba, hogyan valósíthatja meg? A következőkben 3 módszert tanítunk meg. Bármelyiket kiválaszthatja ízlése szerint.

1. módszer: Húzza és húzza az importáláshoz

1. Már az elején el kell érnie a forrás Windows mappát, amely az Outlookba importálandó Outlook e-maileket tárolja.
2. Ezután indítsa el az Outlook alkalmazást.
3. Ezután nyissa meg az Outlook mappát, amelybe importálni szeretné az e-maileket.
4. Ezt követően szűkítenie kell a Windows mappaablakát és az Outlook ablakot is, amíg meg nem tudja tekinteni őket.
5. Ezután a Windows mappában kiválaszthatja az Outlook e-mailek egyikét, majd nyomja meg a „Ctrl + A” gombot az összes kiválasztásához.
6. Később áthúzhatja a kiválasztott e-maileket a látható Outlook mappába, például az alábbi képernyőképen:
7. Végül látni fogja, hogy az összes Outlook e-mailt importálta a Windows mappából az Outlook mappába, az alábbi képen látható módon:

2. módszer: Használja a „CreateItemFromTemplate” parancsot a VBA-ban

1. A start az Outlook főablakában nyomja meg az „Alt + F11” billentyűket.
2. Ezután hozzáférhet az Outlook VBA szerkesztő ablakához.
3. Ezután másolja be a következő VBA-kódot egy üres modulba.

Sub ImportAllOutlookEmailsfromLocaltoOutlook1()
    Dim objFileSystem As Object
    Dim strLocalFolderPath As String
    Dim objLocalFolder As Object
    Dim objTargetFolder As Outlook.Folder
    Dim objFiles As Object
    Dim objFile As Object
    Dim strFileType As String
    Dim objItem As Object
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
    strLocalFolderPath = strSelectedFolder("")
    Set objLocalFolder = objFileSystem.GetFolder(strLocalFolderPath)
    Set objFiles = objLocalFolder.Files
 
    'Set the target Outlook folder
    Set objTargetFolder = Session.GetDefaultFolder(olFolderInbox).folders("Ago")
 
    For Each objFile In objFiles
        strFileType = objFileSystem.GetExtensionName(objFile)
  
        If strFileType = "msg" Then
           Set objItem = Outlook.Application.CreateItemFromTemplate(objFile.Path)
 
           objItem.Move objTargetFolder
           'Delete the source file in the Windows folder
           'objFileSystem.DeleteFile (objFile.Path)
        End If
    Next
End Sub

Function strSelectedFolder(strStartFolder As String) As String
    Dim objShell As Object
    Dim objFolder As Object
 
    On Error Resume Next
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Select the source folder:", 0, strStartFolder)
 
    strSelectedFolder = objFolder.self.Path
End Function

4. Ezután nyomja meg az F5 billentyűt az aktuális modul ablakában, hogy start a makró.
5. Ezt követően a felugró párbeszédpanelen meg kell tallózni a forrás Windows mappát.
6. Végül a forrásmappa kiválasztása után a mappában lévő összes Outlook-elem importálásra kerül az előre meghatározott Outlook mappába.
7. Megjegyzés: így az importált e-mailek mind friss, új e-mailek, amelyeket tetszés szerint összeállíthat, például a következő képernyőképet:

3. módszer: Használja az „OpenSharedItem” elemet a VBA-ban

1. A 2. módszerhez hasonlóan másolja át a következő VBA-kódokat egy másik modulba.

Sub ImportAllOutlookEmailsfromLocaltoOutlook2()
    Dim objFileSystem As Object
    Dim strLocalFolderPath As String
    Dim objLocalFolder As Object
    Dim objTargetFolder As Outlook.Folder
    Dim objFiles As Object
    Dim objFile As Object
    Dim strFileType As String
    Dim objItem As Object
    Dim objCopiedItem As Outlook.MailItem

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
 
    strLocalFolderPath = strSelectedFolder("")
    Set objLocalFolder = objFileSystem.GetFolder(strLocalFolderPath)
    Set objFiles = objLocalFolder.Files
 
    'Set the target Outlook folder
    Set objTargetFolder = Session.GetDefaultFolder(olFolderInbox).folders("Ago")
 
    For Each objFile In objFiles
        strFileType = objFileSystem.GetExtensionName(objFile)
 
        If strFileType = "msg" Then
           Set objItem = Session.OpenSharedItem(objFile.Path)
           'Only import emails
           If TypeOf objItem Is MailItem Then
              Set objCopiedItem = objItem.Copy
              objCopiedItem.Move objTargetFolder
              'Delete the source file in the Windows folder
              'objFileSystem.DeleteFile (objFile.Path)
           End If
       End If
    Next
End Sub

Function strSelectedFolder(strStartFolder As String) As String
    Dim objShell As Object
    Dim objFolder As Object
 
    On Error Resume Next
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Select the source folder:", 0, strStartFolder)
 
    strSelectedFolder = objFolder.self.Path
End Function

2. Ezután futtassa ezt a makrót az „F5” gomb megnyomásával.
3. Ezután válassza ki a forrás mappát.
4. Végül az összes e-mailt a rendszer az alábbi képen importálja:

Összehasonlítások

A PST adatsérülés blokkolásának eszközei

Mint mindannyian tudjuk, az Outlook előre telepítve van egy beépített eszközzel – scanpst. Most idővel kisebb problémák megoldására is képes. Ha azonban a problémák súlyosak, a beépített eszköz általában meghibásodik. Tehát jobb, ha visszatér egy erősebb eszközhöz, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL Server korrupció és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com