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
'Dim item As NotesItem
'Set item = doc.AppendItemValue("From", session.UserName)
'item.IsSummary = True
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