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.

zusammenfalten · markieren

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;

Email mit HTML Code mit Indys verschicken

Email mit HTML Code mit Indys verschicken

Forumregeln