Dim ses As New NotesSession
ses.ConvertMIME = False
Dim db As NotesDatabase
Set db = ses.CurrentDatabase
Dim doc As NotesDocument
Set doc = db.CreateDocument
doc.Form = "Memo"
doc.Subject = "Newsletter MIME Test"
doc.Principal = "Newsletter Team"
Dim body As NotesMIMEEntity
Dim mc As NotesMIMEEntity
Dim mh As NotesMimeHeader
Dim stream As NotesStream
Set body = doc.CreateMIMEEntity
' Create main MIME message
Set mh = body.CreateHeader({MIME-Version})
mh.SetHeaderVal {1.0}
Set mh = body.CreateHeader({Content-Type})
mh.SetHeaderValAndParams {multipart/related;boundary="=NextPart_="}
' HTML Entitity
Set mc = body.CreateChildEntity
Set stream = ses.CreateStream
stream.WriteText |<style>TD {font-family:arial;font-size:9pt;}</style><table width="100%" border="0" cellspacing="0">|
stream.WriteText |<tr><td>Image Link</td><td>|
stream.WriteText |<a href="
http://www.lotus.com">Lotus Website</a>|
stream.WriteText |<img src="
cid:-*msg.LotusImage*-" alt="Lotus" width="240" height="30"></td></tr></table>|
mc.SetContentFromText stream, {text/html;charset="iso-8859-1"}, ENC_QUOTED_PRINTABLE
stream.Close
' Inline Image Entity
Set mc = body.CreateChildEntity
Set mh = mc.CreateHeader({Content-ID})
mh.SetHeaderVal {-*msg.LotusImage*-}
Set stream = ses.CreateStream
stream.Open {c:\image.gif}
mc.SetContentFromBytes stream, {image/gif;name="image.gif"}, ENC_IDENTITY_BINARY
stream.Close
doc.Send False, {Giles Hinton}
ses.ConvertMIME = True
Return to top
. . RE: Calling all MIME / Rich Text Me... (Raymond Neeves 9.Jul.04) 
Print this page
