delphi - 正在发送邮件但没有消息 ID

Question

当我使用 indy-10 的 tidMessage 组件发送邮件时，我收到来自客户邮件服务器的有趣拒绝，内容如下:

550 被拒绝:消息不包含消息 ID

即使使用 indy 自己的演示应用程序我也会得到这个

http://www.indyproject.org/DemoDownloads/Indy_10_MailClient.zip

我该怎么做才能解决这个问题。谢谢!

Answer 1

它适用于 Indy9，也许 10 中情况没有太大变化:

    procedure AddMsgID(AMsg: TIdMessage);
    var
      id: AnsiString;
    begin
      id := GenerateUniqueMsgID;
      AMsg.MsgId := id;
      AMsg.AddHeader('Message-ID=' + id);
      // AMsg.ExtraHeaders.Values['Message-ID'] := id;
    end; // AddMsgID