E-postaları Outlook'ta Bir Klasörün Tüm Alt Klasörlerinden Başka Bir Klasöre Toplu Taşıma

Belki de altında çok sayıda alt klasörün bulunduğu bir klasörünüz vardır. Bu alt klasörlerdeki tüm e-postaları hızlı bir şekilde belirli bir klasöre taşımak gibi, içindeki e-postaları yeniden düzenlemek isterseniz, bu makaledeki paylaşılan yolu kullanabilirsiniz.

Bazen, e-postaları yeniden sınıflandırmak istediğiniz gibi bazı nedenlerle e-postaları bir klasörün tüm alt klasörlerinden başka bir klasöre toplu olarak taşımanız gerekebilir, bu nedenle bu alt klasörler artık kullanışlı değildir. Bu durumda bu alt klasörleri tek tek işlemek oldukça zahmetlidir. Bu nedenle, burada size başka bir yol tanıtacağız.

E-postaları Bir Klasörün Tüm Alt Klasörlerinden Başka Bir Klasöre Toplu Taşıma

1. Öncelikle Outlook programınızı başlatın.
2. Ardından, ana Outlook ekranında, sizi VBA düzenleyicisine götürecek olan “Alt + F11” tuş düğmelerine dokunun.
3. Ardından, yeni "Uygulamalar için Microsoft Visual Basic" penceresinde, kullanılmayan bir modülü açmanız gerekir.
4. Ardından, aşağıdaki VBA kodunu kopyalayıp bu modüle yapıştı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. Daha sonra bu makroyu çalıştırabilirsiniz.

• Öncelikle bu makro penceresinde “F5” tuşuna basınız.
• Ardından, alt klasörleri işlenecek bir kaynak klasör seçmeniz istenecektir.
• Bundan sonra, e-postaları taşımak istediğiniz hedef klasörü belirtmeniz gerekir.
• Ardından bu makro çalışmaya başlayacaktır. Tamamlandığında, "Tamamlandı" şeklinde bir mesaj alacaksınız.
• Sonuç olarak, hedef klasöre erişebilirsiniz. Kaynak klasörün altındaki alt klasörlerdeki tüm e-postaların orada olduğunu göreceksiniz.

Ele Geçirilmiş Outlook Verilerini Geri Yükle

Diğer e-posta istemcileri gibi çok sayıda özelliğe sahip olmasına rağmen, Outlook da bozulmadan kurtulamıyor. Giderek daha fazla veri depolandığında, Outlook giderek daha fazla hataya ve hasara eğilimli olacaktır. Bu nedenle, güçlü bir onarım aracını kullanışlı tutmanız gerekir, örneğin DataNumen Outlook Repair. Özellikle tasarlanmıştır Outlook'u düzelt sorunlar. Böylece, zarar görmüş Outlook dosyasını zahmetsizce tarayabilir ve geri yükleyebilir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf kurtarma ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datKanumen.com