delphi indy smtp 发送邮件-木庄网络博客

本文整理自网络，侵删。

 delphi indy smtp 发送邮件

　　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;

delphi indy smtp 发送邮件

相关推荐

评论