delphi - 通过XE2 delphi发送电子邮件时出错

Question

我正在使用这个简单的代码发送电子邮件，它适用于大多数 SMTP 服务器，但适用于使用 RFC 2554 中定义的 SMTP AUTH 扩展的服务器。它显示此错误:

错误:有效的 RCPT 命令必须在 DATA 之前

这是代码:

    SMTP.Host := 'host.com';
  SMTP.Port := 25;
  SMTP.Username:= 'user@host.com';
  SMTP.Password:= 'pass';
  MailMessages.From.Address:='address@address.com';
  MailMessages.From.Name:= 'Ehsan';
  MailMessages.Subject :=  'Test';
  MailMessages.Body.Text := 'the body is going to test';
  MailMessages.ReceiptRecipient.Address := 'ehsan.hesam13@gmail.com';

  try
    try
     SMTP.Connect;
     SMTP.Authenticate;
     SMTP.Send(MailMessages);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;
end;

如何在XE2中解决这个问题？谢谢

Answer 1

确保您填写了 TIdMessage.Recipients、TIdMessage.CCList 或 TIdMessage.BCCList 属性。这些是 TIdSMTP 获取其 SMTP RCPT TO 命令地址的属性。您无法在未指定收件人的情况下发送电子邮件。您只需填写 TIdMessage.ReceiptRecipient 属性，该属性仅用于指定收件人将已读回执发送到的返回地址(如果收件人支持已读收件人)。

此外，您不需要手动调用Authenticate()。 Send() 在需要时在内部为您调用它。