PST файлдарын Outlook VBA арқылы қалай біріктіруге болады

Егер сіз бірнеше PST файлдарын бір файлға біріктіргіңіз келсе, осы мақалада енгізілген әдісті қолдануға болады. Бұл сізге Outlook VBA арқылы жылдам алуға мүмкіндік береді.

Егер сізде PST файлдары көп болса, онда олардың барлығын басқару сізге қиын болатыны сөзсіз. Нақтырақ айтсақ, егер сізден осы PST файлдарындағы деректерге жиі қол жетімділік талап етілсе, сіз қалаған нәрсені білу үшін барлық файлдарды қарап шығу өте қиын болады. Бұл жағдайда ең жақсы шешім - олардың барлығын бір PST файлына біріктіру, осылайша сіз оларды әлдеқайда оңай және тиімді басқара аласыз.

Жалпы, егер сіз тек екі файлды бір файлға біріктіруді қаласаңыз, онда екіншісін екіншісіне импорттай аласыз. Алайда, егер сіз бірнеше біреуін біріктіргіңіз келсе, мұны қолмен жасау өте қиын болады. Сонымен, біз сізге бірнеше PST файлдарды тез арада VBA арқылы біріктіруді ұсынамыз. Енді оны егжей-тегжейлі алу үшін оқыңыз.

PST файлдарын Outlook VBA арқылы біріктіру

1. Біріншіден, сіз біріктіргіңіз келетін барлық PST файлдарын ашуыңыз керек. Бірнеше PST файлдарын пакеттік түрде ашу туралы біздің келесі мақаламызға сілтеме жасай аласыз - «Outlook бағдарламасында бірден бірнеше Outlook PST файлдарын пакеттік түрде қалай ашуға болады«
2. Оларды ашқаннан кейін Outlook VBA редакторына «Әзірлеуші» қойындысының астындағы «Visual Basic» батырмасын басу арқылы немесе «Alt + F11» пернелерін басу арқылы қол жеткізу керек.
3. Содан кейін «Microsoft Visual Basic for Applications» терезесінде модуль ашыңыз.
4. Келесі VBA кодтарын модуль терезесіне көшіріңіз және қойыңыз.

Public objNewPSTFileFolder As Outlook.Folder

Private Sub CreateNewPSTFile()
    'Create a new PST file
    Outlook.Application.Session.AddStore "E:\NewPSTMerge3.pst"
    Set objNewPSTFileFolder = Session.Folders.GetLast()
    Call SelectANDMergePSTFiles
End Sub

Sub SelectANDMergePSTFiles()
    Dim objSourceFile As Object
    Dim strMsg As String
    Dim nResponse As Integer
 
    'Select the source PST file
    Set objSourceFile = Outlook.Application.Session.PickFolder
    Call CopyFolder(objSourceFile)
 
    'Ask if select one more PST file
    strMsg = "One Completes! Do you want to select one more PST file?"
    nResponse = MsgBox(strMsg, vbExclamation + vbYesNo, "Merge PST Files")
  
    If nResponse = vbYes Then
       Call SelectANDMergePSTFiles
    Else
       MsgBox ("All Complete!")
    End If
End Sub

Sub CopyFolder(ByVal objCurrentFile As Object)
    Dim objFolder As Outlook.Folder
 
    For Each objFolder In objCurrentFile.Folders
        objFolder.CopyTo objNewPSTFileFolder
    Next objFolder
End Sub

5. Кейіннен сіз Outlook бағдарламасында макростарға рұқсат беретіндігін растауыңыз керек.
6. Соңында сіз көріңіз.

• Біріншіден, «CreateNewPST» ішкі бағдарламасын нұқыңыз.
• Содан кейін құралдар тақтасындағы «Іске қосу» белгішесін басыңыз.
• Содан кейін сізге келесі скриншот сияқты қалқымалы терезеде бастапқы файлды таңдау қажет болады:
• Біреуін таңдағаннан кейін «ОК» батырмасын басыңыз.
• Содан кейін Outlook таңдалған файлдағы барлық элементтерді жаңа PST файлына көшіреді.
• Осыдан кейін сіз тағы бір файлды таңдау туралы хабарлама аласыз. «Иә» батырмасын басыңыз, келесі PST файлын таңдауға болады.
• Барлық қажетті бастапқы файлдарды таңдауды және біріктіруді аяқтағанша, сіз «Жоқ» таңдаңыз.
• Ақыр соңында, сіз барлық PST файлын аласыз, ол барлық таңдалған бастапқы файлдардың біріктірілген файлы болып табылады.

Егер PST файлы бұзылса ше?

Outlook PST файлы қателіктер мен зақымдарға бейім болғандықтан, PST деректеріңізді қорғау үшін күш салуыңыз керек. Сөзсіз, ең тиімді сақтық шараларының бірі - деректердің сақтық көшірмелерін үнемі жасау, бұл сізге мүмкіндік береді. Outlook бағдарламасын қалпына келтіру деректер әлдеқайда оңай. Сондай-ақ, сізге күшті жөндеу құралын ыңғайлы ұстау жақсы DataNumen Outlook Repair.

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

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