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 カスタマイズとセキュリティ強化 - 株式会社エフ

コメント