Domino 9 und frühere Versionen > Entwicklung

Verwaltung der "Ungelesen-Markierung"

(1/2) > >>

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..."
   

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

Navigation

[0] Themen-Index

[#] Nächste Seite