LOTUSSCRIPT/COM/OLE CLASSES
Examples: GetFirstItem method
1. This script prints a message about the Subject item in a document.
Dim doc As NotesDocument
'...set value of doc...
Dim item As NotesItem
Set item = doc.GetFirstItem( "Subject" )
If ( item Is Nothing ) Then
Messagebox( "No Subject item on the document." )
Else
Messagebox( _
"The Subject item on the document has the value: " _
+ item.Text )
End If
2. This example demonstrates an attempt to get the value of the DateComposed item in a document. If there is no such item (possibly because DateComposed is only a field that's computed for display), it uses the Created property instead.
Dim doc As NotesDocument
Dim item As NotesItem
Dim dateTime As New NotesDateTime( "" )
'...set value of doc...
Set item = doc.GetFirstItem( "DateComposed" )
' An item called DateComposed doesn't exist on the document
If ( item Is Nothing ) Then
dateTime.LSLocalTime = doc.Created
' an item called DateComposed exists
' on the document
Else
Set dateTime = item.DateTimeValue
End If
3. This script gets a rich text item from a document and adds some text to it.
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Call rtitem.AppendText( "One line of text" )
Call rtitem.AddNewLine( 2 )
Call rtitem.AppendText( "Another line of text" )
Call doc.Save( False, True )
End If
Véase también
GetFirstItem method
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa