DELPHI XE10.3邮件发送与附件处理配置

DELPHI XE10.3 用起来挺方便的，是做邮件发送的时候。它通过TIdMessage和TIdSMTP组件，你可以轻松邮件内容、附件，甚至与不同的邮件服务商配合使用。比如，网易用 25 端口，QQ 邮箱则用 587 端口，连接时别忘了开启 TLS/SSL 加密哦。邮件内容、收件人、附件等都能在TIdMessage里轻松设置，而邮件发送的部分就交给TIdSMTP去搞定。至于 QQ 邮箱和网易的配置，记得分别填好 smtp 地址和端口。现代邮箱的安全设置需要你启用相关协议，才能正常发送。代码部分其实也蛮，只要掌握了基本的配置，就能完成发送邮件的功能，甚至能带附件。

procedure TForm1.SendMail;
  var
    IdMessage1: TIdMessage;
  begin
    IdMessage1 := TIdMessage.Create(nil);
    try
      IdMessage1.From.Address := 'your_email@example.com';
      IdMessage1.Receivers.Add('recipient@example.com');
      IdMessage1.Subject := '邮件主题';
      IdMessage1.Body.Text := '邮件正文';
      IdMessage1.Attachments.Add('C:\pathtoattachment.txt');
      IdSMTP1.Host := 'smtp.163.com';
      IdSMTP1.Port := 25;
      IdSMTP1.UseTLS := utUseExplicitTLS;
      IdSMTP1.Username := 'your_email@example.com';
      IdSMTP1.Password := 'your_password';
      IdSMTP1.Connect;
      IdSMTP1.Send(IdMessage1);
      IdSMTP1.Disconnect;
    finally
      IdMessage1.Free;
    end;
  end;