konfabulieren

Error 4207: Function requires a valid ADT argument

Posted on June 21st, 2004 in d_lotusscript, domino

warum bitte bringt mir Set NewDoc = Doc.CopyToDatabase(ZielDB) den fehler “Error 4207: Function requires a valid ADT argument???

Function CopyAllDocs(qserver As String, qdb As String, zpath As String, qview As String) As Integer
   On Error Goto ErrHand
   '-1 = error
   '>0 = ok
   Dim QuellDB As NotesDatabase
   Dim QuellView As NotesView
   Dim ZielDB As NotesDatabase
   Dim Session As New NotesSession
   Dim vc As NotesViewEntryCollection
   Dim entry As NotesViewEntry
   Dim Doc As NotesDocument
   Dim NewDoc As NotesDocument
   Dim f As Long
   Dim ActDB As Integer

   CopyAllDocs = -1
   Set QuellDB = Session.GetDatabase(qserver, qdb, False )
   QuellDB.FolderReferencesEnabled = True
   Set QuellView = QuellDB.GetView(qView)
   Set vc = quellview.AllEntries
   Set entry = vc.GetFirstEntry()
   Set Doc = entry.Document

   ActDB = 0
   Set ZielDB = Session.GetDatabase(qserver,Cstr(ActDB)+"_"+qdb, False)

   For f = 1 To vc.Count
      If f = DBSchnittmarken(ActDB) Then
         Call WriteLog("Wechsle zu Ziel-DB Nr: " & Cstr(ActDB), Info)
         Print "Wechsle zu Ziel-DB Nr: " & Cstr(ActDB)
         ActDB = ActDB + 1
         Set ZielDB = Session.GetDatabase(qserver,Cstr(ActDB)+"_"+qdb, False)
      End If      

      Set entry = vc.GetNthEntry(f)
      Set Doc = entry.Document
      Set NewDoc = Doc.CopyToDatabase(ZielDB)

      Forall ActFolder In doc.FolderReferences
         Call NewDoc.PutInFolder(ActFolder,True)
      End Forall
   Next   

   CopyAllDocs=1

   Exit Function

ErrHand:
   Call ErrHandSub()
   Resume Next
End Function

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.

Make a Comment

3 Responses to “Error 4207: Function requires a valid ADT argument”

Comments RSS Feed

anthony wrote on June 22, 2004 @ 08:03 (in other words: 10 hours, 10 minutes after the fact)

jbubbleboy wrote on October 5, 2004 @ 09:50 (in other words: 3 months, 2 weeks after the fact)

hipslu wrote on October 5, 2004 @ 12:00 (in other words: 3 months, 2 weeks after the fact)

Where's The Comment Form?