Domino Code Fragment

Code Name*
Create and send mail		Date*
04/29/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.189.2.122
Description*
In LotusScript, to send a message in Notes requires the following type of code: Sub Click (source as Button)' a button to send info with...		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
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"
if txtSubject = "" then
doc.Subject = "Here is a quick thought ..."
else
doc.Subject = txtSubject.text
endif
if txtMemo = "" then
doc.Memo = "Example Text"
else
doc.Memo = txtMemo.text
endif
Call doc.Send (False, "Shadish")
End Sub