使用VB查找outlook exchange配置文件创建日期

Sub FindExchangeConfigFileCreationDate()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olExchange As Outlook.ExchangeUser
    Dim strConfigFilePath As String
    Dim dtCreationDate As Date
    
    ' 创建Outlook应用程序对象
    Set olApp = New Outlook.Application
    
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    
    ' 获取当前用户的Exchange账户信息
    Set olExchange = olNamespace.CurrentUser
    
    ' 获取Exchange配置文件路径
    strConfigFilePath = olExchange.ExchangeMailboxServerName
    
    ' 获取配置文件的创建日期
    dtCreationDate = FileDateTime(strConfigFilePath)
    
    ' 输出创建日期
    MsgBox "Exchange配置文件的创建日期为：" & dtCreationDate
    
    ' 释放对象
    Set olExchange = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
End Sub