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.
Printable View
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.
Quote:
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
This is from the Lotus.com site (search on visual basic, ole, automation, notes).
[Edited by billwagnon on 05-24-2000 at 01:52 PM]Code:
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