| Dim richStyle As NotesRichTextStyle |
| Set richStyle = session.CreateRichTextStyle |
| |
| |
| Set MemoBody = memo.CreateRichTextItem( "Body" ) |
| |
| Dim rtnavBody As NotesRichTextNavigator |
| Dim rtt As NotesRichTextTable |
| Dim rtrange As NotesRichTextRange |
| Set rtnavBody = Memobody.CreateNavigator |
| |
| If rtnavBody.FindFirstElement(RTELEM_TYPE_TABLE) Then |
| Set rtt = rtnavBody.GetElement |
| Call rtt.AddRow() |
| End If |
| |
| Dim richStyle As NotesRichTextStyle |
| Set richStyle = session.CreateRichTextStyle |
| |
| Call Memobody.AppendTable(1,5) |
| |
| Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,2) |
| Call Memobody.BeginInsert(rtnavBody) |
| richStyle.Bold = True |
| Call Memobody.AppendStyle(richStyle) |
| Call Memobody.AppendText("Datum") |
| richStyle.Bold = False |
| Call Memobody.EndInsert |
| |
| Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,3) |
| Call Memobody.BeginInsert(rtnavBody) |
| richStyle.Bold = True |
| Call Memobody.AppendText("Thema") |
| richStyle.Bold = False |
| Call Memobody.AppendStyle(richStyle) |
| Call Memobody.EndInsert |
| |
| Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,4) |
| Call Memobody.BeginInsert(rtnavBody) |
| richStyle.Bold = True |
| Call Memobody.AppendText("Sektion") |
| richStyle.Bold = False |
| Call Memobody.AppendStyle(richStyle) |
| Call Memobody.EndInsert |
| |
| Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,5) |
| Call Memobody.BeginInsert(rtnavBody) |
| richStyle.Bold = True |
| Call Memobody.AppendText("Sprache") |
| richStyle.Bold = False |
| Call Memobody.AppendStyle(richStyle) |
| Call Memobody.EndInsert |
| |
| Call rtnavBody.FindFirstElement(RTELEM_TYPE_TABLE) |
| Set rtt = rtnavBody.GetElement |
| Call rtt.AddRow() |
| |
| Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,6) |
| Call Memobody.BeginInsert(rtnavBody) |
| Call MemoBody.AppendDocLink(newDoc,"","") |
| Call Memobody.EndInsert |
| |
| Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,7) |
| Call Memobody.BeginInsert(rtnavBody) |
| Call Memobody.AppendText(newDocDatum) |
| Call Memobody.EndInsert |
| |
| Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,8) |
| Call Memobody.BeginInsert(rtnavBody) |
| Call Memobody.AppendText(newDocThema) |
| Call Memobody.EndInsert |
| |
| Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,9) |
| Call Memobody.BeginInsert(rtnavBody) |
| Call Memobody.AppendText(newDocSektion) |
| Call Memobody.EndInsert |
| |
| Call rtnavBody.FindNthElement(RTELEM_TYPE_TABLECELL,10) |
| Call Memobody.BeginInsert(rtnavBody) |
| Call Memobody.AppendText(newDocSprache) |
| Call Memobody.AppendStyle(richStyle) |
| Call Memobody.EndInsert |