|
#1
|
|||
|
|||
Что не так?
Собираю спамер вот сегодня решил проверить его работоспособность, но он гат почему то отказывается работать. Софтина пишет что сообщения отправлены а они не доходят до получателя.
Прога конечно сырая и калечная, но уже должна работать Вот сорец Код:
unit MSpamer; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, SakMsg, SakSMTP; type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; About1: TMenuItem; About2: TMenuItem; AdressN: TEdit; Label1: TLabel; Label2: TLabel; NameN: TEdit; Label3: TLabel; SubjectN: TEdit; Label4: TLabel; MessageN: TMemo; CheckBox1: TCheckBox; SMTPN: TEdit; Label5: TLabel; Label6: TLabel; PORTN: TEdit; Label7: TLabel; Label8: TLabel; Label9: TLabel; Load: TButton; LoadEDT: TEdit; Button2: TButton; Button3: TButton; ListBox1: TListBox; Button4: TButton; Button6: TButton; Button7: TButton; Button8: TButton; OpenDialog1: TOpenDialog; OpenDialog2: TOpenDialog; SakSMTP1: TSakSMTP; SakMsg1: TSakMsg; SakMsgList1: TSakMsgList; Label10: TLabel; XmailerN: TEdit; Memo1: TMemo; procedure LoadClick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure N6Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.LoadClick(Sender: TObject); var SpamCNT: TStringList; CountSPM : String; begin If OpenDialog1.Execute then LoadEDT.Text:=OpenDialog1.FileName; SpamCNT := TStringList.Create; SpamCNT.LoadFromFile(LoadEDT.Text); CountSPM := IntToStr (SpamCNT.Count); Label7.Caption:='Всего в списке: ' + CountSPM; Memo1.Lines.Add('Список Загружен'); end; procedure TForm1.Button2Click(Sender: TObject); begin If OpenDialog2.Execute then ListBox1.Items.Add(OpenDialog2.FileName); Memo1.Lines.Add('Аттач загружен'); end; procedure TForm1.Button3Click(Sender: TObject); begin ListBox1.Items.Delete(ListBox1.ItemIndex); end; procedure TForm1.Button4Click(Sender: TObject); var Spam:TStringList; I,B:Integer; begin Memo1.Lines.Add('Начало Отправки'); SakSmtp1.Host:=SMTPN.Text; SakSmtp1.Port:=PortN.Text; Memo1.Lines.Add('Подключение к SMTP'); SakMsg1.Date:=FormatDateTime('dddddd',now); SakMsg1.UserName:=NameN.Text; SakMsg1.From:=AdressN.Text; SakMsg1.XMailer:=XmailerN.Text; SakMsg1.Subject:=SubjectN.Text; SakMsg1.Text.Assign(MessageN.Lines); For I:=0 to ListBox1.Items.Count-1 do SakMsg1.AttachedFiles.Add(ListBox1.Items.Strings[i]); if Not sakSmtp1.SMTPError then begin Memo1.Lines.Add('SMTP Подключен Успешно!'); end; Spam:=TStringList.Create; Spam.LoadFromFile(LoadEDT.Text); try SakSmtp1.Connect; if Not sakSmtp1.SMTPError then begin For B:=0 to Spam.Count-1 do begin SakMsg1.SendTo:=Spam.Strings[b]; SakSmtp1.SendTheMessage(SakMsg1); Label7.Caption:='Отправлено: ' + IntToStr(b); end; end; finally end; SakSmtp1.Disconnect; ShowMessage('Отправка закончена'); Memo1.Lines.Add('Отправка закончена'); end; procedure TForm1.Button7Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.N6Click(Sender: TObject); begin Form1.Close; end; end. |
#2
|
||||
|
||||
КакбЭ, такие вещи на форуме запрещены, не?
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
||||
|
||||
Дело скорей всего в спам фильтрах сервера с которого ты отправляешь письма. Попробуй сделать перед отправкой каждого письма задержку секунд 30-40 и посмотри что будет.
|
#4
|
|||
|
|||
Да он даже одно письмо не отправляет
|
#5
|
||||
|
||||
Цитата:
Тема закрыта. |