Cómo copiar NotesRichTextItem como Variant

by admin

Cómo copiar NotesRichTextItem como Variant

software de Lotus Notes ofrece a los usuarios un conjunto de herramientas para crear mensajes de correo electrónico, programación, aplicaciones personalizadas de mensajería instantánea y gestión de la información. Incluye lenguaje de programación de LotusScript con funciones similares al lenguaje Visual Basic. El control NotesRichTextItem en LotusScript representa un elemento de Lotus Notes que contiene los ricos tipo de texto de los datos. Si un documento no se guarda, el elemento de texto enriquecido no se puede copiar de otro campo de texto enriquecido. Se puede crear una copia del documento abierto actualmente con los ricos elementos de texto copiando el NotesRichTextItem como una variante.

Instrucciones

1 Haga clic en "Inicio" de Windows y haga clic en "Lotus Notes".

2 Haga clic en la pestaña "Herramientas" en el menú y haga clic en "Editor de LotusScript."

3 Introduzca el código siguiente en la ventana abierta:

Dim doc As NotesDocument

Dim rtitem como variante

"... Valor establecido de doc ...

Establecer rtitem = doc.GetFirstItem ( "ProductDescription")

Si rtitem.Type = Entonces richtext

Llame rtitem.AddNewLine (1)

Llame rtitem.AppendText _

( "Camisa de manga corta, de color verde.")

Terminara si

Llame doc.Save (False, True)

para copiar el elemento de texto enriquecido "ProductDescription" de la Loto

Toma nota de base de datos como una variante.

4 Haga clic en "Archivo" y luego haga clic en "Guardar" para guardar el guión con su aplicación de Lotus Notes.

ETIQUETA: