不要意思,公司里不能用QQ;
还有一个函数
Declare Function NSFItemInfoNext Lib wAPIModule Alias "NSFItemInfoNext" _
( Byval hNT As Long, Byval hP As Long, Byval B As Integer, Byval N As String, Byval nN As Integer, iB As BlockID, D As Integer, vB As BlockID, nV As Long) As Integer
参考一些这个:
Type BlockID
hPool As Long
Block As Integer
End Type
Const wAPIModule = "NNOTES" ' Windows/32
Declare Function OSPathNetConstruct Lib wAPIModule Alias "OSPathNetConstruct" _
( Byval zP As Long, Byval S As String, Byval F As String, Byval P As String) As Integer
Declare Function NSFDbOpen Lib wAPIModule Alias "NSFDbOpen" _
( Byval P As String, hDB As Long) As Integer
Declare Function NSFDbClose Lib wAPIModule Alias "NSFDbClose" _
( Byval hDB As Long) As Integer
Declare Function NSFNoteOpen Lib wAPIModule Alias "NSFNoteOpen" _
( Byval hDB As Long, Byval N As Long, Byval F As Integer, hNT As Long) As Integer
Declare Function NSFNoteClose Lib wAPIModule Alias "NSFNoteClose" _
( Byval hNT As Long) As Integer
Declare Function OSMemFree Lib wAPIModule Alias "OSMemFree" _
( Byval hM As Long) As Integer
Declare Function OSLoadString Lib wAPIModule Alias "OSLoadString" _
( Byval hM As Long, Byval S As Integer, Byval B As String, Byval nB As Integer) As Integer
Declare Function OSLockObject Lib wAPIModule Alias "OSLockObject" _
( Byval hM As Long) As Long
Declare Sub OSUnlockObject Lib wAPIModule Alias "OSUnlockObject" _
( Byval hM As Long)
Declare Function NSFItemInfo Lib wAPIModule Alias "NSFItemInfo" _
( Byval hNT As Long, Byval N As String, Byval nN As Integer, iB As BlockID _
, D As Integer, vB As BlockID, nV As Long) As Integer
Type BlockID
hPool As Long
Block As Integer
End Type
Const wAPIModule = "NNOTES" ' Windows/32
Declare Function OSPathNetConstruct Lib wAPIModule Alias "OSPathNetConstruct" _
( Byval zP As Long, Byval S As String, Byval F As String, Byval P As String) As Integer
Declare Function NSFDbOpen Lib wAPIModule Alias "NSFDbOpen" _
( Byval P As String, hDB As Long) As Integer
Declare Function NSFDbClose Lib wAPIModule Alias "NSFDbClose" _
( Byval hDB As Long) As Integer
Declare Function NSFNoteOpen Lib wAPIModule Alias "NSFNoteOpen" _
( Byval hDB As Long, Byval N As Long, Byval F As Integer, hNT As Long) As Integer
Declare Function NSFNoteClose Lib wAPIModule Alias "NSFNoteClose" _
( Byval hNT As Long) As Integer
Declare Function OSMemFree Lib wAPIModule Alias "OSMemFree" _
( Byval hM As Long) As Integer
Declare Function OSLoadString Lib wAPIModule Alias "OSLoadString" _
( Byval hM As Long, Byval S As Integer, Byval B As String, Byval nB As Integer) As Integer
Declare Function OSLockObject Lib wAPIModule Alias "OSLockObject" _
( Byval hM As Long) As Long
Declare Sub OSUnlockObject Lib wAPIModule Alias "OSUnlockObject" _
( Byval hM As Long)
Declare Function NSFItemInfo Lib wAPIModule Alias "NSFItemInfo" _
( Byval hNT As Long, Byval N As String, Byval nN As Integer, iB As BlockID _
, D As Integer, vB As BlockID, nV As Long) As Integer
Declare Function NSFItemInfoNext Lib wAPIModule Alias "NSFItemInfoNext" _
( Byval hNT As Long, Byval hP As Long, Byval B As Integer, Byval N As String, Byval nN As Integer, iB As BlockID _
, D As Integer, vB As BlockID, nV As Long) As Integer
Declare Sub NSFItemQuery Lib wAPIModule Alias "NSFItemQuery" _
( Byval hNT As Long, Byval hP As Long, Byval B As Integer _
, Byval zN As Long, Byval mN As Integer, nN As Integer _
, F As Integer, T As Integer, vB As BlockID, nV As Long)
Declare Function ConvertTIMEDATEToText Lib wAPIModule Alias "ConvertTIMEDATEToText" _
( Byval F As Long, Byval T As Long, Byval P As Long, Byval S As String _
, Byval nS As Integer, rS As Integer) As Integer
Declare Function NSFDbGetObjectSize Lib wAPIModule Alias "NSFDbGetObjectSize" _
( Byval hDB As Long, Byval oID As Long, Byval T As Integer, S As Long _
, C As Integer, P As Integer) As Integer
Declare Sub Peek Lib "KERNEL32" Alias "RtlMoveMemory" _
( D As Any, Byval P As Long, Byval N As Long)
Declare Sub PeekString Lib "KERNEL32" Alias "RtlMoveMemory" _
( Byval D As String, Byval P As Long, Byval N As Long)
Declare Sub CopyLS Lib "KERNEL32" Alias "RtlMoveMemory" _
( D As Any, P As Any, Byval N As Long)
Sub ShowAttachments(doc As NotesDocument)
Dim db As NotesDatabase
Set db = doc.ParentDatabase
Function FlagList(Byval f%, Byval s$, d$) As String
m% = 1
While m% <= f%
If s$ = "" Then
w$ = "&H" & Hex$(m%)
Else
p% = Instr(s$, " ")
If p% = 0 Then
w$ = s$
s$ = ""
Else
w$ = Left$(s$, p% - 1)
s$ = Mid$(s$, p% + 1)
End If
End If
If Not ((m% And f%) = 0) Then
If Not FlagList = "" Then FlagList = FlagList & " "
FlagList = FlagList & w$
f% = f% And Not m%
End If
m% = m% * 2
Wend
If FlagList = "" Then FlagList = d$
End Function
Function Attribute(f%, Byval s$) As String
For i% = 0 To f%
If s$ = "" Then
w$ = Cstr(f%)
Exit For
Else
p% = Instr(s$, " ")
If p% = 0 Then
w$ = s$
s$ = ""
Else
w$ = Left$(s$, p% - 1)
s$ = Mid$(s$, p% + 1)
End If
End If
Next
Attribute = w$
End Function