例: COM を使用して Domino オブジェクトにアクセスする

  1. 次の Visual Basic のコードは、Domino セッションを初期化し、ユーザー ID の共通名を出力します。
    Private Sub InitializeDimNew_Click()
Dim s As New NotesSession
Call s.Initialize
MsgBox s.CommonUserName, , "Common user name"
End Sub
  2. 次の Visual Basic のコードは上記のように Domino セッションを初期化しますが NotesSession で New を使用する代わりに CreateObject を使用します。アーリーバインディングでは NotesSession 型として「s」を宣言しなければならないことに注意してください。
    Private Sub InitializeCreateObject_Click()
Dim s As NotesSession
Set s = CreateObject("Lotus.NotesSession")
Call s.Initialize
MsgBox s.CommonUserName, , "Common user name"
End Sub
  3. 次の VBScript コードは上記と同じように Domino セッションを初期化します。
    <HTML>
<HEAD>
<TITLE>Initialize Session</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub Button1_OnClick
    dim s
    Set s = CreateObject("Lotus.NotesSession")
    Call s.Initialize
    MsgBox s.CommonUserName,, "Common user name"
End Sub
</SCRIPT>
</HEAD>
<BODY>
<H3>Initialize Session and Print User Name</H3><HR>
<FORM>
<INPUT NAME="Button1" TYPE="BUTTON" VALUE="Click Here">
</FORM>
</BODY>
</HTML>
  4. 次の JScript コードは上記と同じように Domino セッションを初期化します。

    <script language="JScript">
var s;
s = new ActiveXObject("Lotus.NotesSession");
s.Initialize();
document.write(s.CommonUserName);
</script>
  5. 次の Visual Basic コードは Domino サーバーにあるすべてのデータベースのタイトルを出力します。
    Private Sub DbDirectory_Click()
Dim s As New NotesSession
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
s.Initialize
Set dir = s.GetDbDirectory("Doc/CAM/Notes")
Set db = dir.GetFirstDatabase(NOTES_DATABASE)
dbString = db.Title
dbCount = 1
While Not (db Is Nothing)
    If dbCount > 12 Then
        MsgBox dbString, , "Databases on " + dir.Name
        dbString = db.Title
        dbCount = 1
    Else
        dbString = dbString + Chr(10)
        dbString = dbString + db.Title
        dbCount = dbCount + 1
    End If
    Set db = dir.GetNextDatabase
Wend
MsgBox dbString, , "Databases on " + dir.Name
End Sub
  6. 次の VBScript コードは上記と同じように Domino サーバーにあるすべてのデータベースのタイトルを出力します。
    <HTML>
<HEAD>
<TITLE>Initialize Session</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub Button1_OnClick
    dim s, dir, db
    Set s = CreateObject("Lotus.NotesSession")
    Call s.Initialize
    Set dir = s.GetDbDirectory("Doc/CAM/Notes")
    Set db = dir.GetFirstDatabase(1247)
    dbString = db.Title
    dbCount = 1
    While Not (db Is Nothing)
        If dbCount > 12 Then
            MsgBox dbString,, "Databases on " + dir.Name
            dbString = db.Title
            dbCount = 1
        Else
            dbString = dbString + Chr(10)
            dbString = dbString + db.Title
            dbCount = dbCount + 1
        End If
        Set db = dir.GetNextDatabase
    Wend
    MsgBox dbString,, "Databases on " + dir.Name
End Sub
</SCRIPT>
</HEAD>
<BODY>
<H3>Print Databases on Doc</H3><HR>
<FORM>
<INPUT NAME="Button1" TYPE="BUTTON" VALUE="Click Here">
</FORM>
</BODY>
</HTML>
  7. 次の ASP コードも上記 2 つと同じような処理をします。現在のサーバーにあるすべてのデータベースのタイトルを出力します。
    <%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="; GENERATOR; " Content="; Microsoft; Visual; Studio; 6#; ">
</HEAD>
<BODY>
<%
    dim s, dir, db
    Set s = CreateObject("Lotus.NotesSession")
    Call s.Initialize
    dim serverName
    serverName = ""
    Set dir = s.GetDbDirectory(serverName)
    Set db = dir.GetFirstDatabase(1247)
    if (dir.Name <> "") then
       Response.Write("<h2>" + "ON " + dir.Name + "</h2>")
    else
        Response.Write("<h2> ON local</h2>")
    end if
    Response.Write("<table border=1  bgcolor=#CCCCCC>")
    Response.Write("<tr>")
    Response.Write("<th>File Name")
    Response.Write("<th>DB Title")
    While Not (db Is Nothing)
        Response.Write("<tr><td>")
        Response.Write(db.FileName)
        Response.Write("</td>")
        Response.Write("<td>")
        Response.Write(db.Title)
        Response.Write("</td></tr>")
        Set db = dir.GetNextDatabase
    Wend
    Response.Write("</table>")
