以indy傳送mail失敗之問題... |
缺席
|
tanywei
一般會員 發表:2 回覆:3 積分:1 註冊:2003-11-04 發送簡訊給我 |
請教各位大大...
我使用indy元件來傳送mail
出現以下Error訊息
"Mail寄送失敗 張三 aaa@aaa.aaa.aaa5.0.0 Invalid domain name" 這個錯誤訊息有些User不會出現...有些User又會出現....
不知是哪部份的問題???? 以下是我以Indy寄Mail的Source ***************Source***************
with IdMessage1 do //Mail內容
begin
Clear; // 清除前一次產生的 body & headerm, 以免第二次按時重複
ContentType := 'text/html';
Body.Add('您好:
'); Body.Add(' ' vrMailBody1 ' '); //內容1 Body.Add(' ' vrMailBody2 ' '); //內容2 Body.Add(' ' vrMailBody3 ' '); //內容3 From.Text := vrSender; //寄件者(開單者的Mail) Recipients.EMailAddresses := vrReceiver; //收件者 CCList.EMailAddresses := vrCCMail; //副本 Subject :=vrMailTag; //標題 ReceiptRecipient.Text := ''; end; IdSMTP1.AuthenticationType := atNone; IdSMTP1.Host := '10.1.1.1'; IdSMTP1.Port := 25; //寄送 try IdSMTP1.Connect; try IdSMTP1.Send(IdMessage1); vrSuccessMail:=True; //判斷已經Mail成功 ShowMessage('E-Mail 已寄出' vrReceiver); finally IdSMTP1.Disconnect; end; except on e: exception do begin // vrSuccessMail:=False; //判斷Mail不成功 vrSuccessMail:=True; ShowMessage('Mail 寄送失敗:' vrReceiver e.Message); end; end; **************************Source end************************ |
tanywei
一般會員 發表:2 回覆:3 積分:1 註冊:2003-11-04 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |