NMSMTP 一直出現 503 No recipient(s) |
缺席
|
cih11585
一般會員 發表:1 回覆:0 積分:0 註冊:2003-01-04 發送簡訊給我 |
大家好
我用DELPHI 5 寫了一段自動發MAIL的程式, 都有指定收件者 但都一直出現"503 No recipient(s)"訊息 不知道是哪邊出了問題?? 以下是我的SOURCE CODE mToAddressList:=TStringList.Create; try NMSMTP1.Host:=edMailHost.text; NMSMTP1.UserID:=edMailUser.text; if NMSMTP1.Connected then begin NMSMTP1.Disconnect; end; NMSMTP1.Connect; txtUserName := edMailUser.text; txtPassword := edMailPwd.text; {對用戶名和密碼進行Base64編碼} strUserName:=EncodeString(txtUserName); strPassword:=EncodeString(txtPassword); {進行認證,輸入編碼後的用戶名、密碼} NMSMTP1.Transaction('auth login'); NMSMTP1.Transaction(strUserName); NMSMTP1.Transaction(strPassword); NMSMTP1.PostMessage.FromAddress:=edSendMail.text; //發件人的郵件地址 NMSMTP1.PostMessage.FromName:=edMailUser.text; NMSMTP1.PostMessage.Subject:='郵件發送測試'; //郵件主題 // try while mTryMailList<>'' do begin mToAddressList.Add(CutToken(mTryMailList,';')); end; NMSmtp1.PostMessage.ToAddress:=mToAddressList; Finally mToAddressList.Free; end; // NMSMTP1.PostMessage.Body.Add('郵件發送測試!!'); //郵件的正文 NMSMTP1.SendMail(); //發送郵件 NMSMTP1.Disconnect(); //斷開連接 Showmessage('發送完畢!'); except Showmessage('傳送錯誤!!請檢查輸入的資料或確認帳號密碼是否有誤!!'); end; 請各位先進幫小弟看看 謝謝 |
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |