Dim doc As NotesDocument
'...set value of doc...
doc.SignOnSend = True
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
doc.SignOnSend = True
doc.Form = "Memo"
doc.Subject = "Here's a signed mail memo."
Call doc.Send( False, "Carl Pycha" )