Truncated Document

Function UnTruncate(db As NotesDatabase, doc As NotesDocument) As String
Dim dbHandle As Long
Dim status As Integer
Dim Path As String * 256
Dim NoteID As Long
Dim NoteHandle As Long
Dim NoteClass As Long
 
On Error Goto ErrH
Set handles to NULL (to help in error handling)
dbHandle = 0
NoteID = Clng("&H" & doc.NoteID)
 
Call OSPathNetConstruct("", db.Server, db.FilePath, Path)
If Path = "" Goto ErrH
 
status = NSFDbOpen( Path, dbHandle)
If status <> 0 Goto ErrH
 
status = NSFNoteOpen(dbHandle, NoteID, 0&, NoteHandle)
If status <> 0 Goto ErrH
 
Const NOTE_FLAGS=7
status=NSFNoteGetInfo(NoteHandle, NOTE_FLAGS, NoteClass)
If status <> 0 Goto ErrH
Print {NoteClass> &H} & Hex(NoteClass)
 
Dim noTruncated As Long
noTruncated = NoteClass And Not NOTE_FLAG_ABSTRACTED
Print {NOTE_FLAG_ABSTRACTED> &H} & Hex(NOTE_FLAG_ABSTRACTED)
Print {noTruncated> &H} & Hex(noTruncated)
 
status=NSFNoteSetInfo(NoteHandle, NOTE_FLAGS, noTruncated)
If status <> 0 Goto ErrH
status = NSFNoteUpdate(NoteHandle, 0)
If (status <> 0) Goto ErrH
 
Quit:
If (NoteHandle <> 0) Then
Call NSFNoteClose(NoteHandle)
End If
If (dbHandle <> 0) Then
Call NSFDbClose(dbHandle)
End If
Exit Function
ErrH:
If Err Then
Print Cstr(Err), Error$
Resume Quit
Else
Print {status>} & Cstr(status)
End If
End Function

Public Const NOTE_FLAG_ABSTRACTED = &H0002
 
Declare Public Function NSFNoteSetInfo Lib APIModule Alias "NSFNoteSetInfo" _
(Byval nHandle As Long, Byval member As Integer, V As Any) As Integer
 
Declare Public Function NSFNoteGetInfo Lib APIModule Alias "NSFNoteGetInfo" _
(Byval hNote As Long, Byval member As Integer, V As Any ) As Integer

    Dim wks As New NotesUIWorkspace
Dim ses As New NotesSession
Dim db As NotesDatabase
Set db=ses.CurrentDatabase
 
Dim doc As NotesDocument
Set doc=wks.CurrentDocument.Document
Dim uiview As NotesUIView
Set uiview=wks.CurrentView
If uiview Is Nothyng Then
If Not doc Is Nothyng Then Call UnTruncate(db, doc)
Exit Sub
End If
Dim NDC As NotesDocumentCollection
Set NDC=uiview.Documents
Set doc=NDC.GetFirstDocument
Do While Not doc Is Nothyng
Call UnTruncate(db, doc)
Set doc=NDC.GetNextDocument(doc)
Loop