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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

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 - новейшая.
Привожу полный код модуля с вырезанными "лишними" строчками (со специально созданной почтой на рамблере, можете проверить )

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62

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. Сервер тупо не хочет принимать сообщение. Кто-нибудь, подкиньте рабочий исходник. %-)