Hier übrigens meine private Function der Klasse, wo ich das abfangen möchte:
Private Function checkSize() As Integer
'Prüfe Größe des History-Feldes
Dim item As NotesItem
Dim nLengthHistory As Long
Dim nLengthNewValue As Long
Set item = m_doc.GetFirstItem( m_strHistoryFieldName )
nLengthHistory = item.ValueLength
nLengthNewValue = Len(m_strHistoryEntry)
If nLengthHistory + nLengthNewValue > 15000 Then
checkSize = False
Else
checkSize = True
End If
End Function
15K ist nun wirklich nicht seeehr viel ::)
Aber gut, da muss man wohl durch..... Mit "15000" gehe ich eh noch eine Nummer sicher, da dies ja in Wirklichkeit 14,65 KB sind..