Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: snowfish26 am 04.07.07 - 09:58:16
-
Hallo Zusammen
Muss diverse selektierte Dokumente in eine andere DB in einen Ordner verschieben. Nachstehend mein Code:
Dim sesMain As New NotesSession
Dim CurrentDB As NotesDatabase
Dim TargetDB As NotesDatabase
Dim docMail As NotesDocument
Dim tmpdoc As NotesDocument
Dim DestinationDoc As NotesDocument
Dim dcl As NotesDocumentCollection
Set CurrentDB = sesMain.CurrentDatabase
Set TargetDB = sesMain.GetDatabase("chzhdaz01/SRV/DEV/AZ_GRP","Entwickler\R6\Mail-
AS-D-Test.nsf")
Set dcl = CurrentDB.UnprocessedDocuments
Set docMail = dcl.GetFirstDocument
While Not docMail Is Nothing
Set DestinationDoc = docMail.CopyToDatabase(TargetDB)
Call docMail.PutInFolder("SPAM", True)
Set docMail = dcl.GetNextDocument(docMail)
Wend
Der Folder SPAM ist in der TargetDB vorhanden und es ist ein Shared Folder.
Zu meinem Problem. Die Dokumente werden zwar in die neue DB kopiert jedoch sehe ich sie nur in der Ansicht "Alle Dokumente". Hat jemand vielleicht eine Idee wo mein Fehler liegt. Wäre für jeden Tip dankbar.
Gruss
Stéphanie
-
Aus der Hilfe:
This method cannot add the first document to a folder that is "Shared, Personal on first use."
-
Das ist mir schon klar, aber ich habe den Folder ja auch nicht Shared, private on first use sondern nur Shard. Funktioniert denn das auch nicht?
Gruss
-
Keine Ahnung ???
Würde ich an deiner Stelle mal testen, ob das mit normalen Ordnern funzt. Wenn ja, dann scheint das andere nicht zu gehen.
-
Hi,
muss nicht das destinationDoc in den folder 'Spam' verschoben werden?
grüsse
Dau-in
-
:P
-
Danke
Vor lauter programmieren sieht man die eigenen Fehler mal wieder nicht.
Gruss