自分の環境では「参照の追加」は不要ですが、環境によっては必要かもしれませんので、ご注意を。
| Dim session As Object
Dim db As Object
Dim view As Object
Dim doc As Object Dim strDominoServer As String
Dim strDBName As String
Dim strViewName As String Dim NSubject As Object
Dim strSubject As String ' ***NotesDBからの読み込み
' *** セッションの確立
session = CreateObject("Notes.NotesSession") ' *** ノーツDBの取得
db = session.GetDatabase(strDominoServer, strDBName)
If (Not db.IsOpen()) Then
' *** エラーメッセージの表示
MsgBox("データベースが見つかりませんでした", vbOKOnly + vbCritical)
GoTo load_exit
End If ' *** ビューの取得
view = db.GetView(strViewName)
If (view Is Nothing) Then
' *** エラーメッセージの表示
MsgBox("ビューが見つかりませんでした", vbOKOnly + vbCritical)
GoTo load_exit
End If ' *** ビューより最初の文書を取得
doc = view.GetFirstDocument() ' *** ビューより全文書を読み込むまでループ
Do While (Not (doc Is Nothing))
'タイトル
NSubject = doc.GetItemValue("Subject")
strSubject = NSubject(0).ToString doc = view.GetNextDocument(doc)
Loop load_exit: ' *** オブジェクトの破棄
db = Nothing
session = Nothing |