Email with Lotus Notes

[Beeyen]

Hello,

I am trying to apply some coding which I was hoping to receive some
assistance.

1. I have a form called [QualityScore], in which I would like to send via
Lotus Notes email as a form attachment. Is it possible and how could it be
incorporated with the coding below? I believe the coding below is standard
for opening Lotus Notes.
2. Additional, I would like to code a Lotus Notes email command to attach
information (an ID) with the ID listed in the subject line, from a field on
the mainform.

Would someone be so kind as to assist me with some ideas, coding or direction?


Thanks


Private Sub emailbutton_Click()
'On Error GoTo Err_EMailButton_Click
Dim notesdb As Object
Dim notesdoc As Object
Dim notesrtf As Object
Dim notessession As Object
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", strSupportEMail)
Call notesdoc.replaceitemvalue("Subject", "Problem Report")
Set notesrtf = notesdoc.createrichtextitem("body")
Call notesrtf.appendtext("Problem Report")
Call notesrtf.addnewline(2)
Rem attach Error Report doc
's = ActiveDocument.Path + "\" + ActiveDocument.Name
Call notesrtf.embedObject(1454, "", strCurrentPath, "Mail.rtf")
Rem send message
Call notesdoc.Send(False)
Set notessession = Nothing

End Sub