By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Dim w As New notesuiworkspace
dim w as new notesuiworkspace
dim uidoc as notesuidocument
Dim doc As notesdocument
Dim item As NotesItem
Dim RTSize As Integer
Set item = doc.GetFirstItem( "Body" )
RTSize = Item.ValueLength
(96 is the size of empty rt item)
if RTSize=96 then '
'your input validation goes here