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
