Dokumente von DB zu DB kopieren inkl. Antwortdoks

[Wiesel]

Hallo!

Ich habe einen Agenten, der mir Dokumente aus einer bestimmten Ansicht in eine zweite Datenbank kopiert.
Dabei werden bloß die Antwortdokument nicht mitgezogen.
Hier mal mein Script:

Sub Uebertrag
Dim S As New NotesSession
   Dim DB As NotesDatabase
   Dim Doc As NotesDocument
   Dim View As NotesView
   Dim Col As NotesDocumentCollection
   Dim strArchivDB As String
   Dim strArchivPfad As String
   
   Set DB = S.CurrentDatabase
   Set Doc = DB.GetProfileDocument("(DBProfil)")
   'Profil Dokument auslesen
   strProtokollDB = Doc.dbServer(0)
   strProtokollPfad = Doc.dbPfad(0)
   Dim VProtokolle As New NotesDatabase(strProtokollDB,strProtokollPfad)
   
   Set View = DB.GetView("(VProtokolle)")
   Set Col = View.GetAllDocumentsByKey("Weitergabe")
   Set Doc = Col.GetFirstDocument
   
   'Dokumente kopieren   
   Do Until Doc Is Nothing   
      Call Doc.CopyToDatabase(VProtokolle)
      Doc.txtAktion = "übertragen"
      Call doc.Save(True, False)
      Set Doc = Col.GetNextDocument(Doc)
   Loop
   
   Call view.Refresh
   Msgbox "Die Dokumente wurden übertragen"
   
End Sub

Wie kriege ich die Antwortdokumente mit abgefangen und kopiert?

Gruß,
Wiesel

[Driri]

Bau Dir in der Do-Schleife jeweils zum bearbeiteten Dokument eine DocCollection mit allen zugehörigen Antwortdokumenten zusammen (über doc.Responses) und kopier dann die Antwortdokumente aus der Collection auch über eine Schleife in die andere DB rüber.

[Wiesel]

Cool!
Klappt super!