Hallo,
ich habe eine Form erstellt. Aus einem Beispiel-Code aus der Designerhilfe, habe ich folgendes übernommen (wobei ich die Refresh-Methode über NotesUIWorkspace und NotesUIDocument selbst erstellt habe):
| Sub Click(Source As Button) |
| Dim session As New NotesSession |
| Dim db As NotesDatabase |
| Set db = session.CurrentDatabase |
| Dim doc As New NotesDocument(db) |
| Dim ws As New NotesUIWorkspace |
| Dim uidoc As NotesUIDocument |
| Set uidoc = ws.CurrentDocument |
| |
| |
| |
| Call doc.AppendItemValue("From", session.UserName) |
| Call doc.AppendItemValue("Subject", _ |
| "Meeting time changed") |
| Dim richStyle As NotesRichTextStyle |
| Set richStyle = session.CreateRichTextStyle |
| Dim richText As New NotesRichTextItem(doc, "Body") |
| Call richText.AppendText("The meeting is at ") |
| richStyle.Bold = True |
| Call richText.AppendStyle(richStyle) |
| Call richText.AppendText("3:00") |
| richStyle.Bold = False |
| Call richText.AppendStyle(richStyle) |
| Call richText.AppendText(" not 2:00") |
| |
| Call uidoc.Refresh(True) |
| |
| Call doc.Save(True, False) |
| End Sub |
Laut der Designer-Hilfe sollte appendItemValue ein neues Item erzeugen:
"Creates a new item in a document and sets the item value."
Ich habe nur eine Form, keine View. Der Code wird über einen Button aufgerufen. In der Form befinden sich keine weiteren Items.
Die isSummary-Methode hat leider auch nicht weitergeholfen.
Weiß jemand weiter?
Liebe Grüße
Giordano