hallo allemaal,
hoe kan ik het makkelijkst een html email versturen vanuit een appl. Ik gebuik OLE via outlook. maar het kan alleen met text. Als ik een html bestand in de body zet. alle afbeeldingen van de webpagina worden niet meegenomen.
Wie kan mij helpen??
thnx
hier is een stuk code:
Code:
var OutlookApp, MailItem, MyAttachments: OLEVariant;
try
OutlookApp := CreateOleObject('Outlook.Application');
except
ShowMessage('Outlook kan niet gestart worden!');
Exit;
end;
try
MailItem := OutlookApp.CreateItem(olMailItem);
MailItem.Recipients.Add('Timmermans.Shen@wanadoo.nl');
MailItem.Subject := ('Test nieuws brief');
stringlist := tStringlist.Create;
stringlist.LoadFromFile('c:\test.html');
MailItem.HTMLBody := stringlist.Text;
stringlist.Free;
MailItem.Send;
finally
myAttachments := VarNull;
OutlookApp := VarNull;
end;
Bookmarks