Maske "Appointment" per Agent im "Bearbeitungsmodus" öffnen

[Bellerophon]

*greetz* @ ALL!

Ich habe eine Schaltfläche die Daten per Agent aus einer Maske in den Kalender des jeweiligen Nutzers kopieren soll.

Ich weiß, dass ich hier im 5er Forum bin, aber ich denke das liegt auch an den 5er Maildatenbanken?

Bei mir (6.5.5 er Client & 6er Datenbanken) klappt das einwandfrei, bei Nutzern mit Clientversion 6.5.5 auf 5er Maildatenbanken kommt die Fehlermeldung:

Notes Fehler: Um den WERT eines Feldes ändern zu können, müssen Sie im Bearbeitungsmodus sein!

Er öffnet die Maske einfach NICHT im Bearbeitungsmodus!

Der Agent dazu sieht wie folgt aus:

Code

Sub Initialize
	Dim sess As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim newdoc As NotesDocument
	Dim Mailuidoc As NotesUIDocument
	Dim db As NotesDatabase
	Set db = sess.currentdatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim Text As String
	Set uidoc = workspace.CurrentDocument       
	Dim localname As New Notesdatabase( "" , "names.nsf" )
	
     'Angaben übernehmen
	
	Bezeichnung=uidoc.fieldgettext("tBezeichnung")
	Beginn=uidoc.fieldgettext("datumVon")
	Ende=uidoc.fieldgettext("datumBis")
	BeginnUhr=uidoc.fieldgettext("zeitVon")
	EndeUhr=uidoc.fieldgettext("zeitBis")
	Thema=uidoc.fieldgettext("thema")
	Kommentar=uidoc.fieldgettext("kommentar")
	
	Call uidoc.close
	
	Dim Maildb As New NotesDatabase( "", "" )
	Call Maildb.OpenMail
	
	If Not Maildb.IsOpen Then
		
		Msgbox "Ihre lokale Maildatenbank konnte nicht gefunden werden. Bitte wenden Sie sich an Ihren Administrator!"
		Exit Sub
		
	End If
	Set newdoc = Maildb.CreateDocument
	newdoc.Form = "Appointment"
	Set Mailuidoc = Workspace.EditDocument( True, newdoc )
	
	Mailuidoc.fieldsettext"AppointmentType","0"
	
	Mailuidoc.fieldsettext"Subject",Bezeichnung
	Text = Bezeichnung+" - "+Beginn+"  -  "+BeginnUhr+" "+Ende+"  -  "+EndeUhr +"  - "+ Thema
	
	
	Mailuidoc.fieldsettext"Body",Text
	
	Call Mailuidoc.Refresh
	
End Sub

Habe ich was übersehen?