3 spôsoby importu e-mailov z priečinka Windows do vášho Outlooku

Možno ste do priečinka Windows uložili niekoľko e-mailov Outlook. Ak ich teraz chcete importovať späť do priečinka Outlook, ako to urobiť? Tento článok vás naučí 3 spôsoby.

Ako všetci vieme, Outlook poskytuje vstavanú možnosť - „Uložiť ako“, pomocou ktorej môžete e-maily ukladať do priečinka Windows. Neexistuje však žiadna funkcia, pomocou ktorej by ste exportované e-maily mohli znova pridať späť do priečinka Outlook. Ak by ste teda chceli importovať e-maily z Outlooku späť do Outlooku, ako to môžete realizovať? V nasledujúcich častiach vás naučíme 3 metódy. Môžete si zvoliť ľubovoľný podľa vašich preferencií.

Metóda 1: Importujte presunutím myšou

1. Hneď na začiatku musíte získať prístup k zdrojovému priečinku Windows, v ktorom sú uložené e-maily programu Outlook, ktoré sa majú importovať do programu Outlook.
2. Potom spustite aplikáciu Outlook.
3. Ďalej otvorte priečinok Outlook, do ktorého chcete importovať e-maily.
4. Následne musíte zúžiť okno priečinka Windows aj okno programu Outlook, kým ich medzitým nebudete môcť zobraziť.
5. Potom v priečinku Windows môžete vybrať jeden z e-mailov programu Outlook a potom všetky stlačiť pomocou kombinácie klávesov „Ctrl + A“.
6. Neskôr môžete vybrané e-maily presunúť do viditeľného priečinka Outlook, napríklad na nasledujúcom obrázku:
7. Nakoniec uvidíte, že všetky e-maily programu Outlook boli importované z priečinka Windows do priečinka Outlook, ako je znázornené na obrázku nižšie:

Metóda 2: Použite „CreateItemFromTemplate“ vo VBA

1. Najprv v hlavnom okne programu Outlook stlačte klávesy „Alt + F11“.
2. Ďalej získate prístup do okna editora Outlook VBA.
3. Potom skopírujte nasledujúci kód VBA do prázdneho modulu.

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. Potom môžete v aktuálnom okne modulu spustiť makro stlačením klávesu F5.
5. Potom musíte v rozbaľovacom dialógovom okne vyhľadať zdrojový priečinok Windows.
6. Nakoniec po výbere zdrojového priečinka sa všetky položky programu Outlook v tomto priečinku importujú do preddefinovaného priečinka programu Outlook.
7. Poznámka: Týmto spôsobom sú importované e-mailové správy všetky nové nové e-mailové adresy, ktoré môžete ľubovoľne skladať, napríklad nasledujúca snímka obrazovky:

Metóda 3: Použite „OpenSharedItem“ vo VBA

1. Rovnako ako v prípade metódy 2 skopírujte nasledujúce kódy VBA do iného modulu.

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. Potom toto makro spustite stlačením klávesu „F5“.
3. Ďalej vyberte zdrojový priečinok.
4. Nakoniec sa všetky e-mailové adresy importujú ako obrázok nižšie:

Porovnanie

Znamená blokovať poškodenie údajov PST

Ako všetci vieme, Outlook je predinštalovaný so zabudovaným nástrojom - ScanpstVäčšinou dokáže vyriešiť malé problémy. Ak sú však problémy vážne, vstavaný nástroj má tendenciu zlyhať. Preto je lepšie vrátiť sa k silnejšiemu nástroju, ako napríklad DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server korupcie a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S