M-Files で検証を伴う文書処理を設定する

' FlexiCapture 接続設定。
szFCServerUrl = "http://FlexiCapture"
'szCompany = "Company" '（オプション）テナント名を設定します。
szFCUsername = "Username"
szFCPassword = "Password"
szFCProject = "InvoiceDemoProject"
szFCBatchType = "Default"
' M-Files 設定。
iVerificationUrlPropDef = 1024 '検証 URL 用の M-Files プロパティの ID。
' FlexiCapture クライアントを作成します。事前にアセンブリ Abbyy.MFiles.FlexiCapture.Activity.dll を登録しておく必要があります。
Set oClient = CreateObject("Abbyy.MFiles.FlexiCapture.Activity.FlexiCaptureWebClient")
' 対象ドキュメントのコンテキストを設定します。
oClient.TargetContext.Vault = Vault
oClient.TargetContext.ObjVer = ObjVer
oClient.TargetContext.PropertyValues = PropertyValues
' FlexiCapture の接続設定を行います。
oClient.ConnectionSettings.ServerUrl = szFCServerUrl
'oClient.ConnectionSettings.Company = szCompany '（オプション）テナント名。
oClient.ConnectionSettings.Username = szFCUsername
oClient.ConnectionSettings.Password = szFCPassword
' 対象ドキュメントを FlexiCapture に送信します。
iBatchId = oClient.SendTarget(szFCProject, szFCBatchType)
' 検証 URL の取得を試みます。
szVerificationUrl = oClient.GetVerificationUrl(szFCProject, iBatchId)
' 対象ドキュメントの検証 URL を更新します。
Set oVerificationUrlPropVal = CreateObject("MFilesAPI.PropertyValue")
oVerificationUrlPropVal.PropertyDef = iVerificationUrlPropDef
oVerificationUrlPropVal.Value.Value = szVerificationUrl
Vault.ObjectPropertyOperations.SetProperty ObjVer, oVerificationUrlPropVal

Result.CheckSucceeded = (Document.StageInfo.StageName != "Verification Postprocessing" && Document.StageInfo.StageName != "Verification");