Ik wil graag een E-mail versturen met daarin een image direct zichtbaar, dus niet als bijlage.
Wat moet ik aan onderstaande programmaregels veranderen om dit te bewerkstelligen?
Code:
MailItem1: TMailItem;
OutlookApplication1: TOutlookApplication;
OutlookApplication1.Connect;
MailItem1.ConnectTo(OutlookApplication1.CreateItem(olMailItem) as MailItem);
MailItem1.Display;
MailItem1.Recipients.Add('voorbeeld@mail.nl') ;
MailItem1.Subject:='Outlook Mail From Delphi';
MailItem1.Attachments.Add('D:\image001.jpg',olEmbeddeditem,'1','Logo');
MailItem1.HTMLBody:='<DIV align=center><IMG height=65 src="cid:Logo" width=339 align=left>Test HTML </DIV>';
OutlookApplication1.Disconnect;
Bookmarks