MM := TMimeMess.Create ;
textmeldung := TStringlist.Create;
textmeldung.add('Hallo Welt');
mm.header.from:=absender;
mm.header.ToList.add(empfaenger);
mm.header.subject:=betreff;
try
//multiparts (parent-parts)
MultiPartMix := MM.AddPartMultipart('mixed', nil);
MultiPartRel := MM.AddPartMultipart('related', MultiPartMix);
MultiPartAlt := MM.AddPartMultipart('alternative', MultiPartRel);
//plain text-part
MM.AddPartText(textmeldung, MultiPartAlt);
//
html-part
MM.AddPartHTMLFromFile('C:\temp\test1.html', MultiPartAlt);
//embedded images
MM.AddPartHTMLBinary(stream, 'testbild.jpg', 'testbild.jpg', MultiPartRel);
//encode message
MM.EncodeMessage;
try
SendToRAW(absender,empfaenger,'
smtp.xy.de',MM.Lines,'user','pw');
..
..