Sendobject with Lotus Notes Mail

[Jim Gannon]

Using the DoCmd.SendObject method I set the editmessage to
False but Lotus Notes Mail still presents the email
message for editing and requires hitting the send button
to send the mail.

I can find nothing in the Lotus or MS knowledge bases. I
have played with the lotus mail settings as well.

Has anyone bumped into this and know the trick?

Thanks

jg

 

[Richard Marr]

Hi Jim,

Not sure of the issue you are encountering but I found the following
third party code that might provide an alternative way to send the mail.

http://www.granite.ab.ca/access/emaillotusnotes.htm


"This posting is provided "AS IS" with no warranties, and confers no
rights. You assume all risk for your use. © 2003 Microsoft Corporation. All
rights reserved."

Richard Marr
Microsoft IIS Support Professional

 

[SBD]

I use the following code which allows me to generate an e-
mail from Notes. Doesn't work with sending attachments
though.

Function NotesMailSend(strRecipient As String, strSubj As
String, strBody As String)

On Error GoTo Err_NotesMailSend

Dim objNotes As Object
Dim objNotesDB As Object
Dim objNotesMailDoc As Object

Set objNotes = GetObject("", "Notes.Notessession")
Set objNotesDB = objNotes.getdatabase("", "")

Call objNotesDB.openmail
Set objNotesMailDoc = objNotesDB.CreateDocument

Call objNotesMailDoc.replaceitemvalue("SendTo",
strRecipient)
Call objNotesMailDoc.replaceitemvalue("Subject",
strSubj)
Call objNotesMailDoc.replaceitemvalue("Body", strBody)

Call objNotesMailDoc.Send(False)

MsgBox "Mail Sent OK", vbInformation, "Sender notes-
mail..."

Set objNotes = Nothing

Exit_NotesMailSend:
Exit Function

Err_NotesMailSend:
MsgBox Err.Description
Resume Exit_NotesMailSend

End Function