Update Mail4Delphi.pas

juliosenha · Nov 20, 2020 · 40a0dba · 40a0dba
1 parent 9e2de34
commit 40a0dba
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/Mail4Delphi.pas b/src/Mail4Delphi.pas
@@ -199,11 +199,19 @@ function TMail.Connect: Boolean;
     FIdMessage.ReceiptRecipient.Text := FIdMessage.From.Name + ' ' + FIdMessage.From.Address;
   try
     FIdSMTP.Connect;
+  except
+    on E: Exception do
+      raise Exception.Create('Erro na conexão: ' + E.Message);
+  end;
+  try
     FIdSMTP.Authenticate;
     Result := True;
   except
     on E: Exception do
-      raise Exception.Create('Erro na conexão ou autenticação: ' + E.Message);
+    begin
+      Self.Disconnect;
+      raise Exception.Create('Erro na autenticação: ' + E.Message);
+    end;
   end;
 end;