Outlook PST файл дахь бүх имэйлийг VBA-ээр дамжуулан тодорхой хавтас руу хэрхэн багцлан зөөх вэ

Хэрэв та PST файл дахь бүх имэйлийг өөр PST файлын тодорхой хавтас руу шилжүүлэхийг хүсвэл энэ нийтлэлд танилцуулсан аргыг ашиглаж болно. Энэ нь танд VBA-г хэрхэн хурдан ашиглахыг заах болно.

Заримдаа, зарим шалтгааны улмаас та тодорхой PST файл дахь бүх имэйлийг өөр PST файлын тодорхой хавтас руу шилжүүлэх шаардлагатай болдог. Энэ тохиолдолд, хэрэв та үүнийг гараар хийвэл энэ нь эргэлзээгүй хэцүү байх болно. Тиймээс, энд бид VBA-г ашиглан тодорхой PST файлын бүх фолдеруудыг гүйлгэж, имэйл бүрийг тодорхой хавтас руу зөөх хурдан аргыг заах болно. Нарийвчилсан алхамууд болон кодуудад хүрэхийн тулд уншина уу.

Багц 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