Rotina simples para envio de e-mail

Sub EnviarMail(Destinatario As String, Titulo As String, Mensagem As String,doc As NotesDocument)

Dim s As New NotesSession
Dim Mail As NotesDocument
Dim rtitem As Variant

Set Mail = Session.CurrentDatabase.CreateDocument
Mail.Form = "Memo"
Mail.Subject = Titulo
Mail.SendTo = Destinatario

Set rtitem = New NotesRichTextItem( Mail, "Body" )

Call rtitem.AppendText(Mensagem)
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendText("Clique no DocLink para acessar o documento -> ")
Call rtitem.AppendDocLink( Doc, db.Title )
Call Mail.Send(True)


End Sub