Outlook PST faylındakı bütün e-poçtları VBA vasitəsilə xüsusi bir qovluğa necə toplu köçürmək olar

Bir PST faylındakı bütün e-poçtları başqa bir PST faylındakı xüsusi qovluğa köçürmək istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz. Tez əldə etmək üçün VBA-dan necə istifadə edəcəyinizi sizə öyrədəcək.

Bəzən, bəzi səbəblərə görə, müəyyən bir PST faylındakı bütün e-poçtları başqa bir PST faylındakı xüsusi qovluğa köçürməli ola bilərsiniz. Bu vəziyyətdə, bunu əl ilə etsəniz, şübhəsiz ki, olduqca çətin olacaq. Buna görə də, burada müəyyən bir PST faylındakı bütün qovluqları dövrələmək və hər bir e-poçtu xüsusi bir qovluğa köçürmək üçün VBA-dan istifadə edəcək sürətli bir üsul öyrədəcəyik. Mürəkkəb addımlar və kodları əldə etmək üçün oxuyun.

Toplu Outlook PST faylındakı bütün e-poçtları xüsusi bir qovluğa köçürün

1. Ən başlanğıcda Outlook proqramınızı işə salın.
2. Sonra “Developer” sekmesine keçib “Visual Basic” düyməsini sıxa bilərsiniz. Və ya "Alt + F11" düymələri qısa yollarını basın.
3. Sonra, açılan VBA redaktoru pəncərəsində istifadə olunmayan modulu açın və ya dərhal yenisini daxil edin.
4. Sonra aşağıdakı VBA kodlarını kopyalayın və bu modula yapışdırın.

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. Bundan sonra, Outlook makro təhlükəsizlik səviyyənizi aşağı səviyyəyə dəyişdirin.
6. Nəhayət, alətlər panelindəki "Çalış" simgesini və ya "F5" düyməsini sıxmaqla yeni makrosunu işə sala bilərsiniz.
7. Bir anda, müəyyən bir qovluqdakı bütün qovluqların bütün e-poçtları qruplar şəklində əvvəlcədən müəyyən edilmiş qovluğa köçürüləcək.

PST məlumatlarınızı vaxtında xilas edin

Təəssüf ki, əziyyət çəkirsinizsə PST zədəsi, onda nə edəcəksən? Ümumiyyətlə, ilk düşüncəniz pozulmuş PST məlumatlarını mümkün qədər tez geri qaytarmaq olmalıdır. Həmişə olduğu kimi, ən sadə yol, məlumatların yenilənmiş ehtiyat nüsxəsindən bərpa etməkdir. Bununla belə, məlumatların ehtiyat nüsxəsi bir neçə həftədirsə, faydasız ola bilər. Bu halda, kimi güclü bir bərpa alətinə müraciət etməkdən başqa seçiminiz yoxdur DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf düzəliş və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com