Send a Mail Item Using Access through Lotus Notes

I need to send a Mail Message through Lotus Notes from MS. Access 97. I have found a Lotus Automation but have not figured out how to send it through yet.. Not connecting to the Database and server.. for starters..
here is some code I testing..
Public Sub Test()
Dim s As Object
Dim db As Object
Dim doc As Object
Dim rtitem As Object
Dim nt As Object


' start up Lotus Notes and get object handle

Set s = CreateObject("Notes.NotesSession")
'getDatabase

Set db = s.GETDATABASE(server,database)

Set doc = db.CREATEDOCUMENT

doc.Form = "Memo"
doc.SendTo = "mailaddress.."    'Enter the mail address here
doc.Subject = "This is a test message"        'Enter your subject matter here

' this will build the text part of your mail message

Set rtitem = doc.CREATERICHTEXTITEM("Body")
Call rtitem.APPENDTEXT("The body of the message goes here!")
Call rtitem.ADDNEWLINE(1)

Call doc.Send(False) 'Make sure this parameter stays false


' set all object handles to nothing to release memory

Set doc = Nothing
Set db = Nothing
Set s = Nothing
End Sub