Навта функцию.

Function GetVersions(doс1 As NotesDocument) As String
Dim sV As String
sV = ""	
If doc1.HasItem("Ver") Then
If Isarray(doc1.Ver) Then		
For k%=Lbound(doc1.Ver) To Ubound(doc1.Ver)
sV = sV & doc1.Ver(k%) 
If k%<Ubound(doc1.Ver) Then sV = sV & ", "
Next		
End If
End If
GetVersions = sV
End Function

При вызове смотрю в отладчике doc1- все нормально, прекрасый документ. Но при обращении к HasItem возникает сбой "Variant does not contain an object." Что бы это значило ?

 

Тупое сравнение переменных doc1 показывает, что в одном случае у тебя русская "с", а в другом латинская "c".

Используй Option Declare.