From b1ff9337975fcf94c720960c01c87116942b508b Mon Sep 17 00:00:00 2001
From: Escritorio <danilo@plimtelecom.com.br>
Date: Wed, 30 Sep 2020 08:34:52 -0300
Subject: [PATCH 1/2] =?UTF-8?q?-=20Removido=20lowercase=20para=20usu=C3=A1?=
 =?UTF-8?q?rio,=20pois=20na=20amazon=20AWS=20(SES)=20n=C3=A3o=20se=20utili?=
 =?UTF-8?q?za=20e-mails=20mas=20sim=20logins=20aleat=C3=B3rios,=20contendo?=
 =?UTF-8?q?=20mai=C3=BAsculas=20e=20minusculas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 samples/src/view/View.Samples.dfm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/samples/src/view/View.Samples.dfm b/samples/src/view/View.Samples.dfm
index cd7134d..bf13884 100644
--- a/samples/src/view/View.Samples.dfm
+++ b/samples/src/view/View.Samples.dfm
@@ -153,7 +153,6 @@ object FrmSamples: TFrmSamples
       Top = 194
       Width = 269
       Height = 21
-      CharCase = ecLowerCase
       TabOrder = 6
     end
     object edtPassword: TEdit

From ab32977e251fa9d77ba61d74d53ad56ad4f252ab Mon Sep 17 00:00:00 2001
From: Escritorio <danilo@plimtelecom.com.br>
Date: Wed, 30 Sep 2020 08:43:51 -0300
Subject: [PATCH 2/2] - Permitir alterar o ContentType

---
 src/Mail4Delphi.Intf.pas | 1 +
 src/Mail4Delphi.pas      | 7 +++++++
 2 files changed, 8 insertions(+)

diff --git a/src/Mail4Delphi.Intf.pas b/src/Mail4Delphi.Intf.pas
index 1a72017..8960b6e 100644
--- a/src/Mail4Delphi.Intf.pas
+++ b/src/Mail4Delphi.Intf.pas
@@ -20,6 +20,7 @@ interface
     function AddAttachment(const AFile: string): IMail;
     function Auth(const AValue: Boolean): IMail;
     function SSL(const AValue: Boolean): IMail;
+    function ContentType(const AValue: string): IMail;
     function Clear: IMail;
     function SendMail: Boolean;
     function SetUpEmail: Boolean;
diff --git a/src/Mail4Delphi.pas b/src/Mail4Delphi.pas
index 3ccc62e..0dd635c 100644
--- a/src/Mail4Delphi.pas
+++ b/src/Mail4Delphi.pas
@@ -42,6 +42,7 @@   TMail = class(TInterfacedObject, IMail)
     function AddAttachment(const AFile: string): IMail;
     function Auth(const AValue: Boolean): IMail;
     function SSL(const AValue: Boolean): IMail;
+    function ContentType(const AValue: string): IMail;
     function Clear: IMail;
     function SendMail: Boolean;
     class function New: IMail;
@@ -162,6 +163,12 @@ function TMail.Clear: IMail;
   Result := Self;
 end;
 
+function TMail.ContentType(const AValue: string): IMail;
+begin
+  FIdText.ContentType := AValue;
+  Result := Self;
+end;
+
 constructor TMail.Create;
 begin
   FIdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(nil);