10 lines
250 B
Text
10 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 )
|