Привет всем! нашел скрипт который сохраняет все вложения на диск, теперь пытаюсь присвоить названия поля в название вложения, не получается. вот код:
Код:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim rtitem As Variant
Dim filename As String
Dim collection As NotesDocumentCollection
Dim form As NotesForm
Dim queryString As String
Set db = session.CurrentDatabase
queryString = {Form = "RabDoc"}
Set collection = db.Search(queryString, Nothing, 0)
Set doc = collection.GetFirstDocument
While Not doc Is Nothing
Call session.UpdateProcessedDoc( doc )
Set rtitem = doc.GetFirstItem( "Appends" )
If (IsArray(rtitem.EmbeddedObjects)) Then
ForAll obj In rtitem.EmbeddedObjectS
If (obj.Type = EMBED_ATTACHMENT) Then
filename = obj.Source
Call obj.ExtractFile ( "C:\App\" & filename)
Call doc.save(False, False)
End If
End ForAll
End If
Set doc = collection.GetNextDocument(doc)
Wend
End Sub
Последнее редактирование:
