3 მეთოდი ელ.ფოსტის იმპორტისთვის Windows საქაღალდიდან თქვენს Outlook-ში

შესაძლოა, თქვენ შეინახეთ რამდენიმე Outlook ელ.წერილი თქვენს Windows საქაღალდეში. ახლა, თუ გსურთ მათი დაბრუნება Outlook საქაღალდეში, როგორ შეგიძლიათ ამის გაკეთება? ეს სტატია გასწავლით 3 გზას.

როგორც ყველამ ვიცით, Outlook გთავაზობთ ჩაშენებულ ვარიანტს - "Save As", რომლითაც შეგიძლიათ შეინახოთ წერილები Windows საქაღალდეში. თუმცა, არ არსებობს ფუნქცია, რომ ხელახლა დაამატოთ ექსპორტირებული ელფოსტა Outlook საქაღალდეში. ამიტომ, თუ გსურთ Outlook-ის ელფოსტის უკან დაბრუნება Outlook-ში, როგორ შეგიძლიათ ამის რეალიზება? შემდეგში გასწავლით 3 მეთოდს. თქვენ შეგიძლიათ აირჩიოთ ნებისმიერი თქვენი სურვილის მიხედვით.

მეთოდი 1: გადაათრიეთ და ჩამოაგდეთ იმპორტისთვის

1. თავიდანვე, თქვენ უნდა შეხვიდეთ Windows-ის წყაროს საქაღალდეში, რომელიც ინახავს Outlook-ის წერილებს Outlook-ში იმპორტირებისთვის.
2. შემდეგ გაუშვით თქვენი Outlook აპლიკაცია.
3. შემდეგ გახსენით Outlook საქაღალდე, რომელშიც გსურთ ელფოსტის იმპორტი.
4. შემდგომში, თქვენ უნდა შეავიწროთ როგორც Windows საქაღალდის ფანჯარა, ასევე Outlook-ის ფანჯარა, სანამ არ შეძლებთ მათ ნახვას ამასობაში.
5. ამის შემდეგ, Windows საქაღალდეში შეგიძლიათ აირჩიოთ Outlook-ის ელ.წერილებიდან ერთ-ერთი და შემდეგ დააჭირეთ ღილაკს "Ctrl + A" ყველა მათგანის ასარჩევად.
6. მოგვიანებით შეგიძლიათ გადაათრიოთ და ჩააგდოთ არჩეული ელფოსტა ხილულ Outlook საქაღალდეში, როგორც შემდეგი ეკრანის სურათი:
7. დაბოლოს, ნახავთ, რომ Outlook-ის ყველა ელ.წერილი იმპორტირებულია Windows საქაღალდიდან Outlook-ის საქაღალდეში, ნაჩვენებია როგორც ქვემოთ მოცემული სურათი:

მეთოდი 2: გამოიყენეთ „CreateItemFromTemplate“ VBA-ში

1. დასაწყებად, Outlook-ის მთავარ ფანჯარაში დააჭირეთ ღილაკს "Alt + F11".
2. შემდეგ თქვენ მიიღებთ წვდომას Outlook VBA რედაქტორის ფანჯარაზე.
3. შემდეგ დააკოპირეთ შემდეგი VBA კოდი ცარიელ მოდულში.

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. შემდეგ, მაკროს დასაწყებად, მიმდინარე მოდულის ფანჯარაში შეგიძლიათ დააჭიროთ F5 ღილაკს.
5. ამის შემდეგ, თქვენ უნდა დაათვალიეროთ Windows-ის წყაროს საქაღალდე ამომხტარ დიალოგურ ფანჯარაში.
6. და ბოლოს, წყაროს საქაღალდის არჩევის შემდეგ, ამ საქაღალდეში ყველა Outlook ელემენტი იმპორტირებული იქნება წინასწარ განსაზღვრულ Outlook საქაღალდეში.
7. შენიშვნა: ამ გზით, იმპორტირებული ელფოსტა არის ყველა ახალი ახალი ელ.წერილი, რომელიც შეგიძლიათ სურვილისამებრ შეადგინოთ, როგორიცაა შემდეგი ეკრანის სურათი:

მეთოდი 3: გამოიყენეთ "OpenSharedItem" VBA-ში

1. მეთოდი 2-ის მსგავსად, დააკოპირეთ შემდეგი VBA კოდები სხვა მოდულში.

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. შემდეგ გაუშვით ეს მაკრო ღილაკზე "F5" დაჭერით.
3. შემდეგ აირჩიეთ წყაროს საქაღალდე.
4. საბოლოოდ ყველა ელ.წერილი იმპორტირებული იქნება, როგორც ქვემოთ მოცემული სურათი:

შედარებები

ნიშნავს PST მონაცემთა კორუფციის დაბლოკვას

როგორც ყველამ ვიცით, Outlook არის წინასწარ დაინსტალირებული ჩაშენებული ხელსაწყოთი – სკანპსტიუმეტეს შემთხვევაში, მას შეუძლია მცირე პრობლემების გადაჭრა. თუმცა, თუ პრობლემები ძალიან სერიოზულია, ჩაშენებული ინსტრუმენტი, როგორც წესი, ვერ მუშაობს. ამიტომ, უმჯობესია მიმართოთ უფრო ძლიერ ინსტრუმენტს, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server კორუფციის და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად