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

在Outlook的当前打开窗口中使用VBA获取对邮件项的引用，可以通过以下步骤实现：

首先，确保已经打开了Outlook应用程序。
在VBA编辑器中创建一个新的模块。
在模块中编写以下代码：

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