当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。

テクてく Lotus 技術者 Slack に参加しよう!

2008年9月17日水曜日

XMLデータをNotesDBに登録する

前回の、Notes文書をXMLに変換するで作成したXMLデータをNotes DBに登録するLotu Scriptです。

そのままのデータを利用するのだが、文書UNIDは勝手に変更してくれるようだ。さすがNotes。
前回は、テキストファイルに出力したが、今回はこれをNotesStreamクラスのOpenメソッドを使って呼び出しているところがポイント。
徐々に詳しく述べていきたい。

----------------------------------------------------------------------------------
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase

Dim ndxl As NotesDXLImporter
Dim stream As NotesStream
Dim ret As String

Set db = session.CurrentDatabase

Set ndxl = session.CreateDXLImporter( db )
Set stream = session.CreateStream

If Not stream.Open( "c:\notesxml.xml", "UTF-8" ) Then
Exit Sub
End If

Call ndxl.Import( stream, db )

Call stream.Close
End Sub

Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: