是否从Outlook VBA访问名称中只有数字的文件夹？

Sub AccessNumericFolder()
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.Folder
    
    ' 获取Outlook应用程序的命名空间
    Set objNamespace = Application.GetNamespace("MAPI")
    
    ' 获取根文件夹
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
    
    ' 访问名称为数字的子文件夹
    Set objFolder = objFolder.Folders("123")
    
    ' 在这里可以对文件夹进行进一步操作
    
    ' 释放对象
    Set objFolder = Nothing
    Set objNamespace = Nothing
End Sub