Как в компоненте memo сделать ...

[r9m]

проверяй что возвращает выражение idSMTP1.Connect; и от этого пляши

[KORN]

if idSMTP1.Connected then
log.add(login+' OK')
else
log.add(login+' Failed')

log это переменная tstrings;

[}{oт@бь)ч]

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  idSMTP1.Host :='smtp.mail.ru';
  idSMTP1.Port:=25; // Порт
  idSMTP1.AuthenticationType:=atLogin;
  for i:=0 to memo.count-1 do
  begin
    idSMTP1.Username:= copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
    idSMTP1.Password:= copy(memo1.lines.strings[i], pos(':', memo1.lines.strings[i])+1, length(memo1.lines.strings[i]));
    IdMessage1.Recipients.EMailAddresses := edit1.Text;
    IdMessage1.From.Text := copy(memo1.lines.strings[i], 1, pos(':', memo1.lines.strings[i])-1);
    IdMessage1.Subject := edit2.Text;
    IdMessage1.Body.Text := edit3.text;
    try
      try
        idSMTP1.Connect; 
        idSMTP1.Send(IdMessage1);
      except on E:Exception do
      begin
        form1.Caption:=E.Message;
      end;
   end;
   finally
     idSMTP1.Disconnect;
   end;
  end;
end.

Неподскажете в чом проблемма ошибку здесь выдает!
Красным пометил!

[KORN]

когда научимся думать, в конце концов7

memo.lines.count писать нужно, сам бы мог найти это

[}{oт@бь)ч]

Зделал все по коду!
Програма запустилась!
Но как только я нажал отправить она зависла через некоторое время выдало ошибку вот такую

Сообшение непришло!

[mihali4]

И что там, по-китайски написано?
МайлРу заблокировал вашу попытку рассылки спама.
В следующий раз отправит вашему провайдеру предложение о блокировании вас за спам...

[}{oт@бь)ч]

Какой спам я ввел один почтовый яшик и ввел яшик куда отправить!
Что это некак нельзя изменить?
Отправил сейчас с рамблера ошибки невыдало но и сообшение непришло!

Все исправил дело было в том что 25 порт блокировался!

[}{oт@бь)ч]

А теперь еше вопрос как зделать чтобы почтовый яшик отправил письмо 3 секунды подождал потом опять это же письмо отправил!
Понемаю что надо здесь переделать код но точно как незнаю!

    try
      try
        idSMTP1.Connect; 
        idSMTP1.Send(IdMessage1);
      except on E:Exception do
      begin
        form1.Caption:=E.Message;
      end;
   end;
   finally
     idSMTP1.Disconnect; я так думаю дисконект убрать и чтото за место него написать!
   end;
   end;
 end;
end.

[mihali4]

Вот например у меня 10 яшиков и нужно чтобы при нажатии на кнопку эти 10 яшиков введеные в форму memo таким образом
mail@mail.ru:12345
fhgf@mail.ru:5434534
yuyuy@mail.ru:546456
hohh@mail.ru:5645646
Отправляли на 1 почтовый яшик одно и тоже письмо!
Тоесть должно прити 10 писем с разных яшиков на 1 яшик!

Это и есть спам-бомбардировка...

[Бронислав]

Это Бронислав.Михаил вы мне вчера ответили на вопрос,а как с вами можно связаться?