Handling Lotus Notes Via VBA

[Ed2020]

I have the following code which sends an email from a Lotus Notes email account:
Public Sub SendMail(strAddressee As String, strSubject As String, strBody As String)

Dim objNotesWS As Object Dim notesdb As Object

Set objNotesWS = CreateObject("Notes.NotesUIWorkspace&quot

Set notesdb = objNotesWS.COMPOSEDOCUMENT(, , "memo&quot

notesdb.FIELDSETTEXT "EnterSendTo", strAddressee notesdb.FIELDSETTEXT "Subject", strSubject notesdb.FIELDSETTEXT "Body", strBody

notesdb.Send

notesdb.Close Set notesdb = Nothing Set objNotesWS = Nothing

End Sub

This works fine, providing the user doesn't have their auto spell check turned on. I can use send keys to alter the state of this property, but if auto-spell check is off then sendkeys turns it on!

Anyone got any ideas??

Ed Metcalfe.