我正在制作一个 Outlook 插件,并试图找到一种方法来查看选择了哪些电子邮件,然后能够通过 foreach(或其他)与它们一起工作。如果这是不可能的,有没有办法获取文件夹中的所有项目并轻松访问该信息?之后,我需要将这些项目移动到另一个文件夹。
我该怎么做呢?
我正在制作一个 Outlook 插件,并试图找到一种方法来查看选择了哪些电子邮件,然后能够通过 foreach(或其他)与它们一起工作。如果这是不可能的,有没有办法获取文件夹中的所有项目并轻松访问该信息?之后,我需要将这些项目移动到另一个文件夹。
我该怎么做呢?
您可以使用Application.ActiveExplorer方法来获取当前活动的资源管理器窗口(= 显示邮件列表的东西)。然后您可以使用Explorer.Selection属性来获取所选电子邮件的列表。
要移动邮件,请使用MailItem.Move方法。
附件是我从 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