Kopierte Mails sind nur unter "Alle Dokumente"

[Big768]

Liebe Noteskolleginnen und -kollegen,

ich habe folgendes Problem:

Ich möchte Mails von einer Datenbank in einer andere kopieren. Die mache ich mit dem Programm:

Sub Click(Source As Button)
   Dim ws As New notesuiworkspace
   Dim uidoc As NotesUIDocument
   Dim s As New notessession
   Dim db As notesdatabase
   Dim olddoc As notesdocument
   Dim newdic As notesdocument 
   
   Set uidoc = ws.CurrentDocument
   Set olddoc = uidoc.Document 
   
   uidoc.EditMode = true
   Call uidoc.Reload
   Call uidoc.Save
   
   Set db = New NotesDatabase("","")
   Call db.Open("TestServer","Testdatenbank.nsf")

   If db.IsOpen Then
      Set newdoc = olddoc.copytodatabase(db)
   End If
   
   Call uidoc.close
   
End Sub

in einer Aktion.

Das klappt auch so weit, so gut. 

Die Mails finde ich in der neuen Datenbank aber nur unter "Alle Dokumnente". Gibt es eine Möglichkeit, dass ich die Mails auch in dem Ordner Eingang finde?

Im voraus vielen Dank für Eure Hilfe. 

Johann

[koehlerbv]

NotesDocument.PutInFolder.

[DAU-in]

Das ist ein folder, kuck mal unter PutInFolder nach .

Grüsse
Dau-in

[Big768]

Vielen Dank für die schnellen Antworten.