Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: tttonic am 18.02.05 - 11:28:23

Titel: Probleme mit Script
Beitrag von: tttonic am 18.02.05 - 11:28:23

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

Titel: Re: Probleme mit Script
Beitrag von: Glombi am 18.02.05 - 11:33:46

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

Andreas

Titel: Re: Probleme mit Script
Beitrag von: tttonic am 18.02.05 - 11:36:37

Zitat von: Glombi am 18.02.05 - 11:33:46

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

Andreas

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

Danke

tttonic