Returns TRUE if mail was sent or FALSE if not.
Function CreateMail(Byval SendTo As String, Byval CopyTo As String ,Byval
BlindCopyTo As String, Byval Subject As String , Byval Mensagem As String ,
doclink As NotesDocument) As Integer
On Error 4294 Goto Erro
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rcampo As NotesRichTextItem
Set db = session.CurrentDatabase
Set doc = New NotesDocument(db)
Set rcampo = New NotesRichTextItem(doc,"body")
doc.Form = "Memo"
doc.SendTo = SendTo
doc.CopyTo = CopyTo
doc.BlindCopyTo = BlindCopyTo
doc. Subject = Subject
Call rcampo.AppendText(Mensagem)
If Not doclink Is Nothing Then
Call rcampo.AppendDocLink(doclink, "Clique aqui")
End If
Call doc.Send(False)
CreateMail = True
Exit Function
erro:
CreateMail = False
Exit Function
End Function
This was first published in November 2000