%>
</BODY>
</HTML>
  8. 次の Visual Basic のコードは Domino のデータベースのあるビューのすべての文書を設定し、テキストアイテムの値と、テキストアイテムの値が複数の場合はそのすべてを表示します。
    Private Sub DisplayItemValues_Click()
Dim s As New NotesSession
Dim db As NotesDatabase
Dim v As NotesView
Dim vn As NotesViewNavigator
Dim e As NotesViewEntry
Dim doc As NotesDocument
Call s.Initialize
Set db = s.GetDatabase("", "OverviewExamples.nsf")
Set v = db.GetView("All Documents")
Set vn = v.CreateViewNav()
Set e = vn.GetFirstDocument()
While Not (e Is Nothing)
    Set doc = e.Document
    subj = doc.GetFirstItem("Subject").Values
    MsgBox subj(0), , "Subject"
    cats = doc.GetFirstItem("Categories").Values
    For Each cat In cats
        MsgBox cat, , "Category"
    Next
    Set e = vn.GetNextDocument(e)
Wend
End Sub
  9. 次の ASP コードは上記と同じような処理をします。テキストアイテムの値と、日付と時間アイテムの複数の値を表示します。
    <%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="; GENERATOR; " Content="; Microsoft; Visual; Studio; 6#; ">
</HEAD>
<BODY>
<%
    Dim s 'As New NotesSession
    Dim db 'As NotesDatabase
    Dim v 'As NotesView
    Dim vn 'As NotesViewNavigator
    Dim e 'As NotesViewEntry
    Dim doc 'As NotesDocument
    Set s = CreateObject("Lotus.NotesSession")
    Call s.Initialize
    Dim serverName
    serverName = ""
    Set db = s.GetDatabase(serverName, "AllTypes.nsf")
    Set v = db.GetView("All Documents")
    Set vn = v.CreateViewNav()
    Set e = vn.GetFirstDocument()
    While Not (e Is Nothing)
        Set doc = e.Document
        Dim values, item1
        Set item1 = doc.GetFirstItem("TextField")
        values = item1.Values
        Response.Write("<p>Subject: " + values(0) + "<br>")
        Set item1 = doc.GetFirstItem("DateTimeField")
        values = item1.Values 
        For Each dateTime In values
            Response.Write("DateTime: " + CStr(dateTime))
        Next
        Set e = vn.GetNextDocument(e)
    Wend
    
%>
</BODY>
</HTML>
  10. この JScript コードは、NotesDocument メソッド GetItemValue を使用して、項目の値を取得します。GetItemValue によって返される配列は、特別な処理を必要とします。

    <script language="JScript">
var s;
var dbdir;
var db;
var view;
var doc;
var forms = new Array(256);
s = new ActiveXObject("Lotus.NotesSession");
s.Initialize();
dbdir = s.getDbDirectory("");
db = dbdir.openDatabase("names");
view = db.getView("Groups");
doc = view.getFirstDocument();
forms = VBArray(doc.GetItemValue("Form")).toArray();
document.write(forms[0]);
</script>
  11. 次の Visual Basic のコードは、予測されていたエラーが起こった場合に指定のメッセージを出力します。別のエラーが起こった場合は Notes のエラーコード (COM のエラーコードの後半の 2 バイトを数値に変換した値) が出力されます。
    Private Sub OpenDatabase_Click()
Dim s As New NotesSession
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Call s.Initialize
Set dir = s.GetDbDirectory("")
On Error GoTo errorHandler
Set db = dir.OpenDatabase(Form1.DatabaseName.Text)
MsgBox db.Title, , "Title"
Exit Sub
errorHandler:
If Err() = ERR_SYS_FILE_NOT_FOUND Then
    MsgBox "Change the file name and try again", , _
    "File not found"
Else
    MsgBox "Error " & _
    CInt("&H" & Right(Hex(Err()), 4)), , _
    "Domino error"
End If
End Sub
  12. 次の VBScript コードは、予測されていたエラーが起こった場合に指定のメッセージを出力します。エラーは Domino エラーコードの 16 進値を &H80040 (4003 は 3 桁の 16 進数値) に付加したものが定義されます。別のエラーが起こった場合は Domino のエラーコード (COM のエラーコードの後半の 2 バイトを数値に変換した値) が出力されます。
    Sub Button1_OnClick
    On Error Resume Next
    dim s, dir, db, ERR_SYS_FILE_NOT_FOUND
    If Len(Hex(4003)) = 3 Then
        ERR_SYS_FILE_NOT_FOUND = Clng("&H80040" & Hex(4003))
    Else
        ERR_SYS_FILE_NOT_FOUND = Clng("&H8004" & Hex(4003))
    End If
    Set s = CreateObject("Lotus.NotesSession")
    Call s.Initialize
    Set dir = s.GetDbDirectory("")
    Set db = dir.OpenDatabase(Document.Form1.Text1.Value)
    If Err.Number = 0 Then
        MsgBox db.Title,, "Title"
    Else
        If Err.Number = ERR_SYS_FILE_NOT_FOUND Then
            MsgBox "Change the file name and try again",, _
            "File not found"
        Else
            MsgBox CInt("&H" & Right(Hex(Err.Number),4)),, _
                "Domino error"
        End If
    End If
End Sub
  13. 次の ASP コードは全文検索の結果を出力します。
    <%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="; GENERATOR; " Content="; Microsoft; Visual; Studio; 6#; ">
</HEAD>
<BODY>
<%
'URL http://yourserver/Demo9.asp?key=keyWord
    Dim s 'As New NotesSession
    Dim db 'As NotesDatabase
    Dim v 'As NotesView
    Dim vn 'As NotesViewNavigator
    Dim e 'As NotesViewEntry
    Dim doc 'As NotesDocument
    Set s = CreateObject("Lotus.NotesSession")
    Call s.Initialize
    Dim serverName
    serverName = ""
    Response.Write("<h2>Full Text Search Result</h2>")
    Dim dbName, keyWord
    keyWord = Request.QueryString("key")
    dbName = "employees.nsf"
    Set db = s.GetDatabase(serverName, dbName)
    If (db is Nothing) then
        Response.Write("<p>Cannot find the database: " + dbName)
    Else
        Response.Write("<p>Database: " + db.FileName + "<br>")
        Response.Write("Key Word: " + keyWord + "<br>")
    End if
    Call db.UpdateFTIndex(true)    
    Set dc = db.FTSearch(keyWord, 100)
    Response.Write("Records: " + CStr(dc.Count) + "<br><br><br>")
    Set doc = dc.GetFirstDocument()
    Dim thisItem
    If Not (doc is Nothing) then
        Response.Write("<table border=1 bgcolor=#CCCCCC>")
        Response.Write("<th>ID")
        Response.Write("<th>First Name")
        Response.Write("<th>Last Name")
        Response.Write("<th>Department")
        Response.Write("<th>Title")
    End if
    While Not (doc Is Nothing)
        Response.Write("<tr>")
        Set thisItem = doc.GetFirstItem("ID")
        Response.Write("<td>" + thisItem.Text + "</td>")
        Set thisItem = doc.GetFirstItem("FirstName")
        Response.Write("<td>" + thisItem.Text + "</td>")
        Set thisItem = doc.GetFirstItem("LastName")
        Response.Write("<td>" + thisItem.Text + "</td>")
        Set thisItem = doc.GetFirstItem("Department")
        Response.Write("<td>" + thisItem.Text + "</td>")
        Set thisItem = doc.GetFirstItem("Title")
        Response.Write("<td>" + thisItem.Text + "</td>")
        Set doc = dc.GetNextDocument(doc)
        Response.Write("</tr>")
    Wend
    Response.Write("</table>")
    
%>
</BODY>
</HTML>

    次は、ASP コードを起動するための HTML ファイルです。

    <HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<form method=GET  action="http://mkoma4/COM_AspSep28/Demo/Demo9.asp">
<h2>Full Text Search on Employees Database</h2>
<br>
<br>
<P>Input A Keyword: 
<input name=key size=20>
<br>
<br>
<br>
<input type=reset value="Clear Form">
<input type=submit value="Submit">

</form>
</BODY>
</HTML>
親トピック: COM を使用して Domino オブジェクトにアクセスする
関連概念:
COM を使用して Domino オブジェクトにアクセスする