Puede usar este código, espero te sirva
\\\\\\\'Envia email
Set BD=session.getdatabase(\\\\\\\"nombre_servidor\\\\\\\",\\\\\\\"mail.box\\\\\\\")
Set Doc=New NotesDocument(BD)
Doc.form=\\\\\\\"Memo\\\\\\\"
Doc.from=\\\\\\\"Titulo\\\\\\\"
Doc.subject=\\\\\\\"aqui poner el subject\\\\\\\"
Doc.SendTo=\\\\\\\"
[email protected]\\\\\\\"
Doc.CopyTo=\\\\\\\"
[email protected]\\\\\\\"
Doc.BlindCopyTo=\\\\\\\"
[email protected]\\\\\\\"
Doc.Body=\\\\\\\"esto aparece en el cuerpo de email\\\\\\\"
Doc.recipients=Doc.SendTo
Call Doc.save(True,True)
Messagebox\\\\\\\"Se envia exitosamente el email\\\\\\\", 0+64 , \\\\\\\"Atención\\\\\\\"
