- Permitir alterar o ContentType

juliosenha · Sep 30, 2020 · ab32977 · ab32977
1 parent b1ff933
commit ab32977
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git 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
@@ -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);