P
Peter Suba
Hello,
It seems like filtering for COnversationtopic does not really work.
Can You tell me what can cause this?
See the following snippet:
CntB=0
oMsgs.Filter = Nothing
Set objMsgFilter = oMsgs.Filter
objMsgFilter.Type = "IPM.Post.Ticketing list display form"
objMsgFilter.Fields("ConversationTopic") = ConvTopic
For Each oMsg In oMsgs
If oMsg.ConversationTopic <> ConvTopic Then
CntB = CntB + 1
End If
If oMsg.EntryID <> Item.EntryID _
And oMsg.ReceivedTime < Item.ReceivedTime _
And oMsg.ConversationTopic = ConvTopic Then
blnIsFirst = False
Exit For
End If
Next
If 0<>CntB Then
MsgBox "Filter does not work." & vbCrLf & _
"Found additional messages: " & CntB
End If
In this part, CntB should always be 0 because there is filtering for the
conversationtopic field. However, I regularly get well above 0 values in the
popup box when I run this code.
BTW I also tried objMsgFilter.ConversationTopic = ConvTopic instead of
objMsgFilter.Fields("ConversationTopic") = ConvTopic with no effect.
Peter
It seems like filtering for COnversationtopic does not really work.
Can You tell me what can cause this?
See the following snippet:
CntB=0
oMsgs.Filter = Nothing
Set objMsgFilter = oMsgs.Filter
objMsgFilter.Type = "IPM.Post.Ticketing list display form"
objMsgFilter.Fields("ConversationTopic") = ConvTopic
For Each oMsg In oMsgs
If oMsg.ConversationTopic <> ConvTopic Then
CntB = CntB + 1
End If
If oMsg.EntryID <> Item.EntryID _
And oMsg.ReceivedTime < Item.ReceivedTime _
And oMsg.ConversationTopic = ConvTopic Then
blnIsFirst = False
Exit For
End If
Next
If 0<>CntB Then
MsgBox "Filter does not work." & vbCrLf & _
"Found additional messages: " & CntB
End If
In this part, CntB should always be 0 because there is filtering for the
conversationtopic field. However, I regularly get well above 0 values in the
popup box when I run this code.
BTW I also tried objMsgFilter.ConversationTopic = ConvTopic instead of
objMsgFilter.Fields("ConversationTopic") = ConvTopic with no effect.
Peter