Outlook PST faylidagi barcha elektron pochta xabarlarini VBA orqali ma'lum bir jildga qanday qilib ommaviy ko'chirish mumkin

Agar siz PST faylidagi barcha elektron pochta xabarlarini boshqa PST faylidagi ma'lum bir jildga ko'chirmoqchi bo'lsangiz, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin. Bu sizga VBA dan tezda foydalanishni o'rgatadi.

Ba'zida, ba'zi sabablarga ko'ra, ma'lum bir PST faylidagi barcha elektron pochta xabarlarini boshqa PST faylidagi ma'lum bir papkaga ko'chirishingiz kerak bo'lishi mumkin. Bunday holda, agar siz buni qo'lda qilsangiz, bu shubhasiz juda qiyin bo'ladi. Shuning uchun, bu erda biz VBA-dan ma'lum bir PST faylidagi barcha papkalarni aylanib chiqish va har bir elektron pochtani ma'lum bir jildga ko'chirish uchun tezkor usulni o'rgatamiz. Murakkab qadamlar va kodlarga erishish uchun o'qing.

To'plam Outlook PST faylidagi barcha elektron pochta xabarlarini ma'lum bir jildga ko'chiring

1. Eng boshida Outlook ilovasini ishga tushiring.
2. Keyin siz "Dasturchi" yorlig'iga o'tishingiz va "Visual Basic" tugmasini bosishingiz mumkin. Yoki "Alt + F11" yorliqlarini bosing.
3. Keyinchalik, VBA muharririning qalqib chiquvchi oynasida ishlatilmaydigan modulni oching yoki darhol yangisini joylashtiring.
4. Keyingi VBA kodlarini nusxa ko'chiring va ushbu modulga joylashtiring.

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. Shundan so'ng, Outlook makro xavfsizlik darajasini past darajaga o'zgartiring.
6. Oxir-oqibat, asboblar panelidagi "Ishga tushirish" belgisini yoki "F5" tugmasini bosish orqali yangi makrosni ishga tushirishingiz mumkin.
7. Bir vaqtning o'zida ma'lum bir jilddagi barcha papkalarning barcha elektron pochta xabarlari paketlarda oldindan belgilangan papkaga ko'chiriladi.

PST ma'lumotlaringizni o'z vaqtida qutqaring

Agar siz afsuski azob cheksangiz PST shikastlanishi, keyin nima qilasiz? Umuman olganda, sizning birinchi fikringiz buzilgan PST ma'lumotlarini imkon qadar tezroq qaytarishingiz kerak. Odatdagidek, eng oddiy usul - yangilangan ma'lumotlarning zaxira nusxasidan tiklash. Biroq, agar ma'lumotlarning zaxira nusxasi bir necha haftalik bo'lsa, u foydasiz bo'lishi mumkin. Bunday holda, sizda, masalan, kuchli tiklash vositasiga murojaat qilishdan boshqa tanlovingiz yo'q DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com