Verwaltung der "Ungelesen-Markierung"

[MiMueller]

Hallo Notes-Experten,

wo verwaltet Notes die "Ungelesen-Markierung" und gibt es eine Möglichkeit diese Informationen per Script zu lesen oder zu schreiben ?

[eknori]

dies hier http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/50c04aabe223bdcb8525688d007060c7?OpenDocument&Highlight=0,unread

sollte dir weiterhelfen

[MiMueller]

Vielen Dank für den Tipp, habe es gleich ausprobiert !!!!!

Allerdings bekomme ich beim Versuch die "MailDatenbank" zu öffnen einen Fehler :-(

vMailDB =  Evaluate("@MailDbName")
Set Maildb = ss.GetDatabase(vMailDB(0),vMailDB(1))   
Dim oUnreadMarks As New NotesUnreadMarks(Maildb,ss.UserName)

Fehler ==> "NotesUnreadMarks: Unable to open Database."
Hast du schon Erfahrungen mit dieser Klassenbibliothek gemacht ?

[ata]

... ist deine Session sauber initialisiert mit

Dim ss As New NotesSession  



ata

[MiMueller]

ich schicke mal das ganze Script

---------------------------------------------------------------
Dim ss As New NotesSession
   Dim MailDB As NotesDatabase
   Dim view As NotesView
   Dim vc As NotesViewEntryCollection
   Dim doc As NotesDocument
   
   Dim vMailDB As Variant
   Dim i As Integer
   Dim iMails As Integer
   
   vMailDB =  Evaluate("@MailDbName")
   Set Maildb = ss.GetDatabase(vMailDB(0),vMailDB(1))   
   
   Dim oUnreadMarks As New NotesUnreadMarks(Maildb,ss.UserName)
   
   Set view = MailDB.GetView("($Inbox)")
   Set vc = view.AllEntries
   
   For i = 1 To vc.count      
      Set doc = vc.GetNthEntry(i).Document
      If oUnreadMarks.IsUnread(doc) Then iMails = iMails + 1
   Next
   If iMails = 0 Then Print "Sie haben keine neuen Nachrichten..."
   If iMails = 1 Then Print "Sie haben >> 1 << neue Nachricht..."
   If iMails > 1 Then Print "Sie haben >> " & iMails & " << neue Nachrichten..."
   

-------------------------------------------------------------------------------------

[ata]

... was gibt denn der Debugger für die MailDB-Paramerter vMailDB her, sind das korrekte Werte - oder steht eventuell der Mail-Server

ata

[MiMueller]

laut Debugger wird der Server und der Path zur MailDB exakt übergeben...

Der Fehler wird duch diese Funktion verursacht:
Declare Function W32_NSFDbOpen Lib "nnotes.dll" Alias "NSFDbOpen" ( Byval dbName As String, hDb As Long) As Integer

Könnte es vielleicht sein, dass das Problem am Betriebssystem (Windows 2000) liegt.