E
Erlan
Здравствуйте!
Подскажите пожалуйста, в чем проблема?
(Код взят из хелпа лотуса)
Лотус стоит 7 версия. (может это в 7 версии глюк?)
Выдает ошибку на Object variable not set
Поле "Body" есть и оно точно RICHTEXT
НО почему то не хочет выполняться блок условия IF
Подскажите пожалуйста, в чем проблема?
(Код взят из хелпа лотуса)
Лотус стоит 7 версия. (может это в 7 версии глюк?)
Код:
Dim ws As New NotesUIWorkspace
Dim curdoc As NotesDocument
Set curdoc = ws.CurrentDocument.Document
Dim rtitem As Variant
Set rtitem = curdoc.GetFirstItem( "Body" )
If rtitem.Type = RICHTEXT Then
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText _
( "Book is 64 pages, full color." )
End If
Call curdoc.Save( False, True )
Поле "Body" есть и оно точно RICHTEXT
НО почему то не хочет выполняться блок условия IF