各位前輩我試寫發郵件的程式 可是一直發生錯誤程式如下,為何無法Connect [code] NMSMTP1.Charset:='BIG5'; NMSMTP1.Host:='yahoo.com.tw'; NMSMTP1.UserID:='boss'; NMSMTP1.Connect;//程式錯再這一行 NMSMTP1.PostMessage.Subject:=Edit3.Text NMSMTP1.PostMessage.FromAddress:=Edit4.Text; NMSMTP1.PostMessage.ToAddress.Add(Edit5.Text); NMSMTP1.PostMessage.Attachments.AddStrings(ListBox1.Items); NMSMTP1.PostMessage.Body.Assign(Memo1.Lines); NMSMTP1.SendMail; ShowMessage('發送完畢！'); NMSMTP1.Disconnect; [code/]

您好: 我看Borland範例是這樣,您試試看哪邊漏掉了,像Port沒指定. procedure TForm1.Button1Click(Sender: TObject); begin NMSMTP1.Host := Edit1.Text; NMSMTP1.Port := StrToInt(Edit2.Text); NMSMTP1.UserID := Edit4.Text; NMSMTP1.Connect; end; procedure TForm1.Button6Click(Sender: TObject); begin NMSMTP1.PostMessage.FromAddress := Edit6.Text; NMSMTP1.PostMessage.FromName := Edit5.Text; NMSMTP1.PostMessage.Subject := Edit10.Text; NMSMTP1.PostMessage.ToAddress.Add(Edit7.Text); NMSMTP1.PostMessage.ToBlindCarbonCopy.Add(Edit9.Text); NMSMTP1.PostMessage.ToCarbonCopy.Add(Edit8.Text); NMSMTP1.PostMessage.Attachments.AddStrings(Listbox1.Items); NMSMTP1.PostMessage.Body.Assign(Memo1.Lines); NMSMTP1.SendMail; end;

應該是 NMSMTP1.Host := 'yahoo.com.tw'; 這行的問題 寄信主機應該不是 yahoo.com.tw 以小弟公司而言, 小弟公司的網路是中華電信的 ADSL 所以寫成 NMSMTP1.Host := 'msa.hinet.net'; 您那邊就依您那邊的狀況做調整試試.    -- 分擔可以輕省, 分享帶來喜樂!

關於這個小弟有個疑問， YAHOO的除非是付費才可以用軟體收信， 不過HINET的是可以， 不過我用TNMPOP3收信的信件內容是亂碼， 而收其他SEEDNET,學校信箱的信件內容都是正常 請問這是什麼回事呢？