Email Lotus Notes

[ekomsky via AccessMonster.com]

hello
I found the code below but i'm just starting out with access and i'm not sure
how to make it work. Does is use a table or do you put the emails into the
body of the code ? Can someone break this code down for me, dumb it down as
much as possible. I have alist of 30 receipients i need to send a file to
no attachement just an email.

Private Sub Command7_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

 

[ekomsky via AccessMonster.com]

Bump