send email using lotus notes - Tbl data in message body

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
 
R

ryguy7272

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

lotus notes email 4
Lotus Notes Code 3
Emailing to Specific Person 1
Email code to specific recipient 1
Email Lotus Notes 1
Sending an Email via Lotus Notes 2
How to CALL procedures from the module 1
Lotus Notes e-mail 1

Top