最近公司的一个系统,需要通过邮件发送excel,原本用的控件是TNMSMTP,结果发现邮件的附件大小有限制,超过一定的大小到收件人那就变成乱码,于是用IDSMTP替代,发现可以解决这个问题。
1.添加两个控件
TIdSMTP和TIdMessage
2.代码
Type
SMTP: TIdSMTP;
MSG: TIdMessage;
procedure Send_Mail()
var
tStr: Tstrings;
begin
tStr := TStringList.Create;
tStr.add('Hello!This is a test file!');
SMTP.Host := '172.21.232.163';