0 Пользователей и 1 Гость просматривают эту тему.
1000 уведомлений на почту что моё сообщение не было доставлено
procedure TMainForm.SendButtonClick(Sender: TObject);vari: integer;beginIdSMTP.Host:=Host.Text;IdSMTP.Port:=StrToInt(Port.Text);IdSMTP.Username:=Login.Text;IdSMTP.Password:=Password.Text;IdMessage.From.Text:=EMail.Text;IdMessage.Subject:=Subject.Text;IdMessage.Recipients.EMailAddresses:=Who.Text;IdMessage.ContentType:='text/html; charset=windows-1251';IdMessage.ContentTransferEncoding:='8bit';IdMessage.Body.Assign(MessageMemo.Lines);SendButton.Visible:=False;ProgressBar.Visible:=True;ProgressBar.Max:=StrToInt(MessageCount.Text);try IdSMTP.Connect;except IdSMTP.Disconnect(); ProgressBar.Visible:=false; SendButton.Visible:=true; ShowMessage('Не удалось соеденится с сервером '+IdSMTP.Host+' :(');end;try try for i:=1 to StrToInt(MessageCount.Text) do begin IdSMTP.Send(IdMessage); ProgressBar.Position:=i; end; except IdSMTP.Disconnect(); ProgressBar.Visible:=false; SendButton.Visible:=true; ShowMessage('Неудача :('); end;finally IdSMTP.Disconnect(); ProgressBar.Visible:=false; SendButton.Visible:=true; ShowMessage('Успешно отправлено! :)');end;if IdSMTP.Connected=true then IdSMTP.Disconnect;end;
Есть ICQ флудер, в курсе?
руки дойдут - свой напишу