Hello,
Who knows the reason why I cant embedded a TIFF image in the body of an eMail using the code below? With GIF and JPG works fine but with TIF files, appears a red cross instead of the image. Any solution?
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim mimeRoot As NotesMimeEntity, mime As NotesMimeEntity
Dim header As NotesMimeHeader
Dim stream As NotesStream
Set db = s.CurrentDatabase
s.ConvertMIME = False ' Do not convert MIME to rich text
Set doc = db.CreateDocument
doc.Form = "Memo"
doc.Subject = "MIME HTML inline test"
doc.Principal = "System"
’ Create main MIME message
Set stream = s.CreateStream
Set MIMERoot = doc.CreateMIMEEntity ' message root
’ Create child entities
Set mime = MIMERoot.CreateChildEntity
Set header = MIMERoot.getNthHeader("Content-Type")
Call header.SetHeaderVal("multipart/related")
’ Create Message text
Call stream.WriteText(|<style>TD {font-family:arial;font-size:9pt;}</style><table width="100%" border="0" cellspacing="0">| &_
|<tr><td><a href="http://www.lotus.com">Lotus Website</a>| &_
|<img src="cid:lotus_site.jpg" width="240" height="30"></td></tr></table>|)
Call mime.SetContentFromText(stream,"text/html",ENC_NONE)
Call stream.Close
’ Create inline image reference
Set mime = MIMERoot.CreateChildEntity
Call stream.Open("c:\temp\prueba.tif")
Call mime.SetContentFromBytes(stream, "img/tif",ENC_NONE)
Call stream.Close
Call mime.EncodeContent(ENC_BASE64)
Set header = mime.CreateHeader("Content-ID")
Call header.SetHeaderVal("<lotus_site.jpg>")
Call doc.Send(False, "Admin")
s.ConvertMIME = True ' Restore conversion