Error Meldung bei GetNextDoc

globe · 14. Juni 2006

Hallo,

in folgendem Code bekomme ich die Fehlermeldung (siehe Screeshot).

Code

Sub Initialize

Dim view As NotesView 
Set session = New notessession
Set db = session.currentdatabase
Set view = db.GetView("MailIn")

Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )

                ...Actions... 


	doc.Form = "Appointment"		
	Call doc.save(True, True)

	Set doc = view.GetNextDocument(doc) 		
	Wend

End Sub

Alles anzeigen

Kann mir da jemand helfen?
Schonmal vielen Dank!

Gruß globe

dnotes · 14. Juni 2006

Lass den Debugger mal mitlaufen und schau, ob im Initialize bereits alle Objekte erzeugt werden.

globe · 14. Juni 2006

Hey,

ja es werden alle Objekte erzeugt. Kann es sein das es an dem doc.Form "Apointement" liegt???

Gruß Globe

MaxRitti · 14. Juni 2006

Hi,

in welcher zeile taucht denn die Meldung auf?

Ich vermute mal in:

Set doc = view.GetNextDocument(doc)

Vermutlich verschwindet mit den Zeilen

doc.Form = "Appointment"
Call doc.save(True, True)

dein Dokument aus der Ansicht und der Befehl GetNextDocument läuft gegen die Wand.

Probier mal das:

Set tempDoc = view.GetNextDocument(doc)
doc.Form = "Appointment"
Call doc.save(True, True)
set doc = tempDoc

cu

globe · 14. Juni 2006

Ein Dokument bleibt jetzt noch in der Ansicht stehen.

Der Code bearbeitet halt jedes Dokument aus der Ansicht "MailIn". Nachdem das Dokument bearbeitet worden ist, soll es als doc.Form "Apointement" gesetzt werden.

Gruß Globe

MaxRitti · 14. Juni 2006

Und was sagt der Debugger, wenn Du den Code noch mal startest?
Der müsste ja in die While Schleife, dort die Form ändern und dadurch sollte das Dokument dann verschwinden.
Aber das sollte auch schon im ersten Durchgang funktioniert haben.

Wie oft läuft der Debugger denn durch die while-Schleife?

cu

globe · 14. Juni 2006

Ich hab mal eine Zähler Variable (i) mitlaufen lassen um mal zuschauen wieviele durchgänge er überhaupt macht!!! Bei 4 Dokumenten in der View ist der Code dreimal durchlaufen worden, von den 4 Dokumenten hat er 3 bearbeitet und auch die Form geändert so das sie nicht mehr in der View MailIn auftauchen. Nur das letzte Dokument bearbeitet er nicht.

taurec · 14. Juni 2006

Wie genau sieht denn dein Code jetzt aus

globe · 14. Juni 2006

Code

Sub Initialize

	Dim view As NotesView 

	Set session = New notessession
	Set db = session.currentdatabase
	Set view = db.GetView("MailIn")

	Set doc = view.GetFirstDocument
	While Not ( doc Is Nothing )

		.....Actions.....

		Set tempDoc = view.GetNextDocument(doc)
		doc.Form = "Appointment" 
		Call doc.save(True, True)
		Set doc = tempDoc

	Wend

End Sub

Alles anzeigen

globe · 14. Juni 2006

Hey,

mir ist gerade aufgefallen das ich im Code noch ein "Call doc.save(True, True)" hatte. Dies habe ich nun entfernt und schon ging der Code!!!

Gruß Globe

Teilen