fpiette
error in procedure THtmlSmtpCli.PrepareEMail;
if you want to send an htmlemail (after sending an mail with attachments) then it goed wrong in here. the inherited is not called,.... So the FMimeBoundary is not cleared and gives unreadable mailoutput
procedure THtmlSmtpCli.PrepareEMail;
begin
if FContentType = smtpPlainText then begin
// FLineOffset was not reset properly after a mail with {AG 07/11/07}
// attachment has been sent and current mail had no attachment.
// To be sure initialize FLineOffset to zero.
FLineOffset := 0;
{ Strange but the user ask to send plain text message }
{ V8.71 JK, FPlainText now stored in FMailMessage }
FMailMsgText.SetText(FMailMessage.Text, FCodePage, FIsMultiByteCP, ConvertToCharset, DefaultEncoding,
FAllow8BitChars, FWrapMessageText, FWrapMsgMaxLineLen);
inherited PrepareEMail;
end;
{ Nothing to do here }
end;
