Hi,
habe ich ein Script welches ein Dokument aus dem Ordner $junk in den Ordner $Inbox schieben soll. Soweit klappt es auch ohne Fehler. Nur ist das Dokument dann immer noch im Ordner $Junk. Da soll es aber raus.
Sub Click(Source As Button)
Dim session As New NotesSession
Dim QuellDB As NotesDatabase
Dim ZielDB As NotesDatabase
Dim doc As NotesDocument
Dim tmpdoc As NotesDocument
Dim newdoc As NotesDocument
Dim coll As NotesDocumentCollection
Dim boxType As Long, answer As Integer
Set QuellDB = session.CurrentDatabase
Set ZielDB = session.GetDatabase("Servername","admin\TEST.nsf")
Set coll = QuellDB.UnprocessedDocuments
Set doc = coll.GetFirstDocument
Do While Not doc Is Nothing
Set tmpdoc = coll.GetNextDocument(doc)
Set newdoc = doc.CopyToDatabase(ZielDB)
Call doc.PutInFolder("$Inbox")
Call doc.RemoveFromFolder("$Junk")
Set doc = tmpdoc
Loop
End Sub
Bitte um Hilfe
gruß
tttonic
