次のスクリプトは doc の文書 ID を取得して変数 nid に代入します。
Dim doc As NotesDocument Dim nid As String '...set value of doc... nid = doc.NoteID