if idsmtp1.Connected then
idsmtp1.Disconnect;
idsmtp1.host:='smtp.sina.com.cn;//smtp服务器地址
idsmtp1.port:=25;
idsmtp1.UserId:='AAA';
idsmtp1.Password:='AAA';
try
idsmtp1.Connect;
except
end;
if not idsmtp1.Authenticate then ShowMessage('验证失败!');
idsmtp1.Disconnect;
idsmtp1.host:='smtp.sina.com.cn;//smtp服务器地址
idsmtp1.port:=25;
idsmtp1.UserId:='AAA';
idsmtp1.Password:='AAA';
try
idsmtp1.Connect;
except
end;
if not idsmtp1.Authenticate then ShowMessage('验证失败!');
解决方案 »
- 如何判断CHECKBOX已选,并插入数据库中?
- 如何仿QQ添加表情,发送时,只是发送代表图片的字符串? 发个贴,碰碰运气。。。。
- 如何获取一个目录下所有文件的名字?取到名字后放到文本文件或数据库中
- Access violation搞得我晕头转向,帮帮我吧!我请他到我们这儿五台山旅游免费导游、请客!
- 请问有没有简单的办法去除DBGrid中字符串类型字段的空格?
- 请问:东方网页王的树是用什么控件做的?分隔栏上有个金属质感的箭头,点击后可以隐藏和显示树
- 怎样在程序之间传参数?
- 用过borland的porodox的大侠救我!
- delphi 中treeview问题请教
- 寻找控件,有没有这样的控件,能显示出数据表的字段,每个字段后面还有一个编辑框!!!
- 怎么作才可以让我的程序接受其它程序的调用,并可以接受参数,另外对参数的类型和大小有没有限制
- 在程序中怎样在创建Access表中添加默认值。。
idsmtp1.AuthenticationType := atLogin;