Sending email using LotusScript.

Sample code used for sending email using LotusScript.

code started from below :
Sub Initialize

 Dim session As new notessession
Dim db As notesdatabase
Dim docMail As notesdocument
Dim rtitem As Variant
Dim doc As notesdocument
Dim strSendTo As Variant
Dim strSubject As String
Dim strCopyTo As Variant

Set db=session.currentDatabase
Set docColl= db.Unprocessedocument
Set doc= docColl.getFirstDocumnet

While not doc is nothing
strSendTo= doc.getitemValue(sendTo)
 strCopyTo= doc.getitemValue(CopyTo)
Set docMail=db.createdocument
Set rtitem=docMail.CreateRichTextItem(“Body”)

If strSendTo(0) = "" Then Exit Sub

'=====set mail
docMail.Form = “Memo”
docMail.From = session.UserName
docMail.Principle = session.UserName
docMail.SendTo = strSendTo

If Isarray(strCopyTo) Then
If strCopyTo(0)<>"" Then
docMail.CopyTo = strCopyTo
End If
Else
If strCopyTo<>"" Then
docMail.CopyTo = strCopyTo
End If
End If

docMail.Recipients = strSendTo
docMail.Subject = strSubject
docMail.PostedDate = Now

'=====set body field
Call rtitem.AppendText("Please click this doclink to see more details about the status" + " ")
Call rtitem.AppendDocLink( doc, "click to open document")
Call rtitem.AddNewLine( 2 )

'=====send mail
Call docMail.send(False)
Set doc= docColl.getNextDocument(doc)
Wend

End Sub