Löschen mehrere Memos in Inbox mit Dokumentvorschau

[orgeler]

Hallo,

ich möchte mehrere Dokumente aus der Inbox in eine andere Datenbank verschieben. Dadzu werden die markierten Dokumente kopiert und anschließend gelöscht.

Das Löschen funktioniert, wenn das in der Vorschau offene Dokument nicht selektiert wird.

Was mache ich hier falsch:

'### Get Documents to move
   Set dc_Curr                  = db_Curr.UnprocessedDocuments
'### Define the path if at least 1 document is selected   
   If dc_Curr.Count > 0 Then
   Else
      Print "Es wurden keine Dokumente markiert"
   End If
   Set doc_Curr               = dc_Curr.GetFirstDocument
   While Not doc_Curr Is Nothing
'### Copy Document to common database      
      Set doc_Dest = doc_Curr.CopyToDatabase(AblageDb)
'### Move Docuemt  in Zielordner  in the destination database
      Call doc_Dest.PutInFolder(Zielordner, True)
      Set doc_Curr      = dc_Curr.GetNextDocument(doc_Curr)
   Wend
   Set doc_Curr               = dc_Curr.GetFirstDocument

   While Not doc_Curr Is Nothing
'### Delete Document from source database
      Set doc_temp = dc_Curr.GetNextDocument(doc_curr)
      Call doc_curr.remove(False)
      Set doc_curr = doc_temp
   Wend
   Exit Sub

Bei Call doc_curr.remove geht das dann auf die Bretter.

[Mandalor]

Was kommt den für ein Fehler?

Hilft dir das weiter?:

http://atnotes.de/index.php?topic=30364.0