Shared Action, viste e documenti selezionati

Quello che ho imparato a fare è: inserire un pulsante nella ActionBar di una vista. L’azione che deve essere svolta si deve applicare solo ad un documento (quello selezionato). E’ tutto molto semplice:

Si crea una nuova Action da qua:

Il codice dell’evento click può essere:

Dim sessione As New NotesSession
Dim dbCurrent As NotesDatabase
Dim collDocs As notesdocumentcollection
Dim DocSel As notesdocument
Dim strId As StringOn Error Goto ProcessErrorSet dbCurrent = sessione.CurrentDatabase
Set collDocs = dbCurrent.UnprocessedDocumentsIf collDocs.count = 1 Then

Set docSel = collDocs.getfirstdocument
If Not DocSel Is Nothing Then

strId = docSel.UniversalID
Messagebox("Ecco il mio documento! " & strId)

... faccio tutto quello che devo fare

End If

Else

Messagebox("E necessario selezionare un documento per volta.")

End If

Il comando dbCurrent.UnprocessedDocuments restituisce tutti i documenti “spuntati” in quel momento nella vista (se nessuno è spuntato restituisce comunque quello selezionato).

Ora è sufficiente aggiungere nell’Action Bar della vista l’Action appena creata: