Hallo,
es gibt so eine Datenbank - let's say Knowledgebase
Ich möchte aus jedem Dokument eine Email mit dem Dokumentinhalt UND meinen Kommentaren verschicken können.
Ich hab' mir folgendes vorgestellt:
1. In jedem Dok soll ein Button sein > Alle Text- und RT-Felder bzw. Daten werden in einer neuen Maske angezeigt
2. Diese Maske hat ein Zusatzfeld für meine Kommentare und einen Button zum Verschicken
3. Felder bzw. Daten werden bearbeitbar sein
4. Wenn ich per folgendes LS verschicke, werden nur Text-Daten extern verschickt
Was mache ich falsch?
Oder lieber anders formuliert: Wie soll ich richtig machen?
Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim UIDoc As notesuidocument
Dim Empfaenger As String
Set UIdoc=ws.CurrentDocument
Set doc=uidoc.Document
Set db= session.CurrentDatabase
Empfaenger=uidoc.FieldGetText("Empfaenger")
Call doc.ReplaceItemValue( "SendTo", Empfaenger )
Call doc.Save( False, True )
Call doc.Send( True )
End Sub