doc.save für Gelesen Markierung

[Demian]

Moin,moin,

die Methode Save für Notesdocument hat als optionalen 3. Parameter ja die Möglichkeit ein Dokument als gelesen zu markieren.

Ich habe ein Script um Mails aus meinem Wiedervorlage-Ordner in einen Erledigt-Ordner zu verschieben und wollte diese Möglichkeit dafür nutzen. Allerdings erscheinen die Mails danach immer noch als ungelesen.

Hier der Code:

Code

While Not ( Wiedervorlage Is Nothing)
     'Key auslesen
     Thema = Mid( Wiedervorlage.Subject(0),8,Len( Wiedervorlage.subject(0)) - 7 - 20)   '-7 = "Alarm: ",  -20 = " um TT.MM.JJJJ HH:MM"

     'Aufgabe anhand Key suchen
     Set Aufgabe = view.GetDocumentByKey(Thema,True)

     'Aufgabe als abgeschlossen markieren
     If Not (Aufgabe Is Nothing) Then
           Aufgabe.DueState = 9
           Aufgabe.CompletedDateTime = Now
           Call Aufgabe.Save(True,False)
     Else
           Msgbox "Keine entsprechende Aufgabe vorhanden!"
     End If
     
     'Aus Wiedervorlage-Ordner ind Erledigt-Ordner verschieben
     Call Wiedervorlage.Save(True,False,True)
     Call Wiedervorlage.PutInFolder("Sonstiges\erledigt",True)
     Call Wiedervorlage.RemoveFromFolder("Wiedervorlage")

     Set Wiedervorlage = doccol.GetNextDocument(Wiedervorlage)	
Wend

Oder müssen für Wiedervorlage.save(true,false,true) noch irgendwelche anderen Bedingungen erfüllt sein?

Gruß
Demian

[koehlerbv]

Dafür ist der Parameter aber nicht da - er sorgt vielmehr dafür, dass geänderte Dokumente durch ein Speichern nicht als ungelesen (für den aktuellen User) markiert werden.

Ich wüsste nicht, wie man im Backend (ohne API) Dokumente als gelesen markieren könnte.

Bernhard

[Demian]

Moin Bernhard,

schade. Das wäre schön einfach gewesen. In irgendeinem Beitrag hat Ullrich auf eine DB (Notesunreadmarks) in der Sandbox verwiesen. Das ist für meinen Kenntnisstand aber etwas zu viel.

Dann ist das in der Hilfe aber auch nicht sehr glücklich formuliert:

markRead
Boolean. If True, the document is marked as read. If False (default), the document is not marked as read.

Gruß
Demian

[koehlerbv]

Das ist definitiv unglücklich formuliert. Ausserdem: Lt. meinen Beobachtungen funktioniert das Verfahren auch nicht in allen Situationen hundertprozentig sicher. Ich habe da allerdings noch nicht allzu viel Forschungsarbeit hinein gesteckt ...

Bernhard

[Demian]

Naja, kann man nichts machen. Trotzdem Danke.

Gruß
Demian

[Demian]

Also, auf einem kleinen (nicht allzu schönen Umweg über Frontend) geht es:

'Aus Wiedervorlage-Ordner ind Erledigt-Ordner verschieben
Call Wiedervorlage.PutInFolder("Sonstiges\erledigt",True)
Call Wiedervorlage.RemoveFromFolder("Wiedervorlage")      

'Als ungelesen markieren
Dim work As New NotesUIWorkspace
Dim uidoc As NotesUIDocument      
Call work.EditDocument(True,Wiedervorlage,True)
Set uidoc = work.CurrentDocument
Call uidoc.Close(True)

Aber immer noch besser, als nen Extra Agenten wegen einer Formel 

Gruß
Demian

[koehlerbv]

Klar - über das Frontend geht das    Und "gelesen" heisst ja auch immer "Frontend"  . Übler ist das, wenn der User getriggert vom Frontend im Backend eine Änderung vornimmt, und danach ist das (eben im Frontend offene) Dokument wieder ungelesen.

Bernhard

[Demian]

Übler ist das, wenn der User getriggert vom Frontend im Backend eine Änderung vornimmt, und danach ist das (eben im Frontend offene) Dokument wieder ungelesen.

Verstehe ich ehrlich gesagt nicht so ganz.  Wie kann es denn dazu kommen?

Gruß
Demian

[koehlerbv]

Siehe Posting #3.

[Demian]

ok 

Danke nochmal und schöne Feiertage.

Gruß
Demian