Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Thunder am 11.06.04 - 11:27:13

Titel: Zugriff auf Profildok mit LS
Beitrag von: Thunder am 11.06.04 - 11:27:13

Hallo,
ich möchte gern mit LS eine Mailmaske öffnen, in der sofort eine im Profildokument hinterlegte Namensliste ins 'An'Feld eingetragen wird.
Sollte nicht so schwer sein.
Mit folgendem Script können unsere User eine Person direkt aus unserem Telefonbuch anmailen.
Es muss nur im Profildokument "(Parameter)" das Feld "par_eMail" ausgelesen werden und in 'Adresse' gespeichert werden.
Aber wie mache ich das ?


Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim TheDocument As NotesDocument
   Dim eigener As String
   Dim server As String
   Dim Adresse As String
   Dim Text As String
   
   eigener = session.GetEnvironmentString ("MailFile", True)
   server = session.GetEnvironmentString ("MailServer", True)
   Set uidoc = Workspace.CurrentDocument
   Set TheDocument = uidoc.document
   Set db = New Notesdatabase (server, eigener)
   Set doc = db.createDocument
   
   Adresse = uidoc.FieldGetText("TXT_NotesMail")
   Text = "eMail aus dem Telefonbuch"
   
   doc.Form = "Memo"
   doc.Subject = Text
   doc.SendTo = Adresse
   Call workspace.EditDocument (True, doc)
End Sub

Titel: Re:Zugriff auf Profildok mit LS
Beitrag von: animate am 11.06.04 - 11:33:56

musst du mal in der Designer-Hilfe die GetProfileDocument-Methode der NotesDatabase-Klasse angucken

Titel: Re:Zugriff auf Profildok mit LS
Beitrag von: Axel am 11.06.04 - 13:07:49

Hi,

hier eine andere Alternative: Klasse für Userprofile (http://www.free.dominoserver.de/computer/noteslibrary.nsf/d2d59a3d7fc73a2bc1256a6900638352/74e4b61d04ca824dc1256db20041582a!OpenDocument)

Axel