[Admin]

Сообщение от Nothing

Собираю спамер вот сегодня решил проверить его работоспособность, но он гат почему то отказывается работать. Софтина пишет что сообщения отправлены а они не доходят до получателя.

Прога конечно сырая и калечная, но уже должна работать
Вот сорец

Код:

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.

Читаем правила форума!!!
Тема закрыта.