Feld im Userprofil befüllen

[gere]

Hallo zusammen,

Leider bin ich was Lotus Script angeht noch fleißig am Trainieren. Ich habe gerade ein kleines Problem, bei dem ich nicht weiterkomme. Ich habe eine Notes-Anwendung und dort einen Synchronisations-Button in einer Maske, mit dem unter anderem die Email-Adresse des Benutzers aus dem Domino Directory ausgelesen werden soll und in das Userprofil des aktuellen Benutzers in dieser Notes-Anwendung geschrieben werden soll. Das im Userprofil vorgesehene Feld heißt "EmailAddress".

Ich habe nun geschafft, die Email-Adresse aus dem Domino Directory direkt in das Test-Feld "Email" der gerade geöffneten Maske zu schreiben (siehe nachfolgender Code).

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim namesDb As New NotesDatabase("", "")
   Dim thisdb As NotesDatabase
   Dim namesView As NotesView
   Dim namesDoc As NotesDocument
   Dim nam As NotesName
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   
   Set nam = s.CreateName(s.UserName)
   
   Call namesDb.Open(s.CurrentDatabase.Server,"names.nsf")
   Set namesView = namesDb.GetView("($VIMPeople)")
   Set namesDoc = namesView.GetDocumentByKey(nam.Abbreviated)
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   
   uidoc.EditMode = True
   doc.Email = namesDoc.InternetAddress(0)
   
   Call doc.Save(True, False, True)
   
End Sub

Wenn ich allerdings von der momentan geöffneten Maske das Feld "EmailAddress" im UserProfile füllen will, bleibt das jeweils leer (siehe nachfolgender Code).

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim namesDb As New NotesDatabase("", "")
   Dim thisdb As NotesDatabase
   Dim namesView As NotesView
   Dim namesDoc As NotesDocument
   Dim nam As NotesName
   Dim pdoc As NotesDocument
   
   Set nam = s.CreateName(s.UserName)
   
   Call namesDb.Open(s.CurrentDatabase.Server,"names.nsf")
   Set namesView = namesDb.GetView("($VIMPeople)")
   Set namesDoc = namesView.GetDocumentByKey(nam.Abbreviated)
   Set thisDb = s.CurrentDatabase
   
   Set pdoc = thisDb.GetProfileDocument("UserProfile","Database")
   pdoc.EditMode = True   
   pdoc.EmailAddress = namesDoc.InternetAddress(0)
   
   Call pdoc.Save(True, False, True)
   
End Sub

Wo liegt denn hier der Fehler? Muss ich pdoc als NotesUIWorkspace deklarieren, damit das Feld "EmailAddress" befüllt werden kann?

Danke für Eure Hilfe,

gere

[MadMetzger]

Was ist denn das für ein Dokument, das gerade offen ist. Irgendwie scheinst du hier Schwierigkeiten mit der Unterscheidung zwischen Backend und Frontend zu haben. Aber eben dieser Punkt ist sehr wichtig, wenn man mit Notes und Script unterwegs ist.

Eigentlich wundert es mich, dass der obere Code so auch funktioniert und die Adresse in dem Dokument ankommt. Oder gibt es in der Maske, mit der das Dokument geöffnet wurde das Feld Email gar nicht?

[Driri]

pdoc.EditMode = True

Was willst Du mit dieser Zeile ? Die Property EditMode gibt es für ein NotesDocument nicht.

Du hast überhaupt kein Errorhandling drin. Zumindest eine Prüfung, ob die Objekte überhaupt sauber zugewiesen wurden, solltest Du einbauen (so ala "If Not (namesDoc Is Nothing)...").

Was sagt der Debugger, wenn Du den Code Step für Step laufen läßt ?

[gere]

Hallo zusammen,

Danke für Eure Antworten.

@MadMetzger:

Der Synchronize-Button wird in der Aktionsleiste der momentan geöffneten Eingabemaske gedrückt. Ich habe mit dem oberen Code die Email-Adresse aus dem DD ausgelesen und in das Feld "Email" in der gerade offenen Maske geschrieben. Das hat soweit funktioniert. Wenn ich nun aber mit dem selben Button in der momentan geöffneten Maske die Emailadresse aus dem DD in das Feld "EmailAddress" im Userprofil schreiben will, funktioniert das nicht. Benutzt habe ich hierfür den unteren Code.

@Driri:

Mit der Zeile "uidoc.EditMode = True" versetze ich das aktuell geöffnete Dokument in den Edit-Modus. Das klappt sogar.

Die Frage ist nun, wie ich mit einem Button in der Aktionsleiste einer Maske einen Wert ins Userprofil schreiben kann. Irgendwie muss ich das Userprofil ja im Backend den Edit-Modus versetzen, das Feld füllen und dann wieder im Backend speichern. Nur wie?

Danke + Gruss
gere

[koehlerbv]

Ingo meinte eine ganz andere Zeile.

Und: Im Backend gibt es keinen EditMode (ist auch unnötig).

Bernhard

[gere]

@koehlerbv

Sorry, falsch gelesen. Damit dachte ich, das Userprofil irgendwie in den Edit-Modus zu versetzen. War eben ein Versuch, aber genau das ist ja der Knackpunkt, an dem ich gerade hänge. Wie kann ich einen Wert in eine (Profil-)Maske schreiben, die momentan nicht geöffnet ist.

gere

[Driri]

Die Frage ist nun, wie ich mit einem Button in der Aktionsleiste einer Maske einen Wert ins Userprofil schreiben kann. Irgendwie muss ich das Userprofil ja im Backend den Edit-Modus versetzen, das Feld füllen und dann wieder im Backend speichern. Nur wie?

Falsch 

Im Backend gibt es keinen EditMode, wie Bernhard schon sagte. Wenn Du das Backend-Dokument sauber im Zugriff hast, kannst Du die Items direkt ändern und das Dokument speichern.

Entweder so, wie Du das schon im Code stehen hast oder über ReplaceItemValue.

doc.Itemname = Wert
Call doc.ReplaceItem("Itemname", Wert)


Darum auch die Frage nach dem Debugger. Bis auf die Zeile pdoc.EditMode = True sieht das auf den ersten Blick korrekt aus.

[Driri]

Was mir gerade noch auffällt, ist diese Codezeile hier :

Set pdoc = thisDb.GetProfileDocument("UserProfile","Database")

Steht das wirklich so bei Dir im Code ? Weil dann würde ich mal einen Blick in die Designer Hilfe werfen.

[koehlerbv]

Lies Ingos Posting doch mal bitte aufmerksam. Ingo schreibt da auch was vom Debugger, vom Überprüfen von Objekten und vom ErrorHandling.

Und: Dein Code schreibt schon einen Wert in ein ProfileDocument. Die Frage ist nur, ob Du da überhaupt das ProfileDocument beschreibst, welche Du eigentlich beschreiben willst bzw. das, was Du dann öffnest. Du schreibst von "UserProfile", verwendest aber den String "Database" als Schlüssel. Ungewöhnlich ...

Bernhard

[gere]

Also der Debuggen zeigt, dass die Variable pdoc ins Leere zeigt. Also liegt mein Problem dort begraben.
Habe nun die Zuweisung folgendermaßen geändert:

Set pdoc = thisDb.GetProfileDocument("UserProfile", s.getUserName(0))

Die Maske des Userprofils heißt "UserProfile", das ist soweit korrekt. Und da ich ja in das UserProfile des aktuellen Benutzers schreiben will, habe ich nun s.getUserName(0) als Sting verwendet. Allerdings wirft mir Notes nun beim Speichern den Fehler "Not a member: GETUSERNAME" aus. Hier nochmal der ganze Code zur Übersicht:

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim namesDb As New NotesDatabase("", "")
   Dim thisdb As NotesDatabase
   Dim namesView As NotesView
   Dim namesDoc As NotesDocument
   Dim nam As NotesName
   Dim pdoc As NotesDocument
   
   Set nam = s.CreateName(s.UserName)
   
   Call namesDb.Open(s.CurrentDatabase.Server,"names.nsf")
   Set namesView = namesDb.GetView("($VIMPeople)")
   Set namesDoc = namesView.GetDocumentByKey(nam.Abbreviated)
   Set thisDb = s.CurrentDatabase
   
   Set pdoc = thisDb.GetProfileDocument("UserProfile", s.getUserName(0))
   pdoc.EditMode = True   
   pdoc.EmailAddress = namesDoc.InternetAddress(0)
   
   Call pdoc.Save(True, False, True)
   
End Sub

Wie kann ich denn der Variable pdoc das Userprofil zuweisen?

gere

[DAU-in]

es ist:

To get: name$ = notesSession.UserName

also einfach:


Set pdoc = thisDb.GetProfileDocument("UserProfile", s.username)


grüsse

Dau-in


Edit PS: Das ist eine Property und liefert einen String und kein Array, daher kein 'get', siehe Hilfe (ist normal eine Methode) und kein (0), da kein Arrayelement spezifizierbar.

[Driri]

Und noch einmal der Hinweis : Benutz die Designerhilfe, die ist wirklich gut.

Ich kann mir auch nicht jeden Befehl und jede Syntax merken und nutze beim Programmieren immer mal wieder die Hilfe 


Achja, Du hast immer noch die Zeile pdoc.EditMode = True drin, die kannst Du rausnehmen. Vermutilch füllt dir das Script sonst ein Item "EditMode" in dem Profildokument mit True.

[gere]

OK vielen Dank. Es kommt momentan bei der Ausführung des Codes kein Fehler mehr. Allerdings wird das Feld "EmailAddress" im Profil auch nicht befüllt. Das sollte eigentlich durch die Zeile
pdoc.EmailAddress = namesDoc.InternetAddress(0) passieren. Was fehlt mir denn jetzt noch? Bin da etwas ratlos im Moment.

gere

[DAU-in]

was zeigt der Debugger für namesDoc.InternetAddress(0)  denn an?

ist namesDoc das richtige Dokument?

und heisst das Feld auf dem Profildokument wirklich EmailAddress?

Ist ein Lieblingsfehler von mir, im Backend das Item Adress belegen und im Frontend sich über den Wert des Feldes Address wundern.

grüsse

Dau-in

[gere]

Also das Feld heißt wirklich EmailAddress.
Der Debugger zeigt für namesDoc.InternetAddress(0) folgendes an:

bla bla...
+NAMESDOC
   +ITEMS
      +[16]
         +Name ----> "InternetAddress"
         +Values ---> "Vorname.Nachname@Firma.xy"
bla bla...

Wenn ich namesDoc.InternetAddress(0) als Msgbox ausgeben lasse, bekomme ich den richtigen Wert angezeigt. Nur ins Profil läßt er sich nicht schreiben! Komme hier keinen Schritt weiter.

gere

[MadMetzger]

Was sagt denn der Debugger für dein pdoc, nachdem du die "Übernahme" ausgeführt hast?

Wird überhaupt ein Profildokument gefunden? Was klappt genau nicht?

[gere]

Der Debugger sagt für pdoc:

bla bla...
+PDOC
   +ITEMS
      +[3]
         NAME ---> "EmailAddress"
         VALUES ---> "vorname.nachname@firma.xy"
         .
         .
         TEXT ---> "vorname.nachname@firma.xy" 
bla bla...
Das Userprofil wird gefunden, allerdings wird nach Ausführen der "Übernahme" das Feld "EmailAddress" nicht befüllt.

[DAU-in]

Kannst du bitte einmal den aktuellen Code posten?


edith: du hast aber schon Schreibrechte auf dem Profildokument?

[MadMetzger]

Woran machst du das denn eigentlich fest, dass die Adresse nicht in das Feld übernommen wird? Denn der Debugger sagt glasklar, dass in dem Dokument ein Item (nicht Feld) mit Namen "EmailAdresse" mit der richtigen Füllung existiert.

[WildVirus]

Hat das Profildokument Autorenfelder ?

Prüf mal mit Notespeek, wieviele Profildokumente es in der DB für den Benutzer gibt 

Woran machst Du fest, dass das reinschreiben nicht klappt ?