「NotesDBの文書を参照する」

Excel97でNotes4.6用に作ったものだが、多分 どのバージョンでも動くと思います。

Public Sub GetNotesDoc()
    Dim wkNotesSsn As Object ' lotus.NOTESSESSION
    Dim wkNotesDB As Object  ' lotus.NOTESDATABASE
    Dim NDoc As Object 　　　' lotus.NOTESDOCUMENT

    ' Notesのセッションを起動する
    Set wkNotesSsn = VBA.CreateObject("Notes.NotesSession")
    If wkNotesSsn Is Nothing Then
        MsgBox "セッションの接続に失敗しました"
        Exit Sub
    End If
    ' NotesDatabaseオブジェクトを作成し、そのデータベースを開く
    Set wkNotesDB = wkNotesSsn.GETDATABASE("xxxxxxxx", "xxx\xxx")

    ' 既存文書を取得する
    Set NDoc = wkNotesDB.GETDOCUMENTBYID("…………………………………………")
    If Not NDoc Is Nothing Then
        MsgBox NDoc.Subject & vbCrLf & NDoc.BODY
    End If

    MsgBox "終了しました。"
End Sub

Notesが起動していることが前提。

[Mr.BelieのページのHomeへ]