例: IsNames property

次のスクリプトは文書に [SendTo] フィールドがあるかどうかを調べます。[SendTo] フィールドがある場合は、このフィールドに設定されている受信者に文書をメールで送信します。[SendTo] フィールドがない場合は、1 つ以上の名前を含む、文書内の最初の Names アイテムを検索し、そのアイテムに設定されているユーザー名に文書をメールで送信します。1 つ以上の値を含む Names アイテムがないとき、文書は送信されません。

Dim doc As NotesDocument
Dim item As NotesItem
Dim j As Integer
'...set value of doc...
Set item = doc.GetFirstItem( "SendTo" )
' if there's no SendTo item
' try to find another item of type Names, that has a value
If ( item Is Nothing ) Then
  Forall i In doc.Items
    If i.IsNames And ( i.Values( 0 ) <> "" ) Then
      Set item = i
      Exit Forall
    End If
  End Forall
  ' if we found an item of type Names
  ' mail the document to people in that item
  If Not ( item Is Nothing ) Then
    Call doc.Send( False, item.Values )
  End If
' if there is a SendTo item, no parameters needed     
' mail the document
Else
  Call doc.Send( False )
End If