Sample requested.............(Notes)

I am just getting into interfacing with Notes. Can any of you that are more experienced send me some sample code that I can jump through and pick up some of the nuances?

[email protected]

Any help would be appreciated.

[fmnunes]

Originally posted by Boothman_7
I am just getting into interfacing with Notes. Can any of you that are more experienced send me some sample code that I can jump through and pick up some of the nuances?

[email protected]

Any help would be appreciated.

Try http://www.notes.net or http://www.components.lotus.com

What kind of sample ? But work both, VB and Lotus Notes

see u

[billwagnon]

This is from the Lotus.com site (search on visual basic, ole, automation, notes).

Sub Button1_Click()
MsgBox "this is button on my spread sheet"
    Dim s As Object
     Dim db As Object
     Dim doc As Object
's and db declared in general as object
Set s = CreateObject("Notes.Notessession")  	'create notes session
Set db = s.getdatabase("", "")      	'set db to database not yet named
Call db.openmail       			'set database to default mail database
Mycell = Sheet1.Cells(1, 4)
Set doc = db.createdocument  ' create a mail document
     msg = "Mail has been sent: " & Date & "  " & Time & Chr(10) &  	'these 2 lines need...
	"The value in Cell D1 [ " & Mycell & " ] is in the body of the message"  '...to be put on one line
     Call doc.replaceitemvalue("SendTo", s.UserName) 'Notes client's user name (for testing)
     Call doc.replaceitemvalue("Subject", "Excel message")
     Call doc.replaceitemvalue("Body", msg)
     Call doc.Send(False)  'send the message	'send the message
MsgBox doc.getitemvalue("Subject")(0) & " has been sent"
Set s = Nothing  		' close connection to free memory
End Sub

[Edited by billwagnon on 05-24-2000 at 01:52 PM]