Falls es von Interesse ist...
Wenn man Manager ist funktioniert es. >Manager nicht. Obwohl es sollte. --> Feature
Mit dem Code geht es aber trotzdem.
Declare Function NSFDbOpen Lib APIModule Alias "NSFDbOpen" ( Byval P As String, H As Long) As Integer
Declare Function NSFDbClose Lib APIModule Alias "NSFDbClose" ( Byval H As Long) As Integer
Declare Function NSFDbClearReplHistory Lib "nnotes.dll" Alias "NSFDbClearReplHistory" (Byval hdb As Long, flags As Integer) As Integer
Sub ClearReplHistory( server As String, filename As String )
Dim hdb As Long
Dim rc As Integer
If Server = "" Then
rc = NSFDbOpen(FileName, hDb)
Else
rc = NSFDbOpen( Server & "!!" & FileName, hDb)
End If
rc = NSFDbClearReplHistory( hDb ,0 )
rc = NSFDbClose(hDb)
End Sub