SMTP 如何接收服務器返回的每一個信息

Question

smtp發信過程中別人寫的程序能返回這些信息請問具體是如何實現的！            S: RCPT TO:<[email protected]>
       R: 250 OK

Answer 1

我就是不知道如何寫具體的代碼Subject := Trim(editSubject.Text);
      mesgmessage.Priority :=mphighest;
      with smtpSendMail do begin
      smtpsendmail.Username:= leftstr(editFrom.Text,pos('@',editfrom.Text)-1);
      smtpsendmail.Password := edit1.Text;
      Connect(editSMTPServer.Text,25);
      
比如在這里要如何寫才能輸出
       S: RCPT TO: <[email protected]> 
      R: 250 OK 
像這樣子的內容我有用(indy10)TIDSMTP 的ONstatus但只能輸出
connecting to xx.xx.xx.xx
connected
Encoding text
接著是斷開中
斷開

Answer 2

在Indy Intercepts标签里有
可以记录日志的相关控件
IdlogStream, IdLogFile等
可以记录到每个接收的数据流

Answer 3

請問你知道如何直接讓其交互的結果輸出到TMEMO中讓我邊發邊查到這些結果嗎？

Answer 4

用
try
  idsmtp.send(..);
except
  on e: exception do
   memo1.lines.add(e.message);
end;捕获一下异常,没有异常就说明发送成功
有异常就显示到memo中

Answer 5

謝謝這個我明白，並且程序能完成發送，並能報告是未連接SMTP還是未通過驗證還是發送失敗我想知道具體交互過程的原因是  發現當用SMTP.mail.yahoo.com  SMTP發送郵件到雅虎郵箱時。收到的郵件頭上顯示來源於另一個SMTP地址。 我想了解它是不是在用我的程序發送時就已經通過SMTP.mail.yahoo.com連接后 。直接發送那個SMTP地址所以想清楚它們每一個交互動作的具體內容