Outlook-da bir qovluğun bütün alt qovluqlarından digər qovluğa e-poçtları toplu şəkildə necə köçürmək olar

Ola bilsin ki, altında çoxsaylı alt qovluqların olduğu bir qovluq var. Onlardakı e-poçtları yenidən təşkil etmək istəyirsinizsə, məsələn, bütün e-poçtları bu alt qovluqlardan müəyyən bir qovluğa sürətlə köçürmək istəyirsinizsə, bu məqalədə paylaşılan üsuldan istifadə edə bilərsiniz.

Bəzən bəzi səbəblərə görə e-poçtları bir qovluğun bütün alt qovluqlarından başqa qovluğa köçürməli ola bilərsiniz, məsələn, e-poçtları yenidən təsnif etmək istədiyiniz, ona görə də bu alt qovluqlar artıq faydalı olmayacaq. Bu halda, bu alt qovluqları bir-bir emal etmək olduqca əziyyətlidir. Buna görə də, burada sizə başqa bir yol təqdim edəcəyik.

E-poçtları bir qovluğun bütün alt qovluqlarından digər qovluğa toplu köçürün

1. Ən başında, Outlook proqramınızı başladın.
2. Sonra, əsas Outlook ekranında sizi VBA redaktoruna gətirəcək “Alt + F11” düymələri üzərinə vurun.
3. Sonra, yeni “Proqramlar üçün Microsoft Visual Basic” pəncərəsində istifadə olunmayan modulu açmalısınız.
4. Sonradan aşağıdakı VBA kodunu kopyalayıb bu modula yapışdırın.

Dim objTargetFolder As Outlook.folder

Sub BatchMoveEmailsFromSubfoldersToAnotherFolder()
    Dim objSourceFolder As Outlook.folder
    Dim objFolder As Outlook.folder
  
    'Get the source folder whose subfolders to be processed
    Set objSourceFolder = Application.Session.PickFolder
 
    If Not (objSourceFolder Is Nothing) And objSourceFolder.DefaultItemType = olMailItem Then
       If objSourceFolder.folders.count > 0 Then
          'Select a target folder
          Set objTargetFolder = Application.Session.PickFolder
          If Not (objTargetFolder Is Nothing) Then
             For Each objFolder In objSourceFolder.folders
                 Call ProcessFolders(objFolder)
             Next
             MsgBox "Move Completed!", vbExclamation
          End If
       Else
          MsgBox "No subfolders!", vbExclamation
       End If
    End If
End Sub

Sub ProcessFolders(ByVal objFolder As Outlook.folder)
    Dim i As Long
    Dim objSubfolder As Outlook.folder
 
    For i = objFolder.Items.count To 1 Step -1
        'Move emails to the target folder
        If objFolder.Items(i).Class = olMail Then
           objFolder.Items(i).Move objTargetFolder
        End If
    Next
 
    'Process subfolders recursively
    If objFolder.folders.count > 0 Then
       For Each objSubfolder In objFolder.folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

5. Bundan sonra bu makronu işlədə bilərsiniz.

• Əvvəlcə bu makro pəncərəsində “F5” düyməsini sıxın.
• Sonra, sizdən alt qovluqları işlənəcək mənbə qovluğu seçməyiniz tələb olunacaq.
• Bundan sonra, e-poçtları köçürmək istədiyiniz təyinat qovluğunu göstərməlisiniz.
• Daha sonra, bu makro işləməyə başlayacaq. Tamamlandıqda, "Tamamlandı" mesajı alacaqsınız.
• Nəticədə, hədəf qovluğa daxil ola bilərsiniz. Mənbə qovluğunun altındakı alt qovluqların bütün e-poçtlarının orada olduğunu görəcəksiniz.

Təhlükəli Outlook məlumatlarını bərpa edin

Digər e-poçt müştəriləri kimi çoxsaylı xüsusiyyətləri ilə öyünməsinə baxmayaraq, Outlook hələ də korrupsiyadan xilas ola bilmir. Getdikcə daha çox məlumatın saxlanması ilə Outlook getdikcə səhvlərə və zərərlərə daha çox meylli olacaq. Beləliklə, güclü təmir alətini əlinizdə saxlamalısınız, məsələn DataNumen Outlook Repair. Xüsusilə üçün nəzərdə tutulmuşdur Outlook-u düzəldin məsələlər. Beləliklə, o, asanlıqla zədələnmiş Outlook faylını skan edə və bərpa edə bilər.

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 bərpası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datKanumen.com