正在从 imanage/worksite/filesite 下载文件

Question

我在工作中遇到了这个问题，我必须使用 iManage（也称为 FileSite、DeskSite、WorkSite 等）做很多事情，也许你已经听说过。

无论如何，我想做的是编写一个 VBA 代码，该代码将能够根据其 InFin 编号（分配的 7 位数字）下载特定文件上传到 iManage 时的每个文件），然后将文件放在某个地方；例如，在桌面上。我知道 iManage 确实公开了一个对象模型并且我已经将引用设置为 IManExtLib.dll

我相信我需要的命令是 Copy.Cmd（我不想从 WorkSite 中删除某些内容，而是只为执行的任务下载文件副本）。

如有任何帮助，我们将不胜感激。

Answer 1

假设您已经有一个 DMS 会话，您需要为您尝试获取的文档获取一个 IManDocument 对象，然后调用 GetCopy 方法。例如，以下将文档编号 123456 的物理副本检索到临时文件夹。请注意，您需要添加对 IManage.dll 的引用，而不是 IManExtLib.dll.

Dim dmsRoot As IManDMS
Dim dmsSession As IManSession
Dim dmsDatabase As IManDatabase
Dim doc As IManDocument

Dim tempDocName As String

Const ServerName As String = "YourDMS"
Const DatabaseName As String = "YourDatabaseName"
Const DocNumToFind = 123456
Const DocVerToFind = 1

    tempDocName = "C:\temp\mydoc.doc"

    Set dmsRoot = New ManDMS
    Set dmsSession = dmsRoot.Sessions.Add(ServerName)
    dmsSession.TrustedLogin

    Set dmsDatabase = dmsSession.Databases.ItemByName(DatabaseName)

    Set doc = dmsDatabase.GetDocument(DocNumToFind, DocVerToFind)
    doc.GetCopy tempDocName, imGetCopyOptions.imNativeFormat

正在从 imanage/worksite/filesite 下载文件

Downloading files from imanage/worksite/filesite

excel

vba

imanage