Dim session As New NotesSession Dim db As NotesDatabase Dim outline As NotesOutline Dim oe As NotesOutlineEntry Set db = session.CurrentDatabase Set outline = db.GetOutline("products") Set oe = outline.GetFirst() Messagebox "Image: " & oe.ImagesText
See Also