例: RemoveItem method

次のスクリプトは文書の Subject アイテムを削除します。

Dim mainDoc As NotesDocument
'...set value of mainDoc...
Call mainDoc.RemoveItem( "Subject" )
Call mainDoc.Save( True, True )

次のスクリプトは文書のすべての添付ファイルを削除します。

Dim doc As NotesDocument
'...set value of doc...
Call doc.RemoveItem( "$FILE" )
Call doc.Save( True, True )

次のサブルーチンは文書の任意のアイテム名を変更します。まず、スクリプトは ReplaceItemValue を使用して、変更前の名前のアイテムの内容を新しい名前の新規アイテムに入力します。その後、スクリプトは RemoveItem を使用して旧名を持つアイテムを削除します。
```
Sub changeField _
( doc As NotesDocument, oldName As String, _
newName As String )
  If doc.HasItem( oldName ) Then
    Call doc.ReplaceItemValue( newName,  _
    doc.GetItemValue( oldName ) )
    Call doc.RemoveItem( oldName )
    Call doc.Save( False, True )
  End If
End Sub
```
例えば、phone アイテムの値を失わずに名前を「officePhone」に変更するには、スクリプトは次のように呼び出しを行います。
```
Dim doc as NotesDocument
'...set value of doc...
Call changeField( doc, "phone", "officePhone" )
```

次のサブルーチンは文書のコレクションを取得して、各文書に保存されたフォームを削除します。スクリプトは RemoveItem を使用して、文書に保存されたフォームを構成する 5 つのフィールド $TITLE、$INFO、$WINDOWTITLE、$BODY、$ACTIONS を削除します。

Sub removeStoredForm_
( collection As NotesDocumentCollection )
  Dim doc As NotesDocument
  Set doc = collection.GetFirstDocument()
  While Not(doc Is Nothing)
    If doc.HasItem( "$TITLE" ) Then
      formName = doc.GetItemValue( "$TITLE" )
      Call doc.ReplaceItemValue( "Form", formName )
      Call doc.RemoveItem( "$TITLE" )
      Call doc.RemoveItem( "$INFO" )
      Call doc.RemoveItem( "$WINDOWTITLE" )
      Call doc.RemoveItem( "$BODY" )
      Call doc.RemoveItem( "$ACTIONS" )
      Call doc.Save( True, True )
    End If
    Set doc = collection.GetNextDocument(doc)
  Wend
End Sub