大家好
我用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;
請各位先進幫小弟看看
謝謝

將 NMSmtp1.PostMessage.ToAddress 值顯示出來看看

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！