Profile Screen ContextItems

Rho

I am trying to pre-fill the new document dialog box. I am able to insert the author, operator, class, and document description. However, I am having issues when trying to insert the Client/Matter number or text in the comments page. Is there any where that I can find the ContextItems names for a profile screen?

Here is my code below. Any help would be greatly appreciated.

Sub CreateNewDoc()
Dim dms As New ManDMS
Dim sess As IManSession
Dim db As IManDatabase
Dim docclasses As IManDocumentClasses
Dim docclass As IManDocumentClass
Dim docsubclasses As IManDocumentClasses
Dim docsubclass As IManDocumentClass
Dim doctype As IManDocumentType
Dim objContextItems As IMANEXTLib.contextItems
Dim objCommand As IMANEXTLib.ImportCmd
Dim importPath As String

importPath = "H:\Test Profile2.doc" 'Arbitrary example of a valid filepath.


Set sess = dms.Sessions.Add("DCDMS01")
sess.TrustedLogin

Set db = sess.Databases.ItemByName("DCDOC1") 'Arbitrary example of a valid database.

' Verify document class
Set docclasses = db.SearchDocumentClasses("DOC", imSearchBoth, True)
If Not docclasses Is Nothing Then
' Get the item
Set docclass = docclasses.ItemByName("DOC")
' Check for required subclass
If True = docclass.SubClassRequired Then
' Example to get all the subclasses
Set docsubclasses = docclass.GetSubClasses("", imSearchBoth, True)
' Example to assume it's the first item in the collection
Set docsubclass = docsubclasses.ItemByIndex(1)
End If
End If

' Get document type by filepath
Set doctype = db.GetDocumentTypeFromPath(importPath)
If doctype Is Nothing Then
'Exit: failed to detect file type
MsgBox "Failed to detect file type."
Exit Sub
End If


'display the profile
Set objCommand = New IMANEXTLib.ImportCmd
Set objContextItems = New IMANEXTLib.contextItems
objContextItems.Add "IManDestinationObject", db
objContextItems.Add "IManExt.Import.FileName", importPath
objContextItems.Add "IManExt.Import.DocAuthor", "jholehouse"
objContextItems.Add "IManExt.Import.DocOperator", sess.UserID
objContextItems.Add "IManExt.Import.DocDescription", importPath
objContextItems.Add "IManExt.Import.DocClass", "Delete"
objContextItems.Add "IManExt.Import.Custom2", "L10638"
objContextItems.Add "IManExt.Import.DocType", "WORD"
objContextItems.Add "IManExt.Import.Comment", "this is a test"
objContextItems.Add "IManExt.Import.InheritSecurity", True
objCommand.Initialize objContextItems

objCommand.Update
objCommand.Execute



sess.Logout
dms.Close
Set db = Nothing
End Sub