Skip to content

Commit

Permalink
[smtp] utf8 body fixed
Browse files Browse the repository at this point in the history
  • Loading branch information
exilon committed Jul 8, 2020
1 parent 13e33d1 commit 5282330
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions Quick.SMTP.pas
Original file line number Diff line number Diff line change
@@ -1,13 +1,13 @@
{ ***************************************************************************
Copyright (c) 2016-2018 Kike Pérez
Copyright (c) 2016-2020 Kike Pérez
Unit : Quick.SMTP
Description : Send Emails
Author : Kike Pérez
Version : 1.4
Created : 12/10/2017
Modified : 28/11/2019
Modified : 07/07/2020
This file is part of QuickLib: https://github.com/exilon/QuickLib
Expand Down Expand Up @@ -212,6 +212,7 @@ function TSMTP.SendMail(aMail : TMailMessage) : Boolean;
begin
mBody := TIdText.Create(msg.MessageParts);
mBody.ContentType := 'text/html';
mBody.CharSet:= 'utf-8';
mBody.Body.Text := aMail.Body;
end;
//add attachements if exists
Expand Down

0 comments on commit 5282330

Please sign in to comment.