3

我正在制作一个 Outlook 插件,并试图找到一种方法来查看选择了哪些电子邮件,然后能够通过 foreach(或其他)与它们一起工作。如果这是不可能的,有没有办法获取文件夹中的所有项目并轻松访问该信息?之后,我需要将这些项目移动到另一个文件夹。

我该怎么做呢?

4

2 回答 2

6

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

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

于 2010-03-16T12:48:31.643 回答
0

附件是我从 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
于 2020-08-23T12:28:27.960 回答