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

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

Back
Top