var MonMail: _MailItem; begin ... MonMail.BodyFormat := olFormatHTML; MonMail.HTMLBody:= '<html><body>'+ '<p><img src="c:\temp\image1.png" alt="" align="absolute"/></p>'+ '<p><img src="c:\temp\image2.png" alt="" align="absolute"/></p>'+ '</body></html>'; MonMail.Save;//Sauvegarde brouillon ... end;@+
var MonMail: _MailItem; ContentID: variant; cid: string; begin ... MonMail.BodyFormat := olFormatHTML; ContentID := MonMail.Attachments.Add('c:\temp\image003.png', OlAttachmentType(olByValue), 0, 'image003.png'); cid := 'logo'; ContentID.PropertyAccessor.SetProperty('http://schemas.microsoft.com/mapi/proptag/0x3712001F', UTF8Encode(cid)); MonMail.HTMLBody:= '<html><body>'+ '<p><img src="c:\temp\image1.png" alt="" align="absolute"/></p>'+ '<p><img src="c:\temp\image2.png" alt="" align="absolute"/></p>'+ '<p><img src="cid:'+cid+'"/></p>'+ '</body></html>'; MonMail.Save;//Sauvegarde brouillon ... end;@+