Handling Lotus Notes Via VBA

[ed_metcalfe]

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")

Set notesdb = objNotesWS.COMPOSEDOCUMENT(, , "memo")

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.

 

[MrTibbs]

Can you test for the current state of the spellchecker by reading a different Notes Object then only turn it off if required?
Which version of Notes are you using? We're on 4.6.3.
BTW - the code you've posted for sending email from Access via Notes will be useful.

 

[ed_metcalfe]

Mr. Tibbs,

Enjoy the code. It is quite useful.

I can't find any way of reading the state of the auto-spellchecker. That's my problem.

I'm using Notes 5.08.

Ed Metcalfe.