Agent zur Adressübernahme

Nochmal kurz zur Sache der Agent läuft.

Ausser die Aktualisierung der Ansicht läuft alles.

Dies ist der Code aus dem Adressbuch um die Einstellungen nach Name, Vorname zu aktualisieren:

Dim uiws As New NotesUIWorkspace	
	Dim uidoc As NotesUIDocument
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim profDoc As NotesDocument
	Dim item As NotesItem
	Dim dc As NotesDocumentCollection
	Dim boxtype As Long

	boxtype = 0 'MB_OK
	Set uidoc = uiws.CurrentDocument
	Set db = session.CurrentDatabase
	Set profdoc = uidoc.Document
	Set item = profDoc.GetFirstItem("NameDisplay")
	Set dc = db.AllDocuments
	Set doc = dc.GetFirstDocument
	While Not (doc Is Nothing)
		If (doc.Form(0) = "Person") Then
			Call doc.ReplaceItemValue("NameDisplayPref",item)
			Call doc.Save(True, True)
		End If
		Set doc = dc.GetNextDocument(doc)
	Wend

	Call uiws.viewrefresh
	Messagebox "Aktualisierung beendet. Die Ansicht 'Kontakte' wird entsprechend aktualisiert.", boxtype, "Lotus Notes"
End Sub

Kann ich den umstricken als Agent, diesem im Adressbuch laufen lassen und mit dem anderen Agenten aufrufen lassen. Oder kann ich die Aktualisierung mit dem anderen Agent in der anderen DB machen lassen?
Ein kleiner anstoss wie das aussehen könnte?

MFG Michael

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim profDoc As NotesDocument
Dim item As NotesItem
Dim dc As NotesDocumentCollection
Dim boxtype As Long

boxtype = 0 'MB_OK
Set db = session.CurrentDatabase
Set doc = session.Documentcontext
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
While Not (doc Is Nothing)
If (doc.Form(0) = "Person") Then
Call doc.ReplaceItemValue("NameDisplayPref","2")
Call doc.Save(True, True)
End If
Set doc = dc.GetNextDocument(doc)
Wend
End Sub

So funktioniert der Agent :). Die Namen werden so nach Nachname, Vorname angeorgnet.

Allerdigns bin ich ich nicht sicher ob der Code so 100% ok ist?

MFG Michael

Das ist zur Überprüfung? Richtig?

Der Code unten funktioniert nun anscheind ohne Probleme. Aber ist das so ok?

ok, die Felder werden validiert.

In der Hilfe hatte das gefunden
success = doc.ComputeWithForm( False, False )
If success Then
Call doc.Save( True, True )
End If

Deshalb die Frage das als Überpfrüng zu sehen ;).

Ich hack mal ab geht ja, Danke.

Call doc.ReplaceItemValue("NameDisplayPref","2")
Wenn man da statt einer 2 eine 1 einträgt wird nach Vorname Nachname sortieren.

MFG Michael