例: EnableFolder method

次のコードは、「cayenne」という単語を含むコレクション内のすべての文書を「Spicy」フォルダに移動します。EnableFolder メソッドを呼び出すと「Spicy」フォルダが存在することを確認します。フォルダが存在しない場合、メソッドがフォルダを作成します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set dc = db.FTSearch("cayenne",20)
  Set doc = dc.GetFirstDocument
  Call db.EnableFolder("Spicy")
  While Not(doc Is Nothing)
    Call doc.PutInFolder("Spicy", False)
    Set doc = dc.GetNextDocument(doc)
  Wend
End Sub