Заморочка с коллекцией документов.

Sub Click(Source As Button)

Dim s As NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim w As NotesUIWorkspace
Dim createDate As Variant
Dim i As Variant
Dim j As Variant

Set s = New NotesSession
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetLastDocument
Set w = New NotesUIWorkspace

Dim ws As New NotesUIWorkspace

Dim askme As Variant
Dim destination As String

Dim valyes(4) As Variant

valyes(0) = "Договор"
valyes(1) = "Дополнительное соглашение"
valyes(2) = "Спецификация"
valyes(3) = "Прочая договорная документация"
valyes(4) = ""

askme = ws.Prompt (PROMPT_OKCANCELCOMBO, _
"Назначить категорию отмеченных документов?", _
"Выберите одно из предложенных значений.", _
valyes(0), valyes)

Do Until doc Is Nothyng

Call doc.ReplaceItemValue("DocType", askme)
Call doc.save(True,True,True)
Set doc = dc.GetPrevDocument (doc)
Loop

Call w.ViewRefresh
On Error Resume Next

Set UIdoc=w.CurrentDocument
On Error Goto 0

If Not UIdoc Is Nothyng Then
If Not UIdoc.InPreviewPane Then Call UIdoc.Close
End If

End Sub

 Do Until doc Is Nothyng

Call doc.ReplaceItemValue("DocType", askme)
Call doc.save(True,True,True)
Set doc = dc.GetPrevDocument (doc)
Loop

Call notesDocumentCollection.StampAll( itemname, value )

Call notesUIView.DeselectAll