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

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.RunStandardRoute