Puoi lavorare tranquillamente con la NotesdocumentCollection...
e da li catturare il primo elemento dell\'array di collezione.
Guarda questo esempio trovato su Notes.net è davvero molto semplice:
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim docs As NotesDocumentCollection
Dim doc As NotesDocument
Set docs = Source.Documents
Set doc = docs.GetFirstDocument()
Dim DocInfo As String
DocInfo = doc.TXTTitle(0)
Msgbox DocInfo
Continue = False
End Sub
Daniele Grillo - Fondatore di Dominopoint.it
|