Notes/Domino 6 and 7 Forum : try this

Notes/Domino 6 and 7 Forum

try this

try this
Posted by ~Umberto Nongeroson on 15.Apr.03 at 08:45 PM using a Web browser
Category: Applications Development

Release: 6.0

Platform: Windows XP

This code creates the child entity which holds the image and sets the header.

Howard

Dim mimeImage As NotesMimeEntity

Set mimeImage = mimeRoot.CreateChildEntity

Call ns.Open(sDirectoryPath & "logo.gif")

Call mimeImage.SetContentFromBytes(ns,"image/gif",ENC_None)

Call mimeImage.EncodeContent(ENC_Base64)

Set mimeHdr = mimeImage.createheader("Content-ID")

Call mimeHdr.setHeaderval("<logo.gif>")

Call ns.Close