如题
解决方案 »
- dbgridEH 。。中根据条件如何设置某一网格颜色 。。老是出错
- 数据格式化的SQL语句
- VB转Delphi的窗体控制问题
- 怎么发布IntraWeb程序?
- delphi控件操纵Excel时,奇怪的'被呼叫方拒绝接受呼叫'异常!!!!
- 这种切换页面的功能是如何实现的呢???(分少,见笑了,re者都有分!)
- ”应用程序“ 生成 ”安装软件“的问题————在线等待??!·!··
- 请问,如何将mdb数据库中的数据导入excel.
- 大家来谈谈企业开发三层分布式应用时,各工作组开发的远程数据模块RDM的合并问题
- 100分散尽求dxdbgrid的好朋友....欢迎交流....
- 一個dbgrid與edit關聯問題,
- 高分请教sql语句! 不够可再加分!!
smtp1.Username:='22222';
smtp1.Password :='2222';
smtp1.Host:='smtp.163.com';
smtp1.Port :=25;
smtp1.AuthenticationType:=atlogin;
try
smtp1.connect(1000);
except
showmessage('连接SMTP服务器失败!');
exit;
end;try
with msg do
begin
body.Clear;
body.Assign(memo1.Lines);
from.Address:=self.Edit1.Text ;
for i:=0 to self.ListBox1.Items.Count-1 do
begin recipients.EMailAddresses:=self.ListBox1.Items.Strings[i];//这样群发的代码对不对的,我发一个邮件是可以的,两个以上就错了????????? end;
end;
smtp1.Send(msg);
finally
showmessage('你的邮件已成功发送');
smtp1.Disconnect;