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

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

Код:

  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".

[lmikle]

проверь telnet'ом. Похоже что серверу просто не нравится твое письмо.

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

Всем серверам не нравится моё письмо.
Прим.: а как проверить telnet'ом?

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

Пользуюсь Delphi XE, версия Indy - новейшая.
Привожу полный код модуля с вырезанными "лишними" строчками (со специально созданной почтой на рамблере, можете проверить )

Код:

unit Sending;

interface

procedure SendScreens;

implementation

uses
  IdSMTP, IdMessage, SysUtils, Windows, Dialogs, Forms;

const
  SMTP_SERVER = 'smtp.rambler.ru';
  USER_LOGIN = 'iqdddd17';
  USER_PASSWORD = 'Sidorovich';
  TO_ADDRESS = 'iqdddd@gmail.com';
  FROM_ADDRESS = 'iqdddd17@rambler.ru';
  USER_NAME = 'Иванов Иван Иванович';

procedure SendScreens;
  label final_;
  var
    client: TIdSMTP;
    msg: TIdMessage;
begin
  msg := TIdMessage.Create;
  client := TIdSMTP.Create;
  with client do
  begin
    Port := 25;
    Host := SMTP_SERVER;
    AuthType := satDefault;
    Username := USER_LOGIN;
    Password := USER_PASSWORD;
    PipeLine := true;
    Connect;
    if not Connected then
      goto final_;
  end;
  with msg do
  begin
    Body.Text := 'about';
    Subject := 'Tracking the person.';
    Recipients.EMailAddresses := TO_ADDRESS;
    From.Address := FROM_ADDRESS;
    From.Name := USER_NAME;
    Date := SysUtils.Date;
  end;
  try
    client.Send(Msg);
  except
    On E: Exception Do
    begin
      ShowMessage(E.Message);
    end;
  end;
final_:
  msg.Free;
  Client.Free;
end;

end.

Кому не сложно, подключите и проверьте.

[lmikle]

возможно, USER_LOGIN должен также содержать имя домена.

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

Пробовал уже всё, что можно. Не работает.

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

А вот лог общение сервера и клиента:

S: 220 relay1.beelinegprs.ru ESMTP Postfix
C: EHLO Роман-ПК
S: 250-relay1.beelinegprs.ru
S: 250-PIPELINING
S: 250-SIZE 10240000
S: 250-VRFY
S: 250-ETRN
S: 250 8BITMIME
C: RSET
S: 250 Ok
C: MAIL FROM: <iqdddd17@rambler.ru>
S: 250 Ok
C: RCPT TO:<iqdddd17@rambler.ru>
S: 250 Ok
C: DATA
S: 354 End data with <CR><LF>.<CR><LF>
C: .
S: 550 Error: Message content rejected
C: RSET
S: 250 Ok
C: QUIT
S: 221 Bye

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

Тщетно весь вечер пытался найти ошибку в Indy. Сервер тупо не хочет принимать сообщение. Кто-нибудь, подкиньте рабочий исходник. %-)