send email using lotus notes - Tbl data in message body

  • Thread starter Thread starter Boss
  • Start date Start date
B

Boss

Hi,

I got the below code to send email from access using lotusnotes.

Private Sub Command0_Click()
Dim notesdb As Object
Dim notesdoc As Object
Dim notesrtf As Object
Dim notessession As Object
Dim strmessage As String
Set notessession = CreateObject("Notes.Notessession")
Set notesdb = notessession.GetDatabase("", "")
Call notesdb.OpenMail
Rem make new mail message
Set notesdoc = notesdb.CreateDocument
Call notesdoc.replaceitemvalue("Sendto", "(e-mail address removed)")
Call notesdoc.replaceitemvalue("CopyTo", "(e-mail address removed)")
Call notesdoc.replaceitemvalue("Subject", "Subject Report") ' subject
Set notesrtf = notesdoc.createrichtextitem("body")
strmessage = table1
Call notesrtf.appendtext(strmessage) ' email text
Call notesdoc.Send(False)
Set notessession = Nothing
MsgBox "done"
End Sub

I also need to send data from table "table1" but not as attachment but in
the message body.

Please help me with some code or links. Thx!

Boss
 
Does BONY use Lotus Notes? I used to work at JPMorgan and they used Lotus
Notes -- I'm NOT a fan of Lotus Notes, or JPM. I'm not sure if you can
develop code for what you want to do, but CDO and/or SMTP are two alternative
options that you may want to consider:
http://www.rondebruin.nl/cdo.htm

HTH,
Ryan---
 
Back
Top