在同一对话中查找邮件

Question

我想在发送邮件时查找对话中的所有消息。

我这样做可能并不高效，有时在使用特殊字符时会出错（在法语中，我们有很多重音符号...）

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If Item.Class <> olMail Then Exit Sub

    Set objFolder = objNS.GetDefaultFolder(olFolderInbox)
    Dim objMsgInbox As Items
    Set objMsgInbox = objFolder.Items

    Set Search = objMsgInbox.Restrict("[Conversation]=" & Chr(34) & Item.ConversationTopic & Chr(34)) 
    If Search.Count > 0 Then
        MsgBox "Found!"
    End if

End if

我想我应该以ConversationId或pidTagConversationThread为基础，但无法使其正常工作。