请教,如何用delphi编写可以发送网页样的邮件?
就是发送的邮件正文当中包含链接?
[解决办法]
可以,以HTML的格式发送就可以了。
[解决办法]
把发送的字符串组成HTML,然后发送出去。
[解决办法]
- Delphi(Pascal) code
begin IdSMTP1.Disconnect; IdSMTP1.Host := 'smtp.163.com'; IdSMTP1.Username := 'xxxx'; IdSMTP1.Password := 'xxxxxx'; IdSMTP1.AuthenticationType := atLogin; FIdMessage.From.Address := 'xxx@163.com'; FIdMessage.Recipients.EMailAddresses := 'xxx@sina.com'; FIdMessage.Body.Add('<a href="http://www.baidu.com/" target="_blank">百度</a>'); FIdMessage.CharSet := 'GB2312'; FIdMessage.ContentType:='text/html'; IdSMTP1.Connect; IdSMTP1.Authenticate; IdSMTP1.Send(FIdMessage);end;