例: FormatMsgWithDoclinks method

次のビューアクションスクリプトは、ビューで現在選択されている文書のコレクションを取得します。コレクションの各文書へのリンクを含むニュースレターを作成し、現在のデータベースに保存します。

Sub Click( Source As Button )
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim newsletter As NotesNewsletter
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set collection = db.UnprocessedDocuments
  Set newsletter = New NotesNewsletter( collection )
  Set doc = newsletter.FormatMsgWithDoclinks( db )
  doc.Form = "Summary"
  Call doc.Save( True, True )
End Sub

次のスクリプトは、現在のデータベースで全文検索を実行します。スクリプトは、検索結果のコレクション内の各文書へのリンクを含むニュースレターを作成した後、そのニュースレターを現在のコンピュータの SCIENCE.NSF に保存します。語句「botany」を最も多く含む文書がコレクションの先頭に配置されるため、これらの文書へのリンクはニュースレターの先頭に表示されます。各文書の全文検索の適合の数値は文書リンクの隣に一覧表示されます。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim summaryDb As NotesDatabase
Dim collection As NotesDocumentCollection
Dim newsletter As NotesNewsletter
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set summaryDb = New NotesDatabase _
( "", "summary¥science.nsf" )
Set collection = db.FTSearch( "botany", 0 )
Set newsletter = New NotesNewsletter( collection )
newsletter.DoScore = True
Set doc = newsletter.FormatMsgWithDoclinks( summaryDb )
doc.Subject = "Garden of Botanical documents"
doc.Form = "Summary"
Call doc.Save( True, True )
```

次のエージェントスクリプトは、すべての新規文書と更新された文書で実行されます。スクリプトは現在のデータベースの未処理の文書で全文検索を実行します。スクリプトは検索結果のコレクションの各文書へのリンクを含むニュースレターを作成した後、そのニュースレターを Susanna Tallan にメールで送信します。各文書の適合の数値と Topic アイテムは、ニュースレターで文書リンクの隣に一覧表示されます。

その後、スクリプトは各文書に処理済みのマークを付けます。このため、UnprocessedFTSearch メソッドはこのエージェントの次回実行時にこれらの文書に対しては検索を行いません。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim newsletter As NotesNewsletter
  Dim doc As NotesDocument  
  Dim j As Integer
  Dim originalDoc As NotesDocument    
  Set db = session.CurrentDatabase
  Set collection = db.UnprocessedFTSearch( "botany", 0 )
  Set newsletter = New NotesNewsletter( collection )
  newsletter.DoScore = True
  newsletter.DoSubject = True
  newsletter.SubjectItemName = "Topic"
  Set doc = newsletter.FormatMsgWithDoclinks( db )
  doc.Subject = "New botany documents from this week"
  doc.Form = "Memo"
  Call doc.Send( False, "Susanna Tallan" )
  ' mark all documents in newsletter's collection as 
  ' processed, so that they aren't included in the 
  ' newsletter next time
  Set originalDoc = collection.GetFirstDocument
    Do Until originalDoc Is Nothing
    Call session.UpdateProcessedDoc( originalDoc )
    Set originalDoc = collection.GetNextDocument(originalDoc)
  Loop
  Next
End Sub