Пересылка данных из документа,выбранного во View

[asdfghjkl]

Есть вьха с документами. Необходимо из выделенного документа экспортировать содержимое поля док-а в Word. Но появилась проблема, при запуске действия не определяется выбранный документ. Вот что я наработал.

Dim wk As New NotesUIWorkspace
Dim uiview As NotesUIView
Set uiview = wk.CurrentView
Dim view As NotesView
Set view = uiview.View
Dim doc As NotesDocument
Set doc = view.GetNthDocument(n&)
Dim perem As Variant
perem = doc.Vozr(0)
If perem = "" Then
Messagebox "Данные для пересылки отсутствуют", MB_OK
Else
customername = "filesword"
Dim word As Variant
Dim wordoc As Variant
Set word = CreateObject("Word.Application")
Call word.documents.add("D:\Wordproba\Admin3.dot")
Set worddoc = word.activedocument
worddoc.FormFields(1).result = perem
worddoc.saveas(customername)
End If

Если n поставить равным 1,то с первым документом делает все как надо,но нужно чтобы он делал экспорт с выбранным док-ом

 

[Omh]

Взять

Set Dc = uiview.Documents

и обработать её
Или шмалять из под кнопки агента с Target = SelectedDocuments и в нём взять db.UnprocessedDocuments

 

[susinmn]

Dim coll As NotesDocumentCollection
Dim session As New NotesSession
Dim db As NotesDatabase
Set db=session.CurrentDatabase
Set coll=db.UnprocessedDocuments
Set doc=coll.GetFirstDocument
или
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesUIView
Set view=ws.CurrentView
Set db=session.CurrentDatabase
Set doc=db.GetDocumentByID(view.CaretNoteID)

 

[Omh]

Set doc=db.GetDocumentByID(view.CaretNoteID)

Это будет выделенный документ.

Set coll=db.UnprocessedDocuments

Это вроде в Action не сработает так, как надо. Как надо сработает в агенте.

 

[TIA]

Это будет выделенный документ.

Только лучше NotesSession.DocumentContext

Это вроде в Action не сработает так, как надо. Как надо сработает в агенте.

Да, в 5ке, только после второго нажатия срабатывал. В более старших версиях исправили.

 

[Omh]

TIA, погодь, DocumentContext этож тока в агенте.
Насколько я понимаю, речуга идёт про просто экшн во view.

 

[TIA]

TIA, погодь, DocumentContext этож тока в агенте.
Насколько я понимаю, речуга идёт про просто экшн во view.

А ты попробуй CuretNoteId появилось в 6ке. Как думаешь раньше текущий документ получали?

 

[Omh]

Подтверждаю, работает не в embedded view.
Документ на котором стоит курсор.
В embedded view - не работает.

 

[asdfghjkl]

В 7-ой версии работают оба варианта от susinmn.....спасибо!!!