将TMemoryStream作为邮件附件发送

uses
  IdSMTP, IdMessage, IdSSLOpenSSL, IdAttachmentFile;

procedure SendEmailWithAttachment(const AttachmentData: TBytes; const AttachmentName, Subject, Body, FromAddress, ToAddress: string);
var
  SMTP: TIdSMTP;
  Message: TIdMessage;
  Attachment: TIdAttachmentMemory;
begin
  // 创建 SMTP 对象
  SMTP := TIdSMTP.Create(nil);
  try
    SMTP.Host := 'smtp.example.com'; // 替换为你的 SMTP 服务器地址
    SMTP.Port := 587; // 替换为你的 SMTP 端口
    SMTP.Username := 'your_username'; // 替换为你的 SMTP 用户名
    SMTP.Password := 'your_password'; // 替换为你的 SMTP 密码
    SMTP.UseTLS := utUseExplicitTLS;

    // 创建邮件消息对象
    Message := TIdMessage.Create(nil);
    try
      Message.From.Address := FromAddress;
      Message.Recipients.EMailAddresses := ToAddress;
      Message.Subject := Subject;
      Message.Body.Text := Body;

      // 创建内存附件对象
      Attachment := TIdAttachmentMemory.Create(Message.MessageParts, AttachmentName);
      try
        Attachment.LoadFromStream(TMemoryStream.Create(AttachmentData));
      except
        Attachment.Free;
        raise;
      end;

      // 发送邮件
      SMTP.Connect;
      try
        SMTP.Send(Message);
      finally
        SMTP.Disconnect;
      end;
    finally
      Message.Free;
    end;
  finally
    SMTP.Free;
  end;
end;

// 使用示例
var
  AttachmentData: TBytes;
begin
  // 假设你已经有一个 TMemoryStream 对象，并将其转换为 TBytes
  // AttachmentData := ...;

  SendEmailWithAttachment(AttachmentData, 'example.txt', 'Subject', 'Body', 'sender@example.com', 'recipient@example.com');
end;