Windows қалтасынан Outlook бағдарламасына электрондық пошталарды импорттаудың 3 әдісі

Outlook шешімдері Қыркүйек 29, 2025

Мүмкін сіз Windows қалтасында бірнеше Outlook электрондық поштасын сақтаған боларсыз. Енді оларды Outlook қалтасына қайта импорттағыңыз келсе, мұны қалай жасауға болады? Бұл мақала сізге 3 жолды үйретеді.

Барлығымыз білетіндей, Outlook бағдарламасы кірістірілген опцияны ұсынады – «Басқаша сақтау» оның көмегімен электрондық пошталарды Windows қалтасына сақтауға болады. Дегенмен, экспортталған электрондық пошталарды Outlook қалтасына қайта қосу мүмкіндігі жоқ. Сондықтан, Outlook электрондық пошталарын қайтадан Outlook бағдарламасына импорттағыңыз келсе, оны қалай жүзеге асыруға болады? Келесіде біз сізге 3 әдісті үйретеміз. Сіз өз қалауыңыз бойынша кез келгенін таңдай аласыз.

1-әдіс: Импорттау үшін сүйреп апарыңыз

Ең басында Outlook бағдарламасына импортталатын Outlook электрондық пошталарын сақтайтын бастапқы Windows қалтасына кіру керек.
Содан кейін Outlook қолданбасын іске қосыңыз.
Әрі қарай электрондық пошталарды импорттағыңыз келетін Outlook қалтасын ашыңыз.
Одан кейін Windows қалтасының терезесін де, Outlook терезесін де аралықта қарай алмайынша тарылту керек.
Осыдан кейін Windows қалтасында Outlook электрондық пошталарының бірін таңдап, олардың барлығын таңдау үшін «Ctrl + A» пернелерін басыңыз.
Кейінірек таңдалған электрондық пошталарды келесі скриншот сияқты көрінетін Outlook қалтасына сүйреп апаруға болады:
Соңында, барлық Outlook электрондық пошталары Windows қалтасынан төмендегі суретте көрсетілген Outlook қалтасына импортталғанын көресіз:

2-әдіс: VBA жүйесінде “CreateItemFromTemplate” пайдаланыңыз

Кімгеtart негізгі Outlook терезесінде «Alt + F11» пернелері түймелерін басыңыз.
Одан кейін сіз Outlook VBA редакторының терезесіне кіре аласыз.
Содан кейін келесі 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

Одан кейін ағымдағы модуль терезесіндегі F5 пернесін s үшін басуға боладыtarмакро
Осыдан кейін қалқымалы диалогтық терезеде бастапқы Windows қалтасына өту керек.
Соңында, бастапқы қалтаны таңдағаннан кейін, сол қалтадағы барлық Outlook элементтері алдын ала анықталған Outlook қалтасына импортталады.
Ескертпе: осылайша, импортталған электрондық хаттар келесі скриншот сияқты өз қалауыңыз бойынша жасауға болатын жаңа электрондық пошталар болып табылады:

3-әдіс: VBA жүйесінде «OpenSharedItem» пайдаланыңыз

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

Содан кейін «F5» пернесін басу арқылы осы макросты іске қосыңыз.
Содан кейін бастапқы қалтаны таңдаңыз.
Сайып келгенде, барлық электрондық пошталар төмендегі сурет ретінде импортталады:

Салыстыру

әдістері	артықшылықтары	кемшіліктері
1 әдісі	VBA-мен таныс емес адамдар үшін қабылдау оңайырақ.	Бұл екеуін де көргенше екі терезені тарылтуды талап етеді.
2 әдісі	Импортталған электрондық пошталарды өз қалауыңыз бойынша құрастыруға және жіберуге болатын жаңа электрондық пошталар ретінде пайдалануға болады.	Windows қалтасында контактілер немесе тапсырмалар сияқты “.msg” пішімімен сақталған басқа Outlook элементтері болса, осылайша оларды да импорттайды.
3 әдісі	Ол Outlook электрондық пошталарын дәл таниды және басқа Outlook элементтерінен қашады.	Осы арқылы сіз импортталған электрондық хаттарды 2-әдіс сияқты оңай құрастыра және жібере алмайсыз.

PST деректерінің бүлінуін блоктау құралдары

Барлығымыз білетіндей, Outlook алдын ала орнатылған құралмен бірге жеткізіледі - Сканерлеу. Мost Уақыт өте ол шағын мәселелерді шешуге қабілетті. Дегенмен, егер мәселелер өте ауыр болса, кірістірілген құрал сәтсіздікке ұшырайды. Сонымен, сіз неғұрлым күшті құралға қайта оралғаныңыз жөн болар еді, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL Server жемқорлық және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com