我使用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对话框 也就是既不显示“邮箱未找到”对话框，也不显示“其他原因”对话框 那些邮件也是没有发送成功的，可是没有错误原因？？ 请高手指点！ dsf

------
dsf

原本的程式碼只有攔截 550 的錯誤 沒攔其它的，改成如下試試:

  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('錯誤為 550 的其他原因！')
      else
        ShowMessage('非 550 的錯誤!');
    end;
  end;

-- 向 KTop 的弟兄們致敬!

谢谢你的回复，您的这中方法我试过，但是 ShowMessage('非 550 的錯誤!'); 这个对话框一直都没有出现过！ 也就是还有一些邮件发送失败了，但是没有触发 On E:Exception Do 异常 在 Exception 之外失败了，不属于 Exception 和 else Exception 范畴 。 我就不知道，那会是什么呢？ 谢谢，请高手指点！ dsf

------
dsf

還有，您只攔截 Send 這部份的錯誤 (也就是 try .. except 只包位 Send 這部份) 沒攔截 Connect 這部份 也許就是 Connect 時的 Exception    -- 向 KTop 的弟兄們致敬! 

谢谢hagar大哥！ 我再试试！ dsf

------
dsf

真的是连接失败的问题，谢谢您hagar大大！    

------
dsf

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.