9 lines
250 B
Text
9 lines
250 B
Text
Dim session As New NotesSession
|
|
Dim db As NotesDatabase
|
|
Dim doc As NotesDocument
|
|
Set db = session.CurrentDatabase
|
|
Set doc = New NotesDocument( db )
|
|
doc.Form = "Memo"
|
|
doc.SendTo = "John Doe"
|
|
doc.Subject = "Subject of this mail"
|
|
Call doc.Send( False )
|