Update SendEmail.pas

Author: dliocode

src/SendEmail.pas

@@ -532,7 +532,10 @@ function TSendEmail.Connect: TSendEmail;
       begin
         LLastResult := Format('Last Result: %s', [FIdSMTP.LastCmdResult.FormattedReply.Text]);
 
-        if LLastResult.ToUpper.Contains('AUTHENTICATION SUCCEEDED') or LLastResult.Contains('250 OK') then
+        if
+          LLastResult.ToUpper.Contains('AUTHENTICATION SUCCEEDED') or
+          LLastResult.Contains('250 OK')
+        then
         begin
           Log(LLastResult, True);
 
@@ -603,7 +606,8 @@ function TSendEmail.Send(const ADisconnectAfterSending: Boolean = True): TSendEm
 
         if
           E.Message.ToUpper.Contains('CLOSING CONNECTION') or
-          E.Message.ToUpper.Contains('TOO MANY MESSAGES')
+          E.Message.ToUpper.Contains('TOO MANY MESSAGES') or
+          E.Message.ToUpper.Contains('CONNECTION CLOSED')
         then
         begin
           if FSendCountReconnect < FSendMaxReconnection then
@@ -758,6 +762,7 @@ procedure TSendEmail.Reconnect(AResend: Boolean = False);
 
   Disconnect;
   Connect;
+
   if AResend then
     Send;
 end;