Wie kann ich Felder vom Typ "NotesRef" erzeugen?

Um eigene Mailmasken (oder andere) zu erstellen, kann es manchmal erforderlich sein, Referenzfelder zu erstellen, deren Inhalt eine Referenz auf ein Ausgangdokument ist. Diese Items sind vom Typ "NOTEREFS (4) ".

Um diese (im richtigen Format) zu erzeugen kann folgender einfacher Trick angewendet werden:

               Dim Session As New NotesSession
              Dim docTemp As NotesDocument
              Dim item As NotesItem

              Set doc                = Session.CurrentDatabase
              Set docTemp         New NotesDocument (doc.ParentDatabase)
              Call docTemp.MakeResponse (doc)
              Set item = docTemp.GetFirstItem ("$Ref")
              Call item.CopyItemToDocument (doc, "$AnyFieldName")

Simpel oder?