代码之家 › 专栏 › 技术社区 › Matt Connolly

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

outlook-2007 outlook-vba vba

7

Matt Connolly · 技术社区 · 14 年前

我有一个宏可以很好地放置到文件夹/应用标志/集合类别中,但它只适用于资源管理器中选择的当前项。

当我在桌面上收到电子邮件通知并单击它打开电子邮件消息时,我希望能够对该打开的项目运行相同的宏,但我找不到任何有关如何以与访问资源管理器列表中所选项目类似的方式访问该对象的文档。

我当前的选择逻辑如下:

Dim Item As Object
Dim SelectedItems As Selection

Set SelectedItems = Outlook.ActiveExplorer.Selection
For Each Item In SelectedItems
    With Item
        'do stuff
    End With
Next Item

2 回复 | 直到 9 年前

1

10

Matt Connolly 14 年前

显然,这是获取当前未结项的代码:

If TypeName(Application.ActiveWindow) = "Inspector" Then
    Set Item = Application.ActiveWindow.CurrentItem

2

7

user2038505 12 年前

我是这样做的。将该项声明为mailitem而不是对象,然后从intellisense获得帮助。

Dim CurrentMessage As MailItem
Set CurrentMessage = ActiveInspector.CurrentItem
CurrentMessage.HTMLBody = "[Insert HTML here]"