Outlook VBA动态文件夹名称

Sub CreateDynamicFolder()
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.Folder
    Dim objInbox As Outlook.Folder
    Dim objDynamicFolder As Outlook.Folder
    
    ' 获取Outlook应用程序的命名空间
    Set objNamespace = Application.GetNamespace("MAPI")
    
    ' 获取收件箱文件夹
    Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 创建一个新的文件夹作为动态文件夹的父文件夹
    Set objFolder = objInbox.Folders.Add("Dynamic Folders")
    
    ' 创建一个动态文件夹
    Set objDynamicFolder = objFolder.Folders.Add("My Dynamic Folder")
    
    ' 设置动态文件夹的筛选条件
    objDynamicFolder.Items.Restrict "[Subject] = 'Important'"
    
    ' 设置动态文件夹的名称
    objDynamicFolder.Name = "Important Emails"
    
    ' 释放对象
    Set objDynamicFolder = Nothing
    Set objFolder = Nothing
    Set objInbox = Nothing
    Set objNamespace = Nothing
End Sub