客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
在delphi2010中拖idsmtp和idmessage这俩个控件。就能够发送邮件了。 在buttonbtn1的click事件下写例如以下代码： 值得注意的是：1、你用哪个邮箱的server，在 IdSMTP1.Host:='smtp.qq.com'这都是有差别的。另外还需在所用的邮箱中设置账号里面开启SMTP服务。 发送邮件内容时，假设不指定IdMessage1.CharSet:='UTF-8';//，则发送内容中文显示为乱码。 var filename: string;begin //发送邮件主函数 try // IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvSSLv3; //IdSMTP1.IOHandler:= IdSSLIOHandlerSocket1; //差别在这儿哟 //IdSMTP1.AuthenticationType:=atLogin; //设置登陆类型 IdSMTP1.Username:='你的邮箱账号'; //设置登陆帐号 IdSMTP1.Password:='密码'; //设置登录password IdSMTP1.Host:='smtp.qq.com'; //设置SMTP地址 IdSMTP1.Port:=25; //设置port ,默认是25， //在你的qq邮箱中——设置——账户开启SMTP服务，否则报错 // if not idsmtp1.Connected then begin IdSMTP1.Connect; //開始连接server end; except Showmessage('连接失败,请重试!'); Exit; //连接失败 的话 退出该运行过程 end; IdMessage1.CharSet:='UTF-8';//j解决发送内容为中文乱码 IdMessage1.Body.Clear; //先清空上次发送的内容 IdMessage1.Subject:='Delphi邮件发送測试'; //设置邮件发送的标题 //IdMessage1.Body.add(edt1.Text); IdMessage1.Body.Text:= edt1.Text; //设置邮件发送的主体 // filename := 'C:\文件.txt'; //须要加入的附件文件 //TIdAttachment.Create(IdMessage1.MessageParts, filename); //加入附件 IdMessage1.From.Address:= '邮箱账号'; //设置邮件的发件人 也就是说该邮件来自什么地方 IdMessage1.From.Name := '逍遥'; IdMessage1.Recipients.EMailAddresses:= '[email protected]'; //收件人的地址 IdMessage1.CCList.EMailAddresses:='[email protected]';//抄送 // IdMessage1.BccList.EmailAddresses:='[email protected]'; //密送 // IdMessage1.Priority:=mpHighest; //邮件重要性 try idSMTP1.Authenticate; idSMTP1.Send(IdMessage1); Showmessage('发送成功!'); except Showmessage('邮件发送失败!'); end; end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论