Outlook VBA在文件夹窗格中复制‘排序子文件夹A到Z’

Sub CopySortFoldersAZ()
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.Folder
    Dim objFolders As Outlook.Folders
    Dim objNewFolder As Outlook.Folder
    Dim objCopyFolder As Outlook.Folder
    Dim objSubFolder As Outlook.Folder
    Dim i As Integer
    
    ' 获取Outlook应用程序的命名空间
    Set objNamespace = Application.GetNamespace("MAPI")
    
    ' 获取根文件夹
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 获取根文件夹下的所有子文件夹
    Set objFolders = objFolder.Folders
    
    ' 创建一个新的文件夹用于存放复制后的排序文件夹
    Set objNewFolder = objFolders.Add("Sorted Folders")
    
    ' 遍历所有子文件夹
    For i = 1 To objFolders.Count
        Set objSubFolder = objFolders.Item(i)
        
        ' 复制子文件夹到新的文件夹中
        Set objCopyFolder = objSubFolder.Copy
        objCopyFolder.MoveTo objNewFolder
        
        ' 对新的文件夹进行排序
        objNewFolder.Folders.Sort
        
        ' 释放对象引用
        Set objCopyFolder = Nothing
        Set objSubFolder = Nothing
    Next i
    
    ' 释放对象引用
    Set objNewFolder = Nothing
    Set objFolders = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
    
    MsgBox "文件夹已按字母顺序复制并排序到'Sorted Folders'文件夹中。"
End Sub