A attar Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #1 急！！！ 小弟想编一个简单的电子邮件程序，只需要实现发送不带附件的邮件，因为对这块不熟，特来求助，请问需要那些控件，源码是什么？还望写写详细些，谢谢了！！！
H hots Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #2 d:/Borland/Delphi6/Demos/Indy/MailClient，有现成的例子
X xhw801124 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #3 C:/Borland/Delphi6/Demos/Indy/MailClient
L ljlljl-79 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #4 /Borland/Delphi6/Demos/Indy/MailClient 看一下例子吧
D dywapple Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #7 有现成的控件，只需要子集设置几个参数。 多看看帮助
A attar Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #9 这怎么错了？告诉我550 is not authorized（wrong sender mailaddr） procedure TForm1.btnSendClick(Sender: TObject); begin with IdMsgSend do begin Body.Assign(Membody.Lines); Recipients.EMailAddresses := edtsendTo.Text; { To: header } Subject := edtSubject.Text; { Subject: header } Sender.Text := '21@12';end; SmtpServerName:=edit1.Text; SmtpServerPort:=25; SMTP.Host := SmtpServerName; SMTP.Port := SmtpServerPort; SMTP.Connect; try SMTP.Send(IdMsgSend); finally SMTP.Disconnect; end; end;
这怎么错了？告诉我550 is not authorized（wrong sender mailaddr） procedure TForm1.btnSendClick(Sender: TObject); begin with IdMsgSend do begin Body.Assign(Membody.Lines); Recipients.EMailAddresses := edtsendTo.Text; { To: header } Subject := edtSubject.Text; { Subject: header } Sender.Text := '21@12';end; SmtpServerName:=edit1.Text; SmtpServerPort:=25; SMTP.Host := SmtpServerName; SMTP.Port := SmtpServerPort; SMTP.Connect; try SMTP.Send(IdMsgSend); finally SMTP.Disconnect; end; end;
