次のスクリプトは文書の From アイテムの種類が Authors であるかどうかを調べます。Authors のとき、スクリプトは Jeffrey Kinnamon をアイテムに追加します。
Dim doc As NotesDocument
Dim item As NotesItem
' ...set value of doc...
Set item = doc.GetFirstItem( "From" )
If item.IsAuthors Then
Call item.AppendToTextList( "Jeffrey Kinnamon" )
Call doc.Save( False, True )
End If