Вебсервис в Лотусе - отдает вложения документа.

Class ClassArray  ' описание вложения для getRD
    Public Function    FuncAtachttInfo  (doc As NotesDocument, Fault1 As WS_FAULT) As ClassAtach
        'Print "FunctionArray"  & doc.header(0)    
        On Error Goto processError3            
        Dim file As String
        Dim session As New NotesSession
        Dim inStream As NotesStream
        Dim Atachob As New ClassAtach 
        
        If doc.HasEmbedded Then    
            datapatch$ = {C:\Tmp-attach\} 
            attachments = Evaluate("@AttachmentNames", doc) 
            i=0
            Forall a In attachments
                Set o=doc.GetAttachment(a)
                Redim Preserve Atachob.descriptionAtach(i)
                Redim Preserve Atachob.File64Atach(i)
                Atachob.descriptionAtach(i) = o.Name 
                Atachob.File64Atach(i) = "" ' plainText$   неисп
                i=i+1
            End Forall
        Else
            Print "нет вложений"    
        End If
        Set FuncAtachttInfo = Atachob
        Exit Function
processError3:
        Print Err, Error & { _В строке__ } & Erl
        Call Fault1.setFault(True)   ' необходимо для ошибочной активации 
        Call Fault1.setFaultString(Error$  & Erl())  
        Exit Function
    End Function
End Class    

    Public Function getAttachNew (AtName As String, UNID As String, Fault1 As WS_FAULT) As ClassAtach
        Print "СТАРТ - функция getAttach"
        On Error Goto processError
        Dim session  As NotesSession 
        Set session = New NotesSession 
        Dim inStream As NotesStream
        Dim file As String
        Dim Atachob As New ClassAtach ' Вложения
        Dim db2 As NotesDatabase
        Set db2 = session.GetDatabase("192","r.nsf")
        If Not db2.Isopen Then'проверка доступа к базе 
            Print "Нет доступа к БД Решения/распоряжения"
        Else
            Print db2.Title
        End If
        Dim formula As String
        formula =  {id = "} &  UNID    & {"}    ' regnom - текст ,  regnoms - цифра
        Print formula
        Set dc=db2.Search(formula, Nothing, 0)
        Print "dc.count " dc.count 
        Print "Print" AtName
        For i=1 To dc.count
            Set doc = dc.GetNthDocument(i)    
            If doc.HasEmbedded Then        'есть вложения 
                datapatch$ = {C:\Tmp-attach\} 
                attachments = Evaluate("@AttachmentNames", doc) 
                Forall a In attachments
                    If AtName =  a Then
                        Set o=doc.GetAttachment(a)
                        Set inStream=session.Createstream
                        Call o.ExtractFile ( datapatch$ & o.Name)
                        file = datapatch$ & o.Name 
                        Print  file
                        Call inStream.Open(file)
                        plainText$ =    inStream.ReadText()
                        Dim b64 As New CBase64()
                        plainText$ =  b64.encode (inStream) 
                        Call inStream.Close
                        Kill     datapatch$ & o.Name
                        Redim Preserve Atachob.descriptionAtach(0)
                        Redim Preserve Atachob.File64Atach(0)
                        Atachob.descriptionAtach(0) = o.Name 
                        Atachob.File64Atach(0) = plainText$ 
                    Else
                        Print "ненужное вложение "  a
                    End If
                    
                End Forall
            Else
                Print "нет вложений"    
            End If
        Next    
        Set getAttachNew = Atachob
        Print "КОНЕЦ - функция getAttachNew"  
        Exit Function
processError:
        Print Err, Error & { _В строке__ } & Erl
        Call Fault1.setFault(True)   ' необходимо для ошибочной активации 
        Call Fault1.setFaultString(Error$  & Erl())  
        Exit Function
    End Function