imanage/worksite/filesiteからファイルをダウンロード

Question

私はiManage（FileSite、DeskSite、WorkSiteなどと言う）と多くのことをしなければならない仕事でこの問題を抱えています。

とにかく、私がしようとしているのは、特定のファイルをInFin番号（iManageにアップロードするときにすべてのファイルに割り当てられる7桁の番号）に基づいてダウンロードできるようにするためのvbaコードを書くことです。例えばデスクトップにファイルを置く。 iManageはオブジェクトモデルを公開しており、IManExtLib.dllへの参照を既に設定していることは知っています。

私は必要なコマンドはCopy.Cmdだと思います（私はWorkSiteからsthをカットするのではなく、実行されたタスクのファイルのコピーをダウンロードするだけです）。どんな助けもありがとう。

Answer 1

既にDMSセッションがあると仮定して、取得しようとしているドキュメントのIManDocumentオブジェクトを取得してからGetCopyメソッドを呼び出す必要があります。たとえば、次の例は、文書番号123456の物理コピーを一時フォルダに取得します。 IManExtLib.dllではなく、IManage.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