在delphi中发送包含rtf文本的电子邮件

uses
  IdSMTP, IdMessage, IdText, IdAttachmentFile, ComCtrls;

procedure SendEmailWithRTF;
var
  SMTP: TIdSMTP;
  Msg: TIdMessage;
  TextPart: TIdText;
  Attachment: TIdAttachmentFile;
  RichEdit: TRichEdit;
begin
  // 创建SMTP组件
  SMTP := TIdSMTP.Create(nil);
  try
    // 设置SMTP服务器地址和端口号
    SMTP.Host := 'smtp.example.com';
    SMTP.Port := 25;

    // 创建邮件消息
    Msg := TIdMessage.Create(nil);
    try
      // 设置发件人邮箱和收件人邮箱
      Msg.From.Address := 'sender@example.com';
      Msg.Recipients.Add.Address := 'recipient@example.com';

      // 创建文本部分
      TextPart := TIdText.Create(Msg.MessageParts);
      TextPart.ContentType := 'text/plain';
      TextPart.Body.Text := 'This is the plain text part of the email.';

      // 创建RTF部分
      RichEdit := TRichEdit.Create(nil);
      try
        RichEdit.PlainText := False;
        RichEdit.Lines.LoadFromFile('path/to/rtf/file.rtf');

        Attachment := TIdAttachmentFile.Create(Msg.MessageParts, 'path/to/rtf/file.rtf');
        Attachment.ContentType := 'application/rtf';
        Attachment.FileName := 'file.rtf';
        Attachment.ContentDisposition := 'attachment';

        // 将RTF文本添加到附件
        Attachment.LoadFromFile('path/to/rtf/file.rtf');
      finally
        RichEdit.Free;
      end;

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