How to Attach a File to a Rich Text Object

This routine illustrates how to attach a file to a Rich Text field using LotusScript. Using this solution, users can click on an action button and select a file, and the selected file is appended to the predefined Rich Text field on the form.

How It Works

Files can be attached to a Rich Text object using the NotesEmbeddedObject class. First, you must instantiate a NotesEmbeddedObject and a NotesRichTextItem object. Then, using the EmbedObject method, a user can select a file to be attached to the specified NotesRichTextItem field.

Implementation

The following code illustrates how to prompt the user to select a file, attach the file to the Rich Text field called "Body", and email the file to yourself. To implement this solution, create an action button on either a form or view, change the Language Selector to LotusScript, and insert the following code in the Programmer's pane.

Sub Click(Source As Button) '-------------------------------------------------------- ' Define the objects '-------------------------------------------------------- Dim s As New NotesSession Dim w As New NotesUIWorkspace Dim db As NotesDatabase Dim doc As NotesDocument Dim rtitem As NotesRichTextItem Dim object As NotesEmbeddedObject Dim Person As NotesName Dim filename as Variant Set s = new NotesSession Set w = new NotesUIWorkspace Set db = s.CurrentDatabase Set doc = New NotesDocument (db) '-------------------------------------------------------- ' Prompt user to select a file. '-------------------------------------------------------- filename = w.OpenFileDialog (True, "Select a file.", , "c:") '-------------------------------------------------------- ' Build the email '-------------------------------------------------------- Set Person = New NotesName doc.Form = "Memo" doc.SendTo = Person.Abbreviated doc.Subject = "Requested File" '-------------------------------------------------------- ' Format the Rich Text field and send email '-------------------------------------------------------- Set rtitem = New NotesRichTextItem(doc, "Body") Call rtitem.AddNewline(1) Call rtitem.AppendText("Here is the file you requested.") Call rtitem.AddNewline (2) Set object = rtitem.EmbedObject (EMBED_ATTACHMENT, +_ "", filename(0)) doc.Send False Msgbox "The requested file has been sent.", 0, "Success" End Sub