Set Body = Doc.getfirstitem("attach")

  • Автор темы oxystile
  • Дата начала
Статус
Закрыто для дальнейших ответов.
O

oxystile

#1
Код:
Dim body As NotesRichTextItem
Set body = doc.GetFirstItem("Attach")
есть поле Attach в документе, но через раз body="", почему и как исправить?
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Для: oxystile
а почему не так как в хэлпе

Код:
Dim body As NotesRichTextItem
Set body = New NotesRichTextItem ( doc, "Attach" )
да ,и документ сохранён?
 
O

oxystile

#3
да, документ сохранен.
вроде как нашла причину, пока проверяю:

The compiler raises an error if you try to set the return value of GetFirstItem equal to a NotesRichTextItem object. This is because a NotesItem is not necessarily a NotesRichTextItem, and the compiler has no way of knowing whether the name$ you specify actually corresponds to a rich text item. For example:
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
'compiler complains
The solution to this problem is to declare a variant, set it equal to the return value of GetFirstItem, and then treat the variant as a NotesRichTextItem. For example:
Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
'...use NotesRichTextItem methods...
End If
 

morpheus

скриптописец
07.08.2006
3 915
1
#4
<!--QuoteBegin-oxystile+18:10:2007, 10:02 -->
<span class="vbquote">(oxystile @ 18:10:2007, 10:02 )</span><!--QuoteEBegin-->[snapback]82213" rel="nofollow" target="_blank[/snapback]</div>[/quote]
Ух красавица програмист - администратор ;)
 
Статус
Закрыто для дальнейших ответов.