delphi indy smtp 发送邮件

最新推荐文章于 2023-03-08 20:56:38 发布

aldsot0997

最新推荐文章于 2023-03-08 20:56:38 发布

阅读量214

点赞数

原文链接：http://www.cnblogs.com/yangxuming/p/6809776.html

版权

　　try
　　　　idsmtp2.Username := 'abc123@163.com'; //设置登陆帐号
　　　　idsmtp2.Password := 'abc123';// 设置登陆密码
　　　　idsmtp2.Host:='smtp.163.com';// 设置SMTP地址

　　　　if idsmtp2.Connected = False then
　　　　　　idsmtp2.Connect;
　　except
　　　　showmessage('连接失败,请重试!');
　　　　Exit; // 连接失败的话退出该执行过程
　　end;

　　idmsg1.Body.Clear; // 先清空上次发送的内容
　　idmsg1.CharSet :='GB2312'; // 不设置这个中文会乱码
　　idmsg1.Subject := 'inde insmtp 测试发送邮件'; // 设置邮件发送的标题
　　idmsg1.Body.Text := '测试下邮件发送的内容！！！！' ; //设置邮件发送的主题
　　idmsg1.From.Address := 'abc123@163.com'; //设置发件人
　　idmsg1.Recipients.EMailAddresses :='123abc@qq.com'; //设置收件人

　　try
　　　　idsmtp2.Send(idmsg1);
　　　　showmessage('邮件发送成功!');
　　except
　　　　showmessage('邮件发送失败!');
　　end;

转载于:https://www.cnblogs.com/yangxuming/p/6809776.html