Detecting Duplicate Emails

owenmj78

Does anyone know if there is any documentation for the IMANEXT2Lib.IManEmailDuplicateDetectCmd command?

I am searching at folder level within a workspace and yet getting results back from database level.


Dim FileFolder as IManFolder
Dim context As New IMANEXTLib.ContextItems

With context
'Search the whole of the current Workspace for a duplicate messageID
.Add("DestinationObject", FileFolder)
.Add("IManExt.Import.MessageID", strMessageID)
End With

Dim dupDetectCmd As New IMANEXT2Lib.IManEmailDuplicateDetectCmd
With dupDetectCmd
.Initialize(context)
.Update()
.Execute()

Try
retDoc = CType(context.Item("IManExt.IManDocuments"), IManDocument)
Catch ex As Exception
'do nothing, no duplicate found
End Try

If retDoc IsNot Nothing Then
docNumber = retDoc.Number.ToString
End If

End With

I can only assume that I am not creating my context object correctly
Can anyone help?

Thanks

guido1

Seeing as IManEmailDuplicateDetectCmd is an undocumented feature I'd suggest you use the low level API to do the same thing.

And in any case I reckon the code is more intuitive (see below):

 
' dms is a valid ManDMS instance
' session is a valid IManSession instance
' dblist is a valid ManStrings instance, populated with the databases to search
' workspaceId is a valid IManWorkspace.ObjectID
' messageId is the RFC822 message ID to search for

Dim profParams As IManProfileSearchParameters = dms.CreateProfileSearchParameters()
profParams.Add(imProfileAttributeID.imProfileContainerID, workspaceId)
profParams.Add(imProfileAttributeID.imProfileMessageUniqueID, messageId)

Dim contents As IManContents = session.SearchDocuments(dblist, profParams, True)

Dim doesEmailExistInWorkspace As Boolean = (contents.Count > 0)

The code above basically performs a low level search for the message ID, using the Workspace ObjectID as a constraint