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

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

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

Пакет Outlook PST файлындағы барлық электрондық пошталарды белгілі бір қалтаға жылжытыңыз

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

Private Sub GetAllFolders()
    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Get all the folders in a specific PST file
    Set objFolders = Outlook.Application.Session.Folders("Personal").Folders
 
    For Each objFolder In objFolders
        Call MoveEmails(objFolder)
    Next
End Sub
 
Private Sub MoveEmails(ByVal objFolder As Outlook.Folder)
    Dim objTargetFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
 
    'Get the specific destination folder
    'You can change it as per your case
    Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders("New")
 
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = Outlook.Application.Session.Folders("John Smith").Folders.Add("New")
    End If
 
    'Move each emails in the folder to the destination folder
    For i = objFolder.Items.Count To 1 Step -1
        If objFolder.Items.Item(i).Class = olMail Then
           Set objMail = objFolder.Items.Item(i)
           objMail.Move objTargetFolder
        End If
    Next i
 
    'Process the subfolders in the folder recursively
    If (objFolder.Folders.Count > 0) Then
       For Each objSubFolder In objFolder.Folders
           Call MoveEmails(objSubFolder)
       Next
    End If
End Sub

5. Осыдан кейін Outlook макро қауіпсіздік деңгейін төмен деңгейге өзгертіңіз.
6. Соңында құралдар тақтасындағы «Орындау» белгішесін басу немесе «F5» пернесін басу арқылы жаңа макросты іске қосуға болады.
7. Бірден белгілі бір қалтадағы барлық қалталардың барлық электрондық пошталары пакеттермен алдын ала белгіленген қалтаға жылжытылады.

PST деректеріңізді уақытында сақтаңыз

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

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

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