' Точка входа.

Dim LoginPoint As SBLogon.LoginPoint

' Приложение.

Dim DirectumApplication As sbrte.Application

' Параметры соединения с использованием кода системы.

ConnectionParams ="SystemCode=DIRECTUM"

' Получить приложение, используя точку входа.

Set LoginPoint = New SBLogon.LoginPoint

Set DirectumApplication = LoginPoint.GetApplication(ConnectionParams)

' Создать и стартовать задачу по типовому маршруту.

Dim Task As sbrte.ITask

Const RouteCode As String ="Д000030"

Set Task = DirectumApplication.TaskFactory.CreateNew

Task.LoadStandardRoute (RouteCode)

' Заполнить параметры типового маршрута значениями.

' Типовой маршрут имеет следующие параметры:

'   "ЭлДокумент" типа Электронный документ;

'   "Рецензенты" типа Список пользователей;

'   "Подписи" типа Коллекция строк.

Dim EDocParam As sbrte.IWorkflowParam

Dim ReviewersParam As sbrte.IWorkflowParam

Dim SignsParam As sbrte.IWorkflowParam

Const EDocID As String = 119856

Dim EDocInfo As sbrte.IEDocumentInfo

Set EDocInfo = DirectumApplication.EDocumentFactory.ObjectInfo(EDocID)

Dim Reviewers As sbrte.IUserList

' Задать имена начальника отдела и директора компании

' из справочника Пользователи.

Const SuperiorName As String = ="IVANOV"

Const DirectorName As String ="PETROV"

Const ReviewerCount As Integer = 2

Dim ReviewerNames(ReviewerCount - 1) As String

Dim Reviewer As sbrte.IUser

ReviewerNames(0) = SuperiorName

ReviewerNames(1) = DirectorName

With Task.WorkflowParams

' Установить значение параметра типа "Электронный документ".

 Set EDocParam = .ValueByName("ЭлДокумент")

 EDocParam.Value = EDocInfo

  ' Установить значение параметра типа "Список пользователей".

 Set ReviewersParam = .ValueByName("Рецензенты")

 Set Reviewers = ReviewersParam.Value

 Reviewers.Clear

 For I = 0 To ReviewerCount - 1

   Set Reviewer = DirectumApplication.ServiceFactory.GetUserByName( _

     ReviewerNames(I))

   Call Reviewers.Add(Reviewer)

 Next I

' Установить значение параметра типа "Коллекция строк".

' Задать признак подписи "Да" для каждого рецензента из параметра "Рецензенты".

 Set SignsParam = .ValueByName("Подписи")

 For I = 0 To ReviewerCount - 1

   SignsParam.Values(I) ="Да"

 Next I

End With

' Вложить документ и стартовать задачу.

Dim Attachments As sbrte.IAttachmentList

Set Attachments = Task.GetAttachments(False)

Call Attachments.Add(EDocInfo)

Task.SetupStandardRoute(True)

Task.Start