diff --git a/Source/Base/Utiles/uEMailUtils.pas b/Source/Base/Utiles/uEMailUtils.pas
index 149e9cf1..dfae483a 100644
--- a/Source/Base/Utiles/uEMailUtils.pas
+++ b/Source/Base/Utiles/uEMailUtils.pas
@@ -145,7 +145,7 @@ begin
 
   if ErrorCode <> 0 then
   begin
-    MessageDlg('Error sending mail (' + IntToStr(ErrorCode) + ').', mtError, [mbOk], 0);
+    //MessageDlg('Error sending mail (' + IntToStr(ErrorCode) + ').', mtError, [mbOk], 0);
     Result := False;
   end
   else