Domino 9 und frühere Versionen > ND6: Entwicklung

Anzahl neue eMails ermitteln ?

<< < (3/3)

Semeaphoros:
Die Inbox ist ein Ordner und nicht eine Ansicht

datenbanken24:
Geht wohl derzeit nur über die C API:

Getting the unread count from inbox folder of mailbox

(gefunden im Domino R6 Forum)

http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/0fdabb5e8529814785256d7100397d0e?OpenDocument

You can use LotusScript along with the C API to get this information:

Put the following in your (Declarations) section:

Declare Function NSFDbOpen Lib "nnotes.dll" (Byval PathName As String,rethDB As Long) As Integer

Declare Function NSFDbClose Lib "nnotes.dll" (Byval hDB As Long) As Integer

Declare Function NSFDbGetUnreadNoteTable Lib "nnotes.dll" (_
Byval hDB As Long,_
Byval UserName As String,_
Byval UserNameLength As Integer,_
Byval fCreateIfNotAvailable As Boolean,_
rethUnreadList As Long) As Integer

Declare Function IDDestroyTable Lib "nnotes.dll" (Byval hTable As Long) As Integer

Declare Function IDEntries Lib "nnotes.dll" (Byval hTable As Long) As Long


Then the following function will return the unread count for a particular user in a particular database:

Function GetUnreadCount(server As String,database As String,username As String) As Long
Dim rc As Integer
Dim hDB As Long
Dim hTable As Long
GetUnreadCount=-1
rc=NSFDbOpen(server+"!!"+database,hDB)
If rc=0 Then
rc=NSFDbGetUnreadNoteTable(hDB,username,Len(username),0,hTable)
If rc=0 Then
GetUnreadCount=IDEntries(hTable)
IDDestroyTable hTable
End If
NSFDbClose hDB
End If
End Function


Make sure the username is passed in full canonical format (e.g. UserName property of NotesSession)

Navigation

[0] Themen-Index

[*] Vorherige Sete