реализовать поток писем. почтового клиента

[KWNlnc]

Доброго времени суток, уважаемые эксперты!

1. у меня общий сервер. с одним логином и паролем TIdMessage
2. клиенты разные. скажем (s := 123 или там 4567)
3. у сервера почтавик компонента TIdMessage

procedure TForm1.Button1Click(Sender: TObject);
var
attach : TIdAttachment;
msg : TIdMessage;
begin
IdSMTP1.AuthenticationType:= atLogin;
IdSMTP1.Username:='хххххххххххххх';//свое имя
IdSMTP1.Password:='хххххххххххххх;//свой пароль
IdSMTP1.Host:='хххххххххх';//адрес smtp-сервера пример - smtp.mail.ru
IdSMTP1.Port:=25;
msg:=TIdMessage.Create(nil);
msg.ContentType := 'text/html';
msg.CharSet :='windows-1251';
msg.Body.Text := 'Письмо';
msg.Subject:='Название'; 
msg.ContentType := 'text/html';
msg.CharSet :='windows-1251';
msg.Body.LoadFromFile('Путь к файлу который отправляем');
msg.From.Address:='хххххххххххххххх';//свой E-mail
msg.From.Name:='хххххххххххххххххх';//имя отправителя
msg.Recipients.EMailAddresses:='хххххххххххххххх';//адрес получателя 
msg.IsEncoded:=true;
//вложение:
attach:=TIdAttachment.Create(msg.MessageParts,'Путь к файлу который отправляем'); //например C:\arxiv.rar
IdSMTP1.Connect;
if IdSMTP1.Connected then
begin
IdSMTP1.Send(msg);
Showmessage('Письмо ушло');
end;
IdSMTP1.Disconnect;
attach.Free;
Form1.Close;
end;

здесь обратите внимание у почтавика

msg.Body.LoadFromFile('Путь к файлу который отправляем');

.

теперь вопрос. как реализовать поток писем. одного логина. т.е. почтовика. для разных s := 123 ...

скажем...

s:=123 выбрал C:\MyProg\log.txt и выбрал доставить MyMail@mail.ru

а..

s:=4567 выьрал C:\MyProg\unins.txt и выбрал MyProg@rambler.ru

и тут просто высылается. каждому свое. то что он выбрал и то кому он выбрал.

p.s. незабываем. server.exe один! а клиентов несколько от 1 до 1000...

[BARNEY]

Спам это плохо ..а теперь ещё и уголовно наказуемое деянии.

[KWNlnc]

BARNEY, это не спам.

[BARNEY]

в ini или тхт затолкай
типо

123/MyMail@mail.ru/C:\MyProg\log.txt
4567/MyProg@rambler.ru/C:\MyProg\unins.txt

и грузи куда нить и отправляй ... считывай значения по разделителям '/'

в ini можно проще... почитай найдёшь.. можешь и мини БД завести

[KWNlnc]

BARNEY, а более подроднее можно?

я вот попытался

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;

type
  TForm1 = class(TForm)
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  user: array[0..1000] of string; // это адресаты
  userfile: array[0..1000] of string; // это пути

implementation

{$R *.dfm}

procedure SendAttach(touser: string; attachfile: string);
var
attach : TIdAttachment;
msg : TIdMessage;
begin
Form1.IdSMTP1.AuthenticationType:= atLogin;
Form1.IdSMTP1.Port:=25;
msg:=TIdMessage.Create(nil);
msg.ContentType := 'text/html';
msg.CharSet :='windows-1251';
msg.Body.Text := 'Письмо';
msg.Subject:='Название'; 
msg.ContentType := 'text/html';
msg.CharSet :='windows-1251';
msg.Body.LoadFromFile('Путь к файлу который отправляем');
msg.From.Address:='kurtwagner@mail.ru';//свой E-mail
msg.From.Name:='хххххххххххххххххх';//имя отправителя
msg.Recipients.EMailAddresses:=touser;//адрес получателя !!!!!!!!!!!!!!!!
msg.IsEncoded:=true;
//вложение:
attach:=TIdAttachment.Create(msg.MessageParts, attachfile); //например C:\arxiv.rar !!!!!!!!!!!!!!!!
Form1.IdSMTP1.Connect;
if Form1.IdSMTP1.Connected then
begin
Form1.IdSMTP1.Send(msg);
Showmessage('Письмо ушло');
end;
Form1.IdSMTP1.Disconnect;
attach.Free;
Form1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 user[0] := Edit1.Text;
 userfile[0] := Edit2.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 for i: to 1000 do
begin
 SendAttach(user[i], file[i]);
end;
end;

end.

[BARNEY]

ну во первых надо заполнить массив из тхт или ini

 user: array[0..1000] of string; // это адресаты
  userfile: array[0..1000] of string; // это пути

как взять значение из ini или тхт на этом форуме полно поищите.

в цикле заполните массив потом Button1Click и всё