Update Mail4Delphi.pas

juliosenha · Jan 19, 2024 · 8876dd6 · 8876dd6
1 parent dafc9e8
commit 8876dd6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Mail4Delphi.pas b/src/Mail4Delphi.pas
@@ -362,7 +362,8 @@ function TMail.SendMail: Boolean;
     LImplicitConnection := Self.Connect;
   try
     try
-      FIdMessage.MsgId := FMessageId;
+      if not FMessageId.Trim.IsEmpty then      
+        FIdMessage.MsgId := FMessageId;
       FIdSMTP.Send(FIdMessage);
       Result := True;
     except