在delphi中通过带附件的邮件枪发送邮件

uses
  IdSMTP, IdMessage, IdAttachment, IdSSLOpenSSL;

procedure SendEmailWithAttachment;
var
  SMTP: TIdSMTP;
  Msg: TIdMessage;
  Attachment: TIdAttachment;
begin
  SMTP := TIdSMTP.Create(nil);
  Msg := TIdMessage.Create(nil);

  try
    // 设置SMTP服务器的地址和端口号
    SMTP.Host := 'smtp.qq.com';
    SMTP.Port := 465;
    // 启用SSL加密
    SMTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

    // 设置邮件信息
    Msg.From.Address := 'sender@example.com';
    Msg.Recipients.Add.Address := 'recipient@example.com';
    Msg.Subject := '邮件主题';
    Msg.Body.Text := '这是一封带附件的邮件';

    // 添加附件
    Attachment := TIdAttachment.Create(Msg.MessageParts, 'path_to_attachment_file');
    Attachment.ContentType := 'application/octet-stream'; // 设置附件的MIME类型

    // 连接到邮件服务器并发送邮件
    SMTP.Connect;
    try
      SMTP.Authenticate('your_username', 'your_password'); // 使用你的邮箱账号和密码进行身份验证
      SMTP.Send(Msg);
    finally
      SMTP.Disconnect;
    end;
  finally
    Attachment.Free;
    Msg.Free;
    SMTP.Free;
  end;
end;