Lotus Domino Designer 8.5 ヘルプ - 例:RemoveItem メソッド

LOTUSSCRIPT /COM/OLE のクラス

例:RemoveItem メソッド
1. 次のスクリプトは文書の Subject アイテムを削除します。

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

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

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

3. 次のサブルーチンは文書の任意のアイテム名を変更します。まず、スクリプトは 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" )

4. 次のサブルーチンは文書のコレクションを取得して、各文書に保存されたフォームを削除します。スクリプトは 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

関連項目

RemoveItem メソッド

用語集

フィードバック ヘルプ または プロダクトユーザビリティ

ヘルプの使い方

すべてのヘルプ項目

用語集