DominoArea.org [Archive]

[syntax="ls"]Const wAPIModule = "NNOTES" ' Windows/32

Const CLASS_ABOUT = &H0002
Const CLASS_USING = &H0100

Const INFO_CLASS = 3
Const CLASS_DEFAULT = &H8000

Declare Private Function NSFDbOpen Lib wAPIModule Alias "NSFDbOpen" _
( Byval P As String, hDB As Long) As Integer
Declare Private Function NSFDbClose Lib wAPIModule Alias "NSFDbClose" _
( Byval hDB As Long) As Integer
Declare Private Function NSFNoteOpen Lib wAPIModule Alias "NSFNoteOpen" _
( Byval hDB As Long, Byval NoteID As Long, Byval F As Integer, hNT As Long) As Integer
Declare Private Function NSFNoteClose Lib wAPIModule Alias "NSFNoteClose" _
( Byval hNT As Long) As Integer
Declare Private Function NSFNoteUpdate Lib wAPIModule Alias "NSFNoteUpdate" _
( Byval hNT As Long, Byval F As Integer) As Integer
Declare Private Function NSFNoteCreate Lib wAPIModule Alias "NSFNoteCreate" _
( Byval hDB As Long, hNT As Long) As Integer
Declare Private Function NSFNoteSetInfo Lib wAPIModule Alias "NSFNoteSetInfo" _
( Byval hNT As Long, Byval M As Integer, V As Any) As Integer
Declare Private Function OSPathNetConstruct Lib wAPIModule Alias "OSPathNetConstruct" _
( Byval NullPort As Long, Byval Server As String, Byval FIle As String, Byval PathNet As String) As Integer

Sub CreateHelpDoc(db As NotesDatabase, docclass%)
p$ = Space(1024)
OSPathNetConstruct 0, db.Server, db.FilePath, p$

Dim hDB As Long
NSFDbOpen p$, hDB
If hDB = 0 Then Exit Sub

Dim hNT As Long
NSFNoteCreate hDB, hNT
If Not hNT = 0 Then
NSFNoteSetInfo hNT, INFO_CLASS, CLASS_DEFAULT Or docclass%
NSFNoteUpdate hNT, 0
NSFNoteClose hNT
End If

NSFDbClose hDB
End Sub[/syntax]