3 metody importowania wiadomości e-mail z folderu Windows do Outlooka

Być może zapisałeś kilka wiadomości e-mail programu Outlook w swoim folderze Windows. Teraz, jeśli chcesz zaimportować je z powrotem do folderu programu Outlook, jak możesz to zrobić? Ten artykuł nauczy Cię 3 sposobów.

Jak wszyscy wiemy, Outlook zapewnia wbudowaną opcję – „Zapisz jako”, dzięki której możesz zapisywać wiadomości e-mail w folderze Windows. Nie ma jednak funkcji, aby ponownie dodać wyeksportowane wiadomości e-mail z powrotem do folderu Outlook. Dlatego jeśli chcesz zaimportować wiadomości e-mail z programu Outlook z powrotem do programu Outlook, jak możesz to zrealizować? W dalszej części nauczymy Cię 3 metod. Możesz wybrać dowolny zgodnie z własnymi preferencjami.

Metoda 1: Przeciągnij i upuść, aby zaimportować

1. Na samym początku musisz uzyskać dostęp do źródłowego folderu Windows, w którym przechowywane są wiadomości e-mail programu Outlook, które mają zostać zaimportowane do programu Outlook.
2. Następnie uruchom aplikację Outlook.
3. Następnie otwórz folder Outlook, do którego chcesz zaimportować wiadomości e-mail.
4. Następnie musisz zawęzić zarówno okno folderu Windows, jak i okno Outlooka, aż będziesz mógł je wyświetlić w międzyczasie.
5. Następnie w folderze Windows możesz wybrać jedną z wiadomości e-mail programu Outlook, a następnie nacisnąć "Ctrl + A", aby wybrać je wszystkie.
6. Później możesz przeciągnąć i upuścić wybrane wiadomości e-mail do widocznego folderu programu Outlook, jak na poniższym zrzucie ekranu:
7. Na koniec zobaczysz, że wszystkie wiadomości e-mail programu Outlook zostały zaimportowane z folderu Windows do folderu programu Outlook, jak pokazano na poniższym obrazku:

Metoda 2: Użyj „CreateItemFromTemplate” w VBA

1. Aby rozpocząć, w głównym oknie programu Outlook naciśnij kombinację klawiszy „Alt + F11”.
2. Następnie uzyskasz dostęp do okna edytora VBA programu Outlook.
3. Następnie skopiuj następujący kod VBA do pustego modułu.

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. Następnie możesz nacisnąć klawisz F5 w bieżącym oknie modułu, aby uruchomić makro.
5. Następnie musisz przejść do źródłowego folderu Windows w wyskakującym oknie dialogowym.
6. Wreszcie, po wybraniu folderu źródłowego, wszystkie elementy programu Outlook w tym folderze zostaną zaimportowane do predefiniowanego folderu programu Outlook.
7. Uwaga: w ten sposób zaimportowane e-maile to nowe, świeże e-maile, które możesz dowolnie komponować, jak na poniższym zrzucie ekranu:

Metoda 3: Użyj „OpenSharedItem” w VBA

1. Podobnie jak w metodzie 2, skopiuj następujące kody VBA do innego modułu.

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. Następnie uruchom to makro, naciskając przycisk „F5”.
3. Następnie wybierz folder źródłowy.
4. Ostatecznie wszystkie e-maile zostaną zaimportowane jako obrazek poniżej:

Porównania

Sposoby blokowania korupcji danych PST

Jak wszyscy wiemy, Outlook jest preinstalowany z wbudowanym narzędziem – skanpstW większości przypadków jest w stanie rozwiązać drobne problemy. Jednak jeśli problemy są poważne, wbudowane narzędzie ma tendencję do zawodzić. Dlatego lepiej sięgnąć po bardziej zaawansowane narzędzie, takie jak… DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server korupcja i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com