[Delphi]用IDSMTP發送郵件(正文和附件)

        最近公司的一个系统，需要通过邮件发送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';