Domino 9 und frühere Versionen > ND6: Entwicklung

Probleme mit Script

(1/1)

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

Glombi:
Der Ordner heisst ($JunkMail) bzw. mit Alias JunkMail

Andreas

tttonic:

--- Zitat von: Glombi am 18.02.05 - 11:33:46 ---Der Ordner heisst ($JunkMail) bzw. mit Alias JunkMail

Andreas

--- Ende Zitat ---

Wohin muss ich gehen um von welchen Ast zu springen??   ++++Peinlich+++

Danke

tttonic

Navigation

[0] Themen-Index