Загрузка файлов из 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