求发电子邮件的程序????? 有分 如题初学者 请大家帮忙 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 www.2ccc.comwww.delphiun.com都有的下 买一本<DELPHI串口通迅>回来看看,上面有现成的源程序.并且可直接使用. var T:Tstrings;begin T:=Tstringlist.Create; T.LoadFromFile('c:\a.txt'); if T.Count=0 then exit; idmessage1.Body.Assign(T); idmessage1.From.Address:='[email protected]'; idmessage1.Recipients.EMailAddresses:='[email protected]'; idmessage1.Subject:='title'; try idsmtp1.Connect(); idsmtp1.Send(idmessage1); finally idsmtp1.Disconnect; end;end;一个idsmtp1控件一个idmessage1控件 http://hubdog.csdn.net/Download/dlIndex.htm基于Indy的Email发送组件源码 [下载] 把idsmtp1控件的host属性设置一下比如我的这个程序是mail.citiz.net,username属性和,password属性 100分请教:如何通过进程的句柄得到进程中某一个窗体的操作句柄?谢谢! GetPixel的问题 急求一简单的SQL语句~谢谢。 100分求解UDP控件的奇怪问题,解决就给分。 如何查看TDBGRid数据有无改动 一个关于F7(单步跟踪)的问题 如何通过逆向工程学习编程技术? delphi有关控件间焦点转移问题 老,难问题,如何得到拨号上网用户的Dns,注册表中找不到. 如何关闭这样的form? 将程序加入启动 哪里有DELPHI中文帮助?
www.delphiun.com
都有的下
begin
T:=Tstringlist.Create;
T.LoadFromFile('c:\a.txt');
if T.Count=0 then exit;
idmessage1.Body.Assign(T);
idmessage1.From.Address:='[email protected]';
idmessage1.Recipients.EMailAddresses:='[email protected]';
idmessage1.Subject:='title';
try
idsmtp1.Connect();
idsmtp1.Send(idmessage1);
finally
idsmtp1.Disconnect;
end;
end;一个idsmtp1控件一个idmessage1控件