VBA Outlook:如何获取所选文件夹帐户的smtp地址

Sub GetSelectedFolderSMTPAddress()
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.Folder
    Dim objAccount As Outlook.Account
    Dim objExplorer As Outlook.Explorer
    Dim objSelection As Outlook.Selection
    
    ' 创建Outlook应用程序对象
    Set objOutlook = New Outlook.Application
    
    ' 获取当前Outlook命名空间
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    
    ' 获取当前活动的Explorer对象
    Set objExplorer = objOutlook.ActiveExplorer
    
    ' 获取当前选定的文件夹
    Set objSelection = objExplorer.Selection
    
    ' 确保选定的是文件夹
    If objSelection.Count = 1 And objSelection.Item(1).Class = olFolder Then
        Set objFolder = objSelection.Item(1)
        
        ' 获取文件夹所属的帐户
        Set objAccount = objFolder.Parent.Store
        
        ' 获取帐户的SMTP地址
        MsgBox "SMTP地址: " & objAccount.SmtpAddress
    Else
        MsgBox "请选择一个文件夹"
    End If
    
    ' 释放对象
    Set objSelection = Nothing
    Set objExplorer = Nothing
    Set objAccount = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
    Set objOutlook = Nothing
End Sub