[Сорокин_Роман]

Я уже запарился от тупости. Пытаюсь отправить сообщение так.

Код:

  msg := TIdMessage.Create;
  client := TIdSMTP.Create;
//  att := TIdAttachmentFile.Create(Msg.MessageParts, fName);
  with client do
  begin
    Port := 25;
    Host := SMTP_SERVER;
    AuthType := satDefault;
    Username := USER_NAME;
    Password := USER_PASSWORD;
    Connect;
  end;
  if client.Connected = false then
    goto final_;
  with msg do
  begin
    Subject := 'Tracking the person ' + Service.GetUserName + '.';
    Recipients.EMailAddresses := USER_ADDRESS;
    From.Address := FROM_ADDRESS;
    Body.Text := 'asdfdsh';
    Date := SysUtils.Date;
  end;
  try
    client.Send(Msg);
    good := true;
  except
    On E: Exception Do
    begin
      ShowMessage(E.Message);
      good := false;
    end;
  end

Но всегда выплывает "Error: Message content rejected".