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;

推荐分享