Vanuit mijn applicatie kan ik mail versturen.
Hiervoor maak ik gebruik van de TIDMessage en TIdSMTP componenten
Hiermee kan ik vrij eenvoudig wat tekst en bijlages sturen.
Echter de gebruikers vinden het vervelend dat de email als plain text verstuurd wordt.
Graag zouden zij de body in HTML zien zodat ze bij een reply of een forward bepaalde regels kunnen highlighten e.d.
Voor de bodytekst gebruik ik een string waarbij ik met #13 steeds op een nieuwe regel begon.
Inmiddels maak ik gebruik van de TIdMessageBuilderHtml om een HTML email te maken.
Helaas wordt hierdoor de bodytekst achter elkaar geplakt (dus alles op 1 regel)
Graag zou ik dan in mijn email de volgende text zienCode:function TEmail.Send: boolean; var smtp: TIdSMTP; // IdSmtp.pas msg: TidMessage; i:integer; MB : TIdMessageBuilderHtml; begin msg := TidMessage.Create(nil); msg.From.Name := FName; msg.From.Address := FAddress; msg.Subject := FSubject; Msg.ContentType := 'multipart/mixed'; msg.Body.Clear; FBodyText := 'Dit is regel 1' + #13 'Dit moet op regel 2' +#13 'enz....'; MB := TIdMessageBuilderHtml.Create; try MB.Html.Text := FbodyText; MB.Attachments.Add(Fattachment); MB.FillMessage(msg); finally MB.Free; end; for i := 0 to FRecipients.Count-1 do msg.Recipients.Add.Address:=FRecipients[i]; for i := 0 to FCC.Count-1 do msg.CCList.Add.Address:=FCC[i]; smtp := TIdSMTP.Create(nil); try smtp.Host := 'xxxxxxxx.nl'; // IP Address of SMTP server smtp.Port := 25; //The default already is port 25 (the SMTP port) smtp.Connect; try smtp.Send(msg); result:=true; finally smtp.Disconnect; end; finally smtp.Free; end; msg.Free; end;
Dit is regel 1
Dit moet op regel 2
enz....
Helaas krijg ik steeds de volgende text terug
Dit is regel 1 Dit moet op regel 2 enz....
Hoe cenverteer ik mijn body tekst zodat ik meerdere regels zie
Bookmarks