delphi - 强制显示电子邮件的空格(使用Delphi 7)

Question

目前，我们公司通过电子邮件将报告发送给使用等宽字体的客户。

例如

Source                                    Count    Male   Female
----------------------------------------------------------------
ABC      A Brand Name Company                  106     35     71
DEF      Default Earth Factories                 1      0      1
GHI      Greater Height Industries               1      0      1
JKL      Jo King Limited                         0      0      0

这些报告直接内置到存储在我们服务器中的.eml文件的主体中。

然后，我们的旧版Delphi 7程序会将其通过电子邮件发送给客户端，然后再通过Outlook接收并打开它，结果会出现锯齿状的文本。 （他们不想更改其Outlook设置以正确显示这些报告。）

procedure Report_Function(Sender: TObject);
var
  F: Textfile;
  filename: string;
begin
  filename := 'N:\Reports\' + LowerCase(fMainMenu.Org) + '.eml';
  AssignFile(F, filename);
  try
    Rewrite(F);
    Writeln(f, Nice(qrRegSum.qrlDescription.Caption, 36) + '  Count    Male   Female');
    Writeln(f, '------------------------------------------------------------');
    while (not dmReports.qSiteInfo.EOF) do  // Populate Report
    begin
      dmReports.qSiteInfo.Next;
    end;
  finally
    CloseFile(f);
  end;
  SendEmail(Filename, Subject);
end;

有没有一种方法可以强制电子邮件的等宽字体显示（使用Delphi 7）？

Answer 1

您需要使用HTML或RTF格式化电子邮件，然后才能在其中嵌入字体信息。如果将电子邮件格式设置为纯文本格式，则将无法完全控制其字体格式。