[Delphi] Массовая рассылка почты
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
[Delphi] Массовая рассылка почты - 2010-07-30 12:06:18.416666
|
|
|
Reb00t365
Сообщений: 10
Оценки: 0
Присоединился: 2010-07-26 10:22:31.843333
|
Хай всем!!!
У меня тут такая проблемка с отправкой почты…
Предварительно выпихиваем на форму 5 едитов и одну кнопочку:)))
1ый edit - Имя получателя (Например если эмэил Fludder666@xaker.ru, то тогда имя Fludder666);
2ой edit - Конец:D:D:D адресса (Например если эмэил Fludder666@xaker.ru, то тогда конец это xaker.ru);
3ий edit - От кого (имя);
4ый edit - Количество сообщений;
5ый edit - Текст сообщений;
Также вытаскиваем и idSMPT c Indy Clients и idMessage c Indy Misk;
К томуже создаем и новый эмэил (напрмимер Fludder666@mаil.ru);
И обявляем переменные:
var
msg: tidmessage;
Kolvo, i: integer;
Emailto, Emailpre, Emailtext, Emailfrom: string;
Вод код:
procedure send;
begin
Emailto:=Form1.Edit1.Text; //Создаем всякие переменные для удобства
Emailpre:=Form1.Edit2.Text;
Emailtext:=Form1.Edit5.Text;
Emailfrom:=Form1.Edit3.Text;
Kolvo:=StrToint(Form1.Edit4.Text);
Form1.idSMTP1.AuthenticationType:= atLogin;
Form1.idSMTP1.Username:='fludder666';//например!!!;
Form1.idSMTP1.Password:='От этого ящика';
Form1.idSMTP1.Host:='smtp.mail.ru';
Form1.IdSMTP1.Port:=25;//Можно и сменить на другой...
msg:=TIdMessage.Create(nil);
msg.bоdу.Add('FluDDD');
msg.Subject:='FluDD';
msg.From.Address:='fludder666@mail.ru';//Полный адрес нового эмэила
msg.From.Name:='The Evil666';
msg.bоdу.Text:=Emailtext;
msg.Recipients.EMailAddresses:=Emailto + '@' + Emailpre;
msg.IsEncoded:=true;
Form1.idSMTP1.Connect();
begin
if Form1.idSMTP1.Connected then
Form1.idSMTP1.Send(msg);
Form1.IdSMTP1.Disconnect;
end
end;
procedure TForm1.оnclickButton1(Sender: TObject);
begin
showmessage('Flud начался... Нажмите ОК...');
for i := 0 to Kolvo do
Begin
send;
Label8.Caption := 'Отправленно: '+IntToStr(i)+' сообщений.';
end;
showmessage('Flud прошел успешно...');
end;
Но через несколько минут выводит на экран сообщение "Вы уже отправили слишком много сообщений на один адрес. Я не буду отправлять сообщения в течении 1 миуты (вот жлоб[&:](!))";
Как отправить 1000 сообщений если уже через 5~17 штук прога перестает это делать;
Помогите ПЛЗ)));
З.Ы Есле че то перезапуск компика (для особо умных) не помогает!!!!;:D
|
|
|
|
|
RE: [Delphi] Массовая рассылка почты - 2010-07-30 12:56:02.423333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Наверно, на сервере стоит защита от спама? :)
|
|
|
|
|
RE: [Delphi] Массовая рассылка почты - 2010-08-01 07:26:50.006666
|
|
|
CepbIu
Сообщений: 391
Оценки: 0
Присоединился: 2010-06-26 05:35:50.293333
|
а при чём тут перезапуск? если тебя просто тупо забанили?
самый простой выход - поднять у себя smtp сервер, или написать не сложный php скрипт и отправлять через него
|
|
|
|
|
RE: [Delphi] Массовая рассылка почты - 2010-08-02 12:57:59.510000
|
|
|
Reb00t365
Сообщений: 10
Оценки: 0
Присоединился: 2010-07-26 10:22:31.843333
|
Меня и не банят:)))
после перезапуска прога опять отправляет сообщения:)))
это делфи упрямится!!!
|
|
|
|
|
RE: [Delphi] Массовая рассылка почты - 2010-08-02 20:12:20.140000
|
|
|
MotoKiller
Сообщений: 1732
Оценки: 56
Присоединился: 2008-03-02 20:08:53.810000
|
Так в чем проблема между сообщениями сделать рандомный интервал 1-3 секунды? Хм, даже если и не поможет, то ковыряй сам компонент.
|
|
|
|
|
RE: [Delphi] Массовая рассылка почты - 2010-08-02 20:16:26.486666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Пересоздавай компонент динамически…
new / free кажись. Или как там в дэлфи? =)
|
|
|
|
|
RE: [Delphi] Массовая рассылка почты - 2010-08-03 17:32:52.826666
|
|
|
Zmaster
Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000
|
Каждые несколько сообщений убиваешь компонент и создаешь заново, инициализируя как и предыдущий. Правда это слегка извращение.
|
|
|
|
|
RE: [Delphi] Массовая рассылка почты - 2010-08-03 20:02:17.313333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Я разве не тоже самое написал? :)
|
|
|
|
|
RE: [Delphi] Массовая рассылка почты - 2010-08-06 16:42:56.483333
|
|
|
Zmaster
Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000
|
А, ну да :)
|
|
|
|
|
|
