相关疑难解决方法(0)

我想帮助Outlook 2010线程化我的电子邮件.我的理解是它将对话视图的基础置于其conversationTopic属性之上MailItem.我编写了以下方法并创建了一个规则,因此它会触发电子邮件主题,如"订单#345 - 供应商回复"和"订单#345 - 客户回复",并将它们放在同一个主题中.不幸的conversationTopic是,这是一个只读属性.

有没有人知道解决这个问题的方法,或者更好的方法来完成同样的任务？谢谢!

Sub ModifyConversationTopic(Item As Outlook.MailItem)
    Dim regex As RegExp
    Dim newMailItem As Outlook.MailItem
    newMailItem = Item.Copy
    Set regex = New RegExp
    regex.IgnoreCase = False
    regex.Global = True
    regex.Pattern = "(Order# [0-9]+) .*"
    If regex.Test(newMailItem.Subject) Then
        Dim matches As MatchCollection
        Set matches = regex.Execute(newMailItem.Subject)
        Set topic = matches.Item(0)
        MsgBox ("OH YEAH" + topic)
        newMailItem.ConversationTopic = topic
        newMailItem.Save
    End If
End Sub