Domino Code Fragment

Code Name*
Reference other databases		Date*
04/29/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.147.54.6
Description*
Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim item as NotesItem
Dim itemtxt as String
Set db = New NotesDatabase ("server","dbname")
Set view = db.GetView("by Company Name")
Set doc = view.GetFirstDocument
Set item = doc.GetFirstItem ("firstfield")
Set itemtxt = item.Text
MessageBox(itemtxt)