Problem mit dc.adddocument(doc)

[Matthias78]

Hi,

Wenn ich eine NotesDocumentCollection mit Documenten befüllen will
Call dc.adddocument(doc)
dann erhalte ich jedes Mail ein Object Varable not set.

Ich steh grad echt auf dem Schlauch.

Dim s as New NotesSession
Dim db as NotesDatabase
Dim view as NotesView

Dim dc as NotesDocumentCollection


Dim doc as NotesDocument

Set db = s.currentdatabase
Set view = db.getview("Test")

Set doc = view.getfirstdocument

While not doc is nothing

If doc.subject(0) = "Test" then

Call dc.adddocument(doc)

End if

Wend


Gruß
Matthias

[umi]

Hi
Deine DC ist auch nirgends initialisiert.
Set DC = fehlt da noch irgendwo bevor Du ein addDocument ausführen kannst

[Tode]

Wenn Du die dc nicht initialisierst, dann kann das nicht gehen.
Such mal hier im Forum, wie man eine leere NotesDocumentCollection erstellt...

Ach ja: Bitte Code immer in Code- Tags einschliessen, so ist der mies zu lesen...

[Glombi]

Früher musste man ja einige Verrenkungen programmieren, um eine leere Collection zu erzeugen. Das geht nun deutlich einfacher.

Dim coll As NotesDocumentCollection
 if db.IsOpen Then Set coll = db.CreateDocumentCollection

siehe auch:
http://www-01.ibm.com/support/docview.wss?uid=swg21368236

[Matthias78]

Danke für die schnelle Hilfe.

Gruß
Matthias