将文件上传到iManage / Worksite到特定文件夹

时间:2018-08-14 17:42:34

标签: excel vba imanage worksite-sdk

我有一个特定的FolderID,我想将文件上传到此目录。 (我引用了iManage.dll和ImanEXTLib)。

我正在努力从代码级别填写对话框/导入窗口中的某些字段。

理想情况下,我想跳过此阶段以加快上传速度。如果要传达所有必需的数据,则除了单击“确定”之外,对话框中什么都看不到。

这是代码:

我正在使用ManDMS.CreateSearchParameters

定位文件夹

获得结果后:

Dim rslts as IManFolders
Set rslts = IManSession.WorkArea.SearchFolders(<ManStrings>,<SearchParameters>)
If rslts.Empty = True Then
    MsgBox "Found shit."
Elseif rslts.Empty = False Then
    Dim TgtFdr as ImanFolder
    Set impCmd = ImportCmd
    Set context = New ContextItems
    Set TgtFdr = rslts.ItemByIndex(1)

现在我正在设置上下文项,但是我遇到了问题和子类问题。这些是必须上传的,但是这些字段仍然为空,我不知道如何解决这些问题以完成上传:

context.Add("IManDestinationObject", TgtFdr)
context.Add("IManExt.Import.DocAuthor", UserID)
context.Add("IManExt.Import.DocDescription", file Name)           
context.Add("IManExt.Import.FileName", file path)
context.Add("IManExt.Import.DocClass", "some info")
context.Add("IManExt.Import.DocSubclass", "some info")
context.Add("IManExt.Import.DocMatter", "some info")

impCmd.Initialize context
impCmd.Update

If impCmd.Status = IMANEXTLib.CommandStatus.nrActiveCommand Then

    impCmd.Execute
Else
Endif

尝试了不同的东西-MatterID,MatterDesc,Custom1,2、3等。是否可以跳过此窗口中的零件并以更简单的方式上载文件?另外,是否可以在末尾取出新导入文件的doc号?

我尝试过:

UplDoc = (ImanDocument)context.Item("ImportedDocument")

1 个答案:

答案 0 :(得分:0)

我想通了。

排序...我进入对象浏览器,设法解决了这个问题,并利用了.DuplicateProfileFromDoc方法。我只是从其他已经存储在工作现场的文档中镜像了上传文档的配置文件。

最后一点也解决了。 应该是:

Set UplDoc = context.Item("ImportedDocument")

干杯!