Das Notes Forum
Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Big768 am 18.08.08 - 11:44:05
-
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
-
NotesDocument.PutInFolder.
-
Das ist ein folder, kuck mal unter PutInFolder nach .
Grüsse
Dau-in
-
Vielen Dank für die schnellen Antworten.
;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;)