如何在使用 ShellExecute 创建的电子邮件中包含换行符？答案

【问题标题】：How do I include line breaks in an e-mail message created with ShellExecute?如何在使用 ShellExecute 创建的电子邮件中包含换行符？
【发布时间】：2015-05-11 22:17:16
【问题描述】：

我可以使用 ShellExecute 成功发送电子邮件。收件人地址正确，发件人地址正确，主题正确。电子邮件的正文是正确的，除了根本没有换行符并且所有内容都显示为没有换行符的单个段落。我的默认电子邮件客户端是 Windows 8.1 邮件。

我的问题是，可以使用 ShellExecute 来保留换行符吗？我不希望直接通过 Indy 发送电子邮件。我需要做的就是向默认的电子邮件客户端发送一封电子邮件并正确格式化。

procedure TForm1.Email1Click(Sender: TObject);
var
  iGridTableItem: TcxCustomGridTableItem;
  iName, iDate, iEmail, iSubject, iBody, iParam: string;
begin
  iGridTableItem := cxGrid1DBTableView1.DataController.
    GetItemByFieldName('EMail');
  if iGridTableItem.EditValue <> null then
  iEmail := iGridTableItem.EditValue;
  iGridTableItem := cxGrid1DBTableView1.DataController.
    GetItemByFieldName('Name');
  if iGridTableItem.EditValue <> null then
  iName := iGridTableItem.EditValue;
  iGridTableItem := cxGrid1DBTableView1.DataController.
    GetItemByFieldName('Date');
  if iGridTableItem.EditValue <> null then
  iDate := DateToStr(iGridTableItem.EditValue);
  iSubject := 'ImageEn EBook';
  iBody := 'Dear Mr. ' + iName + ',' + sLineBreak + sLineBreak +
    'PayPal has advised me that you purchased xxxxx on ' + iDate +
    '.' + '  Thank-you for your purchase.' + sLineBreak + sLineBreak + 'You may ' +
    'download the xxx at' + sLineBreak +
    'http://www.xxxxx.xxx/xxx/EBook/xxx101.zip' + sLineBreak +
    'Best regards,' + sLineBreak  + 'William Miller' + sLineBreak  +
    'Adirondack Software and Graphics ' + sLineBreak  + 'Email: xxx@xxxxxxxx.xxx'
     iParam := 'mailto:' + iEmail + '?subject=' + iSubject + '&Body=' + iBody;
  ShellExecute(Form1.Handle, 'open', PChar(iParam), nil, nil, SW_SHOWNORMAL);
end;

【问题讨论】：

标签： delphi mailto delphi-xe7 shellexecute

【解决方案1】：

不同的邮件应用程序以不同的方式支持mailto 协议。并非所有应用程序都允许同时指定多个参数等。因此，使用mailto 发送电子邮件在不同的机器上会非常参差不齐。

话虽如此，您实际上是在调用一个 URL，只是一个具有 mailto: 协议方案的 URL。因此，您需要对保留字符进行 url 编码，例如空格和换行符。您可能不想使用 Indy 发送邮件，但您可以使用它来编码您的参数值，至少：

uses
  ..., IdURI;

iParam := 'mailto:' + iEmail + '?subject=' + TIdURI.ParamsEncode(iSubject) + '&Body=' + TIdURI.ParamsEncode(iBody);

【讨论】：