我使用idsmtp发送邮件时,需要捕获邮件发送失败原因 
代码如下
############################
          try
               try
                  Send(IdMsgSend); //发送邮件
                  SuccessSend := True;  //发送成功标志 成功
               finally
                  Disconnect; //断开服务器连接
               end;
           except            On E:Exception Do
              begin
               if Pos('550', E.Message ) > 0 then
                 
                   if Address<>'' then
                   begin
                     showmessage('邮箱未找到!');
                   end
                   
                 
               else 
                    showmessage('其他原因!')   
               end;############################当发送很多邮件的时候,就会有一些邮件不会弹出showmessage对话框
也就是既不显示“邮箱未找到”对话框,也不显示“其他原因”对话框
那些邮件也是没有发送成功的,可是没有错误原因??
请高手指点!