Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Selin am 31.05.05 - 11:47:32

Titel: Mail als gelesen markieren
Beitrag von: Selin am 31.05.05 - 11:47:32

Hallo Liebes Forum,

ich versuche Mails aus eienr DB in ein andere zu kopieren über einen Agenten.
Nachdem die Mail eingefügt ist, sollte diese aber als gelesen markiert werden.
Die Option in der Zieldb unter Datei/Datenbank/Eigenschaften/Geänderte Dokumente nicht als Ungelesen markieren, habe ich gesetzt.
Habe in meinem Script auch ein Call tmpdoc.Save (True, True, True)
aber irgendwie klappt es nicht
Ist mein Save vielleicht an falscher Stelle?
Bitte um Hilfe

Danke+Lieben Gruß,
Selin

Sub Initialize
   Dim dbtarget As NotesDatabase
   Dim doc As NotesDocument
   Dim niudoc As NotesUIDocument
   Dim WS As New notesUIWorkspace
   Dim docTarget As NotesUIDocument
   Dim source As NotesUIDocument
   
   
   
   Set doc = WS.CurrentDocument.document
   Set source =WS.CurrentDocument
   Ordner = source.FieldGetText( "Ordner" )
   Set dbtarget = New NotesDatabase(  "SRV", "DB.nsf" )
   Set tmpdoc = doc.CopyTodatabase(dbtarget)
   
   Call tmpdoc.PutInFolder ( Ordner, True)
   tmpdoc.PostedDate = Format$( doc.PostedDate(0), "Short Date")
   
   Call tmpdoc.Save(True, True, True)
   
   Print "Das Dokument wurde in die Datenbank hinzugefügt."
   source.Close
   
End Sub

Titel: Re: Mail als gelesen markieren
Beitrag von: Semeaphoros am 31.05.05 - 12:06:28

No way ohne den Umweg über die C-API

Titel: Re: Mail als gelesen markieren
Beitrag von: Selin am 02.06.05 - 11:53:53

hmm, Mist!  :'(

Vielen dank für die Antwort

Lieben Gruß,
Selin