I’m getting type mismatch on the copyDoc in → Call doc.CopyAllItems(copyDoc, True)
Here is my code. I can’t seem to find what’s wrong.
Sub MySubName(dc As NotesDocumentCollection)
Dim s As New NotesSession
Dim uiws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim v1 As NotesView
Dim dc1 As NotesDocumentCollection
Dim doc As NotesDocument, doc1 As NotesDocument
Set db = s.CurrentDatabase
Set doc = dc.GetFirstDocument
Do While Not doc Is Nothing
Set copyDoc = New NotesDocument(db)
Call doc.CopyAllItems(copyDoc, True)
Set doc = dc.GetNextDocument(doc)
Loop
End Sub