Tabellen per Script in RT-Feldern erstellen

[bikerboy]

Hallo ich weiss, dass Thema wurde bereits of besprochen, aber leider hilft es mir nicht bei meinem Problem

Hier kurz mein Problem:

Ich möchte eine Tabelle in einem RTFeld erzeugen. Das klappte bis gerade auch sehr gut, aber die Tabelle sah nicht soooo schön aus, also habe ich versucht sie zu formatieren und nun steigt mein Client immer an der selben Stelle aus.

Code

	Dim rtBody As New NotesRichTextItem(docTicket,FLDRICHTEXT)
	
	Dim rtpsColumnsPositions As NotesRichTextParagraphStyle
	Set rtpsColumnsPositions = session.CreateRichTextParagraphStyle
	rtpsColumnsPositions.LeftMargin = 0
	rtpsColumnsPositions.FirstLineLeftMargin = 0
	rtpsColumnsPositions.InterLineSpacing = 0
	rtpsColumnsPositions.Pagination = 0
	rtpsColumnsPositions.RightMargin = 0
	rtpsColumnsPositions.SpacingAbove = 0
	rtpsColumnsPositions.SpacingBelow = 0
	
	' define width of columns
	rtpsColumnsPositions.RightMargin = 1.5 * TWIPS - (0.11 * TWIPS)
	
	' define alignment of columns
	rtpsColumnsPositions.Alignment = ALIGN_CENTER		
	
	' Alte Berechtigungen
	rtBody.AppendText("Alte  Berechtigungen: ")
	rtBody.AddNewline(1)
	[b]Call rtBody.AppendTable(2,11, , 2 * TWIPS,rtpsColumnsPositions)[/b]

Die markierte Zeile bringt den Client zum absturz.