Send email in lotus notes from Access (VBA) 1

lcrawford46 · Sep 19, 2002

Need help to send an email in Lotus Notes from Access. Tried the following code but get an error. Need to open/create a new message. Please help.

Code:

        'define objects
        Set objNotes = GetObject(&quot;&quot;, &quot;Notes.Notesession&quot;)
        Set objNotesDB = objNotes.getdatabase(&quot;&quot;, &quot;&quot;)
                            
        Call objNotesDB.openmail
        Set objNotesMailDoc = objNotesDB.CreateDocument
                            
        Call objNotesMailDoc.replaceitemvalue(&quot;SendTo&quot;, strAddress)
        Call objNotesMailDoc.replaceitemvalue(&quot;Subject&quot;, strSubj)
        Call objNotesMailDoc.replaceitemvalue(&quot;Body&quot;, strBody)
                            
        Call objNotesMailDoc.Send(True)
                            
        MsgBox &quot;mail OK&quot;, vbInformation, &quot;Sender notes-mail...&quot;
        
        Set objNotes = Nothing

rphbrew · Jan 15, 2003

Dim rst As Recordset
Dim notesdb As Object
Dim notesdoc As Object
Dim notesrtf As Object
Dim notessession As Object
Dim avarrecip() As Variant
Dim avarattach(1) As Variant
Dim i As Integer

'make new mail message
Set notessession = CreateObject("Notes.Notessession&quot

Set notesdb = notessession.GetDatabase("", "&quot

Call notesdb.OPENMAIL
Set notesdoc = notesdb.CreateDocument
Call notesdoc.ReplaceItemValue("Subject", "Put Subject Here&quot

Set notesrtf = notesdoc.CreateRichTextItem("body&quot

Call notesrtf.AppendText("Add Additional text here.&quot

Call notesrtf.AddNewLine(2)

Call notesrtf.EmbedObject(1454, "", avarattach(0), "Attachment&quot

Call notesrtf.EmbedObject(1454, "", avarattach(1), "Attachment&quot

'send message
Call notesdoc.Send(False, avarrecip)
Call LogEvent("Emails Sent to " & ListSelection & ".&quot

'log event
Msgbox "Email sent.", vbOKOnly + vbInformation, "Email Sent"
Set notessession = Nothing

lespaul · Jan 17, 2003

That's impressive! I do VBA from Delphi to Excel and Word, but have never had reason to call Lotus Notes. A star for you!!

Leslie
landrews@metrocourt.state.nm.us

There are 10 types of people in the world -
those who understand binary
and
those who don't!

MaxEd · Aug 14, 2003

I am trying to send an email via Lotus Notes in ACCESS 2000 in the backgroud when a specific date has been reached. I want to attach a query to the email (basically a list of documents they need to verify). Thanks!

-Laughter works miracles.

jellybean · Sep 11, 2003

On the lotus site, search for DCO. There is a VBA example for free there.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Send email in lotus notes from Access (VBA) 1

lcrawford46

Programmer

rphbrew

Technical User

lespaul

Programmer

MaxEd

Technical User

jellybean

Programmer

Similar threads

Part and Inventory Search

Sponsor