ＤＢ間文書のコピー用LotusScript

前に他の部署の人に聞かれて作ったサンプルのスクリプト。
メールＤＢの中のドラフト保存でとっといてたけど、
いい加減ドラフト文書が邪魔ｚｚｚなのでこっちに移動。


現在のＤＢから別ＤＢへとコピーする場合のスクリプト。
現在のＤＢからコピーする文書をビュー上で選択し、
別ＤＢへとコピーします。

*注意点*
コピーする文書のフォームは、
別DB内に現在のDBで使用している同じフォーム名のフォームを用意すること。
フォーム内の設計をまったく同じにする必要はないが
表示したいフィールドは同じ名前のものを使用すること。

エージェントで作成し、↓のように設定すること。

（ここでの画像はR7のものですが、R5等でも別のところで同じように設定できます。）

Dim session As New NotesSession
Dim db As NotesDatabase
'現在のＤＢ
Set db = session.CurrentDatabase
'別ＤＢの指定
Dim Tdb As NotesDatabase
Dim ServerName as string, DbPath as string
ServerName　=　"サーバを指定"
DbPath　=　"パスを指定"
Set Tdb = New NotesDatabase( ServerName, DbPath )
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
　　Call doc.CopyToDatabase( Tdb )'ここでコピー
　　Set doc = collection.GetNextDocument(doc)
Wend