Embedding images in emails using Lotusscript

Is there any way to embed images into an email using lotusscript? I can’t seem to get a straight answer. This is the code I have so far.

Dim session As New NotesSession

Dim db As NotesDatabase

Dim memo As NotesDocument

Dim rtitemail As NotesRichTextItem

Dim rtitemA As Variant

Set db = session.CurrentDatabase

Set memo = New NotesDocument(db)

memo.Form = “Memo”

Set rtitemail = New NotesRichTextItem( memo, “Body” )

memo.Subject = “Submission”

memo.SendTo = “tome@tome.com

rtitemA = “stuff”

Call rtitemail.AppendText( rtitemA )

Call memo.Send(False)

Any help would be much appreciated. Thanks.

Subject: Embedding images in emails using Lotusscript.

It’s straight forward eg.

.

.

Set rtitemail = New NotesRichTextItem( memo, “Body” )

Set object = rtitemail.EmbedObject( EMBED_ATTACHMENT, “”, “c:\temp\whynotesrocks.doc”)

.

.

Hope this helps.

Subject: RE: Embedding images in emails using Lotusscript.

Yes, I got that to work. I want the actual image to show up however in the email. When I try EMBED_OBJECT it craps out the Domino server for some reason. Is there a server document setting I have to change?

Subject: RE: Embedding images in emails using Lotusscript.

The easiest way is to use MIME to generate the email. The free download that accompanies this MIME article contains a form to let you enter some rich text, including images, and it generates the source code that would create the same rich text using MIME.