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
