ik probeer een html mail te versturen vanuit mijn programma.
ik werk sinds kort in lazarus(turbo delphi 2006 liet zich niet installeren op windows8) en moet nu op een andere manier gaan mailen dan met cdo.
ik dacht het gevonden te hebben met smtp via synapse maar het lukt niet helemaal.
ik krijg de mail binnen maar met heel veel header en dan pas de mail.
Code:
function Send_Mail(Username, Password, From, MailTo,CC,Subject, attachment,Server,Port : string ;bodytext, htmbodytext:tstrings): Boolean;
var part: TMimePart;
MM : TMimeMess;
data:tstringlist;
tmp: TMemoryStream;
Begin
data:=TStringList.Create;
data.Add('This is a text');
mm:=TMIMEMess.Create;
mm.header.from:=From;
mm.header.ToList.add(mailto);
mm.header.subject:=subject;
Part := mm.AddPartMultipart('Mixed', nil);
mm.AddPartText(bodytext, Part);
tmp := TMemoryStream.Create;
try
tmp.LoadFromFile('C:\attachment.zip');
mm.AddPartBinary(tmp, 'attachment.zip',part);
finally
tmp.Free;
end;
mm.EncodeMessage;
SendToEx(From,Mailto, 'Hey','smtp.gmail.com'+':'+port, MM.Lines, username,password);
MM.Free;
end;
help waar gaat t fout (behalve dat mijn kennis te kort schiet )
Bookmarks