Сохранение в iManage с VBA

Я пытаюсь найти образец VBA для сохранения файла Excel в iManage. У меня есть код, который позволяет мне загрузить документ, но я не знаю, есть ли что-то подобное для сохранения в рабочей области.

Файл Excel будет иметь ссылку на рабочую область, например, 123456/0001, и поэтому код макроса будет смотреть на это и затем сохранять в рабочей области с этим номером клиента / материи.

Код для взаимодействия с iManage находится здесь:

Private Sub DownloadDoc()

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

Dim tempDocName As String

Const ServerName As String = "MYSERVER"
Const DatabaseName As String = "MYDATABASE"

Const DocNumToFind = 7487741
Const DocVerToFind = 1

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

    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
   End Sub

Я сознаю, что на самом деле у меня совсем немного кода, поэтому даже пару указателей / методов и т. Д., На которые я могу пойти и исследовать еще кое-что, будет оценено.

0 ответов

Другие вопросы по тегам