Email mit HTML Code mit Indys verschicken

[Chrissi91]

Hi ,

ich verschicke eine Email mit idSMTP. Es funktioniert auch alles wunderbar. Wenn ich jetzt aber in das Eingabefeld (TMemo) HTML Codes eingebe, sollen diese später auch in meiner Mailbox angezeigt werden und nicht als reinen Quellcode (wie im Memo, so wie ich ihn eingebe).

Falls es erforderlich ist, habe ich den Quellcode euch gegeben.

Ich hoffe ihr könnt mir helfen.

Delphi-Quellcode:

procedure TfrmMain.btnSendClick(Sender: TObject);
begin
  with IdMsgSend do
    begin
      Body.Assign(MmoNachricht.Lines);
      From.Text := Username;
      ReplyTo.EMailAddresses := Username;
      Recipients.EMailAddresses := edtTo.Text;
      Subject := edtSubject.Text;
      Priority := TIdMessagePriority(cboPriority.ItemIndex);
      CCList.EMailAddresses := edtCC.Text;
      BccList.EMailAddresses := edtBCC.Text;
      if chkReturnReciept.Checked then
        begin
          ReceiptRecipient.Text := From.Text;
        end
      else
        begin
          ReceiptRecipient.Text := '';
        end;
    end;

  SMTP.Username := Username;
  SMTP.Password := Passwort;
  SMTP.Host := Server;
  SMTP.Port := StrToInt(Port);
  SMTP.Connect;
  try
    SMTP.Send(IdMsgSend);
  finally
    SMTP.Disconnect;
  end;
end;