如何使用VBA在Outlook的当前打开窗口中获取对邮件项的引用？

Sub GetSelectedMailItem()
    Dim objApp As Outlook.Application
    Dim objInspector As Outlook.Inspector
    Dim objItem As Object
    
    ' 获取当前打开的Outlook应用程序
    Set objApp = GetObject(, "Outlook.Application")
    
    ' 获取当前激活的Inspector对象
    Set objInspector = objApp.ActiveInspector
    
    ' 检查是否有选中的邮件项
    If Not objInspector Is Nothing Then
        If objInspector.CurrentItem.Class = olMail Then
            ' 获取选中的邮件项
            Set objItem = objInspector.CurrentItem
            
            ' 在这里可以对选中的邮件项进行操作
            ' 例如，可以获取邮件的主题、发件人、收件人等信息
            MsgBox "选中的邮件主题是：" & objItem.Subject
        End If
    End If
    
    ' 释放对象引用
    Set objItem = Nothing
    Set objInspector = Nothing
    Set objApp = Nothing
End Sub