Outlook AddOn 如何获取选定的电子邮件？

Question

我正在制作一个 Outlook 插件，我正在尝试找到一种方法来查看选择了哪些电子邮件，然后能够通过 foreach （或其他方式）使用它们。如果这是不可能的，是否有一种方法可以获取文件夹中的所有项目并轻松访问该信息？之后我需要将这些项目移动到另一个文件夹。

我该怎么做呢？

Answer 1

您可以使用 Application.ActiveExplorer 方法获取当前活动的资源管理器窗口（=显示邮件列表的东西）。然后您可以使用 Explorer.Selection 属性来获取所选列表电子邮件。

要移动邮件，请使用 MailItem.Move 方法。

Answer 2

附件是我从 Outlook 消息中获取所选电子邮件的代码。
对于olitem，请根据需要随意修改。

Sub ReplyMSG()
    Dim olItem As Outlook.MailItem
    Dim olReply As MailItem  ' Reply
    For Each olItem In Application.ActiveExplorer.Selection
        Set olReply = olItem.ReplyAll
        olReply.HTMLBody = "Reminder" & vbCrLf & olReply.HTMLBody
        olReply.Display
        'olReply.Send
    Next olItem
End Sub