Mailversand mit Indy geht nur einmal

[Klaus01]

.. dann bohre mal Dein Exception handling auf:

Delphi-Quellcode:

 
 on e: EIdSMTPReplyError do 
   begin
    if e.EnhancedCode.Available then 
       begin
         ShowMessage(e.Message + #13#10 + '--' + #13#10 + e.EnhancedCode.ReplyAsStr);
       end 
    else 
      begin
        showMessage(e.Message);
      end;
   end;
 on e: Exception do
   begin
     showMessage(e.Message);
   end;

code von hier

Grüße
Klaus