Mi rispondo da sola, ecco lo script da associare al bottone, lo lascio in eredità.
Sub Click(Source As Button)
On Error Resume Next
Dim db As New NotesDatabase("","")
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim uiMemo As NotesUIDocument
Dim memo As NotesDocument
Dim directory As NotesDatabase
Dim collection As NotesDocumentCollection
Dim persondoc As NotesDocument
Dim sendto As NotesItem
Dim recipients() As String
Dim counter As Long
\'contare i documenti selezionati
Set directory = session.CurrentDatabase
Set collection = directory.UnprocessedDocuments
\'se non selezionato nulla
If collection.Count = 0 Then
Beep
Msgbox "Attenzione, nessun utente selezionato"
Exit Sub
Else
Print "Invio Mail"
End If
\'prepara la mail
Call db.OpenMail
Set uiMemo = workspace.ComposeDocument("Notes451/Provincia/IT","mail\\" & db.FileName, "memo")
Set memo = uiMemo.document
\'recupera gli indirizzi
Redim recipients(collection.Count)
Set persondoc = collection.GetFirstDocument
While Not (persondoc Is Nothing)
recipients(counter) = persondoc.doc_author(0)
counter = counter + 1
Set persondoc = collection.GetNextDocument(persondoc)
Wend
Call memo.ReplaceItemValue("EnterSendTo",recipients)
Call uimemo.Reload
End Sub
|