Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: tom69 am 02.05.07 - 17:13:03
-
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
-
vgl dazu
http://atnotes.de/index.php?topic=36075.0
Notes Designer Hilfe @nameLookup aufrufen
-
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)
-
Siehe DesignerHelp, NotesView.GetDocumentByKey - in den Beispielen dort sieht man schnell, dass hier noch ein paar Zeilen fehlen.
Bernhard
-
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
-
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