Update Mail4Delphi.pas

juliosenha · Mar 17, 2021 · 32a71ca · 32a71ca
1 parent 2b8da49
commit 32a71ca
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Mail4Delphi.pas b/src/Mail4Delphi.pas
@@ -332,6 +332,7 @@ function TMail.SendMail: Boolean;
 begin
   if not SetUpEmail then
     raise Exception.Create('Incomplete data!');
+  LImplicitConnection := False;  
   if not FIdSMTP.Connected then
     LImplicitConnection := Self.Connect;
   try