小编Cha*_*zel的帖子

我在Outlook中有一个VBA脚本,旨在根据项目放在文件夹中的时间进行一些自动电子邮件处理.这可以按预期工作,但我试图让它更加智能,以便脚本可以查看放入文件夹的电子邮件是否已被回复.

目前,当邮件放在文件夹X中时,脚本会自动回复电子邮件,然后将邮件标记为未读.但是,如果邮件已被标记为"已回复",则无论脚本是否回复邮件,或者有人在将邮件放入文件夹X之前发送了回复,我都要确保脚本不发送回复,并且只是将邮件标记为未读.这是通过阅读IMAP属性标签可以做到的吗？如果是的话,我在寻找哪个标签？我一直在努力弄清楚如何实现这一目标.任何帮助,将不胜感激.

作为参考,这是我的脚本(删除了识别细节):

注意:我知道我有一些声明的变量但没有引用.我稍后会用它来做别的事情.

Option Explicit
 '##############################################
 '### all code for the ThisOutlookSession module
 '### Module level Declarations
 'expose the items in the target folder to events
Dim WithEvents ackSpamMsgs As Items
Dim WithEvents ackPhishMsgs As Items
Dim WithEvents fwdMsgs As Items
 '###############################################
Private Sub Application_Startup()
     'some startup code to set our "event-sensitive"
     'items collection
    Dim objNS As Outlook.NameSpace
    Dim ackFolder As Folder
    Dim compFolder As Folder

    Set objNS = Application.GetNamespace("MAPI")
    Set ackMsgs = objNS.Folders("Inbox").Folders("Folder X").Items
    Set fwdMsgs = objNS.Folders("Inbox").Folders("Folder …