Злой Яндекс, Или Проблемы Отправки E-mail.

[SH8DER]

Всем привет, есть два небольших вопроса. Начнём с кода.

1. Если я пытаюсь объявить indy компоненты вручную, что типа
   

     SMTP: TIdSMTP;
     MSG: TIdMessage;
     OpenSSL: TIdSSLIOHandlerSocketOpenSSL;

   то Delphi ругается на классы, ссылаясь на то что неизвестный идентификатор, если же бросить эти компоненты на форму визуально, всё будет ок, и так же если объявить вручную, а потом бросить компоненты на форму, скомпилировать и удалить визуальные компоненты, то форма с объявленными компонентами запустится. Вопрос, в чем проблема? Как решить?
2. Перейдём к Яндексу, сообщение в принципе отправляется, но... мне приходит ответ на английском о том что моё сообщение заблокировано как спам! Отправку сообщения делал сначала по видео-уроку хозяина форума, а потом по новым статьям (ибо старые уже не достоверны) результат везде один и тот же, спам! Как решается такое?
   PS: Спама там не было не какого, пытался отправлять даже осмысленные тексты с осмысленными заголовками, и да, с Mail.ru всё работает без проблем!

Надеюсь на ответ, спасибо за прочтение!

 

[Lomanu4]

1. Нужно создавать классы,то есть добовляем в юзес и далее объявляем переменные типовых классов то есть ,
Var
Internet : tantp
Begin
Internet:=создаем .
2. Скинь код,то так не поймешь

 

[SH8DER]

1. Нужно создавать классы,то есть добовляем в юзес и далее объявляем переменные типовых классов то есть ,
Var
Internet : tantp
Begin
Internet:=создаем .
2. Скинь код,то так не поймешь

В USES ведь подключаются модули. Я тоже подумал об этом, и решил проверить. Я кинул на форму визуальные indy компоненты и в USES они не чего не написали, как работают не понять. Сейчас у меня всё работает. (Сделал так как описывал в ТС) отправляю пока на mail.tu smtp!

procedure TfrMain.BitBtn6Click(Sender: TObject);
var
  Marks4Email: TStringList; // Список оценок
  i: Integer;
  SMTP: TIdSMTP;
  MSG: TIdMessage;
  OpenSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  DBmod.MarksTable.Filtered := False;
  DBmod.MarksTable.Filter := 'FIO LIKE ' + #39 + DBmod.MarksTable.FieldByName
    ('FIO').AsString + '%' + #39;
  DBmod.MarksTable.Filtered := True;

  Marks4Email := TStringList.Create;
  for i := 0 to DBmod.MarksTable.RecordCount - 1 do
  begin
    Marks4Email.Add(DBmod.MarksTable.FieldByName('FIO').AsString + ' : ' +
      DBmod.MarksTable.FieldByName('SubjectLookup').AsString + ' - ' +
      DBmod.MarksTable.FieldByName('Mark').AsString + ' ' + #124 + ' Дата: ' +
      DBmod.MarksTable.FieldByName('DateMark').AsString + '<br>');
    // Добавляем HTML тэг BR для разрыва строк в письме
    DBmod.MarksTable.Next;
  end;
  Marks4Email.Add('<hr>' + '<i style="font-size: 12px;">' +
    'С уважением, робот для отправки ваших оценок!' + '</i>' + '<br>' +
    '<i style="font-size: 11px;">' + 'По всем вопросам писать на E-mail: ' +
    'electronic.gradebook@mail.ru' + '</i>');

  SMTP := TIdSMTP.Create(Application);
  SMTP.Host := 'smtp.mail.ru';
  SMTP.Port := 465;
  SMTP.AuthType := satDefault;
  SMTP.Username := 'electronic.gradebook@mail.ru';
  SMTP.Password := 'тут пароль';

  OpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
OpenSSL.Destination := SMTP.Host + ':' + IntToStr(SMTP.Port);
  OpenSSL.Host := SMTP.Host;
  OpenSSL.Port := SMTP.Port;
  OpenSSL.DefaultPort := 0;
  OpenSSL.SSLOptions.Method := sslvSSLv23;
  OpenSSL.SSLOptions.Mode := sslmUnassigned;

  SMTP.IOHandler := OpenSSL;
  SMTP.UseTLS := utUseImplicitTLS;

  MSG := TIdMessage.Create(Application);
  with MSG do
  begin
    ContentType := 'text/html; charset=windows-1251';
    Body.Text := Marks4Email.Text;
    Subject := 'Ваши оценки.';
    From.Address := 'electronic.gradebook@mail.ru';
    From.Name := 'Преподователь - ' + TeacherName4Email;
    Recipients.EMailAddresses := 'sh8der@mail.ru';
  end;

  SMTP.Connect;
  if SMTP.Connected then
  begin
    SMTP.Send(MSG);
    ShowMessage('Сообщение успешно отправлено');
  end
  else
    ShowMessage('Ошибка, сообщение не доставленно!');
  SMTP.Disconnect();
  SMTP.Free;
  MSG.Free;
  Marks4Email.Free;

  DBmod.MarksTable.Filtered := False;
end;

И да, чёт у тебя на форму вечно какие то ошибки выпадают, как минимум то что я создал 3 темы, а должен был одну! :)
PS - Сори, глянул сейчас, а uses всё таки появился целый ворох не знакомых мне классов! Остаётся вопрос со спамом в Яндексе

 

[Lomanu4]

Пробуйте отправить Текс без html ,если не попадет в спам значительно ошибка в html тег

 

[SH8DER]

Пробуйте отправить Текс без html ,если не попадет в спам значительно ошибка в html тег

В спам оно попадает и с обычным текстом. :(

 

[lok]

hackerсобирался, что-то подобное сделать