Prova cosė:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
dim docs as notesdocumentcollection
Dim doc As NotesDocument
Dim memo As NotesDocument
Dim rcitem As NotesRichtextItem
Set db = session.CurrentDatabase
Set docs = db.UnprocessedDocuments
If docs.Count > 0 Then
For n = 1 To docs.Count
Set memo = docs.GetNthDocument(n)
Set doc = New NotesDocument (db)
doc.Form = "Memo"
doc.SendTo = "User2"
doc.Subject = "Ecco il tuo documento"´
Set rcitem = New NotesRichtextItem (doc, "Body")
Call rcitem.AppendDocLink (memo, "clicca qui" )
Call doc.Send( False )
Call session.UpdateProcessedDoc(memo)
Next
End If
End Sub
ciao, Diego.
|