Sendobject with Lotus Notes Mail

  • Thread starter Thread starter Jim Gannon
  • Start date Start date
J

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
 
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
 
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
 
Back
Top