Dim doc As NotesDocument '...set value of doc... Dim item As NotesItem Set item = doc.GetFirstItem( "Subject" ) Forall v In item.Values Messagebox( v ) End Forall
See Also