强制电子邮件的单空间显示(使用Delphi 7)
目前,我们公司通过电子邮件向使用monospace字体构建的客户发送报告 前 报告直接构建到存储在服务器上的.eml文件体中 我们的传统Delphi 7程序然后通过电子邮件将其发送给客户,客户通过Outlook接收并打开它,结果会出现锯齿状文本。(他们不希望更改Outlook设置以正确显示这些报告。)强制电子邮件的单空间显示(使用Delphi 7),delphi,email,delphi-7,monospace,Delphi,Email,Delphi 7,Monospace,目前,我们公司通过电子邮件向使用monospace字体构建的客户发送报告 前 报告直接构建到存储在服务器上的.eml文件体中 我们的传统Delphi 7程序然后通过电子邮件将其发送给客户,客户通过Outlook接收并打开它,结果会出现锯齿状文本。(他们不希望更改Outlook设置以正确显示这些报告。) 是否有办法强制电子邮件的单空间字体显示(使用Delphi 7)?您需要使用HTML或RTF格式化电子邮件,然后可以在其中嵌入字体信息。如果将电子邮件格式化为纯文本,则会完全失去对其字体格式的控制
是否有办法强制电子邮件的单空间字体显示(使用Delphi 7)?您需要使用HTML或RTF格式化电子邮件,然后可以在其中嵌入字体信息。如果将电子邮件格式化为纯文本,则会完全失去对其字体格式的控制
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
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;