是否可以在 Excel VBA 中读出特定主题的 Outlook？

Question

我在学习实践时经常使用您的网站。虽然这我必须为一家公司编写 VBA thingys。

虽然这是我自己坚持的，但到目前为止我对一切都很好。

我的最后一个项目是一个列表，包含以下步骤：

1. 使用来自其他工作簿的新数据更新自身（检查）

2. 向一组特定人员发送电子邮件，其中包含个人数据作为 excel 工作簿（另请检查）

3. 接收来自该组人员的值可能已更改和更正的邮件。 （进行中……不知道怎么去）

最后一点让我很困扰，因为如果有办法得到这个就不容易了。该公司使用 Excel/Office 2017 和 Outlook。

我想通过 Outlook 应用程序查看特定主题。然后从此邮件中打开 excel 工作簿，并更正项目的数据。

我环顾四周，发现一些旧线程此时不再工作。有人可以用“不，不可能”或“是的，你可以这样做”来回答这个问题：D 非常感谢各位。

Answer 1

是的，这绝对是可能的。您需要使用“主题”属性：

有关此属性的一些其他文档，以及 microsoft 的示例，请参阅此处： https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.subject

这是一个快速而肮脏的示例——您可能需要调试这个示例，但它应该可以帮助您完成大部分工作。此子将显示您当前选择的电子邮件主题的 MsgBox

Sub Selected_Email_Subject()

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set GetCurrentItem = OutApp.ActiveInspector.CurrentItem


    If GetCurrentItem Is Nothing Then
            Set GetCurrentItem = olApp.ActiveExplorer.Selection.Item(1)
    End If


    MsgBox(GetCurrentItem.Subject)

End Sub