次のスクリプトはアイテムの親文書を取得します。doc と parentDoc は同じ文書を表すため、スクリプトは同じ NoteID を 2 回表示します。
Dim doc As NotesDocument
Dim parentDoc As NotesDocument
Dim item As NotesItem
Dim itemName As String
'...set value of doc...
Set item = doc.GetFirstItem( "Body" )
Set parentDoc = item.Parent
Messagebox( doc.NoteID )
Messagebox( parentDoc.NoteID )