InternetAddress Feld aus öffentl. NAB auslesen

[tom69]

Hallo,

ich habe mir eine Anwendung aus dem Internet geladen das mittels Button Signaturen erstellt, danach angepasst und jetzt will ich noch etwas tunen .
Es wird so ablaufen: Nach dem drücken der Schaltfläche bekommt der User verschiedene Pop Ups mit vorgegebenen Werten angezeigt, die er entweder bestätigen kann oder Abbrechen. Es wäre schön wenn der Vorgabewert auch die User InternetAddress hätte.


Es gibt ja die Formel @dblookup mit der ich das Feld ja recht einfach auslesen kann, nur ich habe den Rest in Notes Script vor mir liegen und ich weiß jetzt nicht wie ich an den Feldinhalt herankomme.
Ich muß auf alle Fälle auf den Server zugreifen und mir den Inhalt von dort holen.

Könnt Ihr mir bitte einen Tip geben. Danke schon mal

Thomas

[umi]

vgl dazu
http://atnotes.de/index.php?topic=36075.0
Notes Designer Hilfe @nameLookup aufrufen

[tom69]

Hi umi,

ich habe den Beitrag auch gesehen, als ich meinen abgesendet hatte... aber ich bin nicht so richtig schlau daraus geworden

würde das dann so stimmen (sorry falls das zu blöde Fragen sind)

Dim docPerson As NotesDocument   
Dim viewUser As NotesView   

Set docPerson = viewUsers.GetDocumentByKey (session.UserName, True)

[koehlerbv]

Siehe DesignerHelp, NotesView.GetDocumentByKey - in den Beispielen dort sieht man schnell, dass hier noch ein paar Zeilen fehlen.

Bernhard

[tom69]

Hi
habs versucht, aber wenn ich auf den Button klicke dann kommt eine Fehlermeldung.
Hab im Forum etwas gespickt, komme aber nicht hin....

Object variable not set

Sub Click(Source As Button)
   Dim s As New NotesSession, ws As New NotesUIWorkspace
   Dim thisdb As NotesDatabase, thisdoc As NotesDocument
   Dim maildb As  New NotesDatabase("", "")
   Dim mailprof As NotesDocument  ' Mail Preferences profile
   Dim userdir As String, sigpath As String, sigpicpath As String
   Dim userinfo List As String
   Dim sigstream As NotesStream, sigcode As String
   Dim pathchoice As Variant
   Dim aqflg As Integer, quotetxt As String, quotestr As String
   Dim retflg As Long
   Dim dbNAB As NotesDatabase
   Dim nnUserName As NotesName
   Dim viewPeople As NotesView
   Dim docPerson As NotesDocument   Set thisdb = s.CurrentDatabase
   Call maildb.OpenMail
   If maildb.IsOpen = False Then Error 1000, "Unable to find mail database - aborting..."
   
   Set thisdoc = ws.CurrentDocument.Document   
   
   Set viewPeople = dbNAB.GetView("($VIMPeople)")
   Set nnUserName = New NotesName(s.UserName)
   Set docPerson= viewPeople.GetDocumentByKey (nnUserName, True)

NOch einen Tip bitte

[koehlerbv]

So wird das nichts - das ist nur Herumgestochere.

Jede verwendete Zeile sollte - insofern ihr Sinn nicht klar ist - in der DesignerHelp nachgelesen werden.
Jedes verwendete Objekt muss vorher instantiiert werden: Wo wird dbNAB instantiiert?
Wenn das erledigt ist, dann knallt es in der Zeile
Set docPerson= viewPeople.GetDocumentByKey (nnUserName, True)
-> Type mismatch. GetDocumentByKey erwartet einen String. Wiederum: Siehe DesignerHelp.

Bernhard