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:
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