1 111111 Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-01 #1 如何通过delphi编程发送电子邮件?最好有源程序.
C c2008 Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-01 #2 delphi的demo目录中有indy控件系列的原代码，还不错
N Nathanxiao Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-01 #3 通过Windows API函数来完成！ 在uses子句中加入shellapi单元文件 在Label_Email(caption=邮件地址)的onclicks事件中加入如下代码： shellExecute(handle, 'open',pchar('mailto:'+label_Email.caption),Nil,Nil,sw_shownormal); 如有问题，EMAIL TO：nathanxiao@163.com
通过Windows API函数来完成！ 在uses子句中加入shellapi单元文件 在Label_Email(caption=邮件地址)的onclicks事件中加入如下代码： shellExecute(handle, 'open',pchar('mailto:'+label_Email.caption),Nil,Nil,sw_shownormal); 如有问题，EMAIL TO：nathanxiao@163.com
C coolbaby Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-01 #4 indy,ics或者fastnet都可以 通过socket直接写也可以
L laoli Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-03 #8 我有群发邮件[SendMail2000]的原代码（VB） 其实原理很简单。
5 52free Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-03 #10 mastering delphi6中的一个例程就是你的要求
L lkpc Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-04 #12 with IdMessage1 do begin Recipients.EMailAddresses :=mailbox; Subject :='test'; body.Text :='dddd'; from.Text:=mailbox; //抄送 CCList.EMailAddresses :=ccmailbox; end; TIdAttachment .Create(IdMessage1.MessageParts,fname); SMTP.AuthenticationType := atLogin; SMTP.UserID := SmtpServerUser; SMTP.Password :=SmtpServerPassword; SMTP.Host := SmtpServerName; SMTP.Port := SmtpServerPort; SMTP.Connect; try SMTP.Send(IdMessage1); finally begin SMTP.Disconnect; IdMessage1.MessageParts.Clear; end; 需要使用indy中的组件。
with IdMessage1 do begin Recipients.EMailAddresses :=mailbox; Subject :='test'; body.Text :='dddd'; from.Text:=mailbox; //抄送 CCList.EMailAddresses :=ccmailbox; end; TIdAttachment .Create(IdMessage1.MessageParts,fname); SMTP.AuthenticationType := atLogin; SMTP.UserID := SmtpServerUser; SMTP.Password :=SmtpServerPassword; SMTP.Host := SmtpServerName; SMTP.Port := SmtpServerPort; SMTP.Connect; try SMTP.Send(IdMessage1); finally begin SMTP.Disconnect; IdMessage1.MessageParts.Clear; end; 需要使用indy中的组件。
罗 罗西岛主 Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-04 #13 你有 SakEmail 吗？没有就去 http://sak.org.ar Down 一份来，很管用的。内部带有 Demo 和这个控件组的全部源代码。
罗 罗西岛主 Unregistered / Unconfirmed GUEST, unregistred user! 2003-08-04 #14 呵呵，Yahoo! 开放源停掉了，换个地方 Down 吧，或用 Google 搜一下。 http://download.pchome.net/development/delphi/848.html
