By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
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