HCL Domino - Examples: Activate method - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: Activate method
1. This script embeds a new object in the Body item of a document, and activates the object.

Dim session As New NotesSession Dim doc As NotesDocument Dim rtitem As NotesRichTextItem Dim object As NotesEmbeddedObject Dim handle As Variant Set doc = New NotesDocument( session.CurrentDatabase ) Set rtitem = New NotesRichTextItem( doc, "Body" ) Set object = rtitem.EmbedObject _ ( EMBED_OBJECT, "Microsoft Excel Worksheet", "", _ "Report" ) Set handle = object.Activate( False ) If ( handle Is Nothing ) Then doc.Subject = "This object has no OLE automation interface" Else doc.Subject = "This object has an OLE automation interface" End If Call doc.Save( True, True )

2. This script embeds a new worksheet object in a rich text item, activates it, and uses its handle to set the value of a cell in the worksheet.

Dim rtitem as NotesRichTextItem Dim object as NotesEmbeddedObject Dim handle as Variant '...set value of rtitem... Set object = rtitem.EmbedObject( EMBED_OBJECT, _ "Microsoft Excel Worksheet", "", "Report" ) Set handle = object.Activate ( False ) handle.Application.Cells( 1,1 ).Value = 100 handle.Parent.Save

See Also

Activate method

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents