Merge pull request #7 from viniciussanchez/master

Added ClearBody function
juliosenha · Nov 5, 2020 · 3df7ec9 · 3df7ec9
2 parents 38e79ef + 797a78c
commit 3df7ec9
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
@@ -13,6 +13,7 @@ interface
     function AddCC(const AMail: string; const AName: string = ''): IMail;
     function AddBCC(const AMail: string; const AName: string = ''): IMail;
     function AddBody(const ABody: string): IMail;
+    function ClearBody: IMail;
     function Host(const AHost: string): IMail;
     function UserName(const AUserName: string): IMail;
     function Password(const APassword: string): IMail;

diff --git a/src/Mail4Delphi.pas b/src/Mail4Delphi.pas
@@ -43,6 +43,7 @@   TMail = class(TInterfacedObject, IMail)
     function AddCC(const AMail: string; const AName: string = ''): IMail;
     function AddBCC(const AMail: string; const AName: string = ''): IMail;
     function AddBody(const ABody: string): IMail;
+    function ClearBody: IMail;
     function Host(const AHost: string): IMail;
     function UserName(const AUserName: string): IMail;
     function Password(const APassword: string): IMail;
@@ -172,6 +173,12 @@ function TMail.Clear: IMail;
   Result := Self;
 end;
 
+function TMail.ClearBody: IMail;
+begin
+  FIdText.Body.Clear;
+  Result := Self;
+end;
+
 function TMail.ContentType(const AValue: string): IMail;
 begin
   FIdText.ContentType := AValue;