获得电子邮件对话的“已回复”或“转发”状态？

Question

我在 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 Y").Items
End Sub
 
 '#################################################
 '### this is the ItemAdd event code
Sub ackMsgs_ItemAdd(ByVal Item As Object)
     'when a new item is added to our "watched folder"
     'we can process it
    Dim msg As MailItem
    Set msg = Item.Reply
    'This is where I want to check if the mail has been replied to, and skip the "with"
    'below if it has been replied to.
    With msg
        .Subject = "RE: " & Item.Subject
        .HTMLBody = "Body of email here"
        .Send
        Set msg.UnRead = True
    End With
 
End Sub

Sub fwdMsgs_ItemAdd(ByVal Item As Object)
    Dim msg As MailItem
    Dim newMsg As MailItem
    
    Set msg = Item.Forward
    msg.Recipients.Add ("[email protected]")
    msg.Send
        
End Sub
 
 '#################################################
Private Sub Application_Quit()
 
    Dim objNS As Outlook.NameSpace
    Set ackMsgs = Nothing
    Set fwdMsgs = Nothing
    Set objNS = Nothing
 
End Sub

Answer 1

您要找的房产

is PR_LAST_VERB_EXECUTED

（DASL名称是

"http://schemas.microsoft.com/mapi/proptag/0x10810003"

）；您应该能够使用

MailItem.PropetyAccessor.GetProperty

访问它。

使用 OutlookSpy 查看消息（我是其作者） - 单击 IMessage 按钮查看可用的 MAPI 属性。