Отправка сообщения на email по таймеру!

[poster123]

Помогите сделать код рабочим:

uses
  Windows, MMSystem,IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdAntiFreezeBase,
  IdAntiFreeze,  ExtCtrls;

 const
      TimeOut = 3*1000;//2*60*1000;  //Время срабатывания таймера, мс.
var
   mmTimer: integer;
   m:TIdMessage;
  mmResult: Integer;
  SMTP: TIdSMTP;

procedure mmTimerProc(TimerID,Msg: Uint; dwUser,dw1,dw2: DWORD); pascal;
begin
M := TIdMessage.Create(nil);
M.Body.Add('1 строка');
M.Body.Add('2 ');
M.From.Text:='........';
M.Recipients.Add;//
M.Recipients.Items[0].Text:='........';
M.Subject := '......';
SMTP.Host := '.....';;
SMTP.Port := .......;
SMTP.AuthenticationType:=atLogin;
SMTP.username:='......';
SMTP.password:='......';
SMTP.Connect();
if SMTP.Connected then
begin
SMTP.Send(M);
end;
SMTP.Disconnect;
end;

begin
      //включить таймер
  mmTimer:=TimeSetEvent(TimeOut,0,@mmTimerProc,0,TIME_PERIODIC);
  readln;
end.

Но если через Button1 отправка есть...
Но нужно без формы !

[rpy3uH]

возьми шаблон

program Project2;

uses
  Windows,Messages;

var
  TimerID: DWORD;
  Msg:TMsg;

procedure mmTimerProc(TimerID,Msg: Uint; dwUser,dw1,dw2: DWORD); stdcall;
begin
  MessageBox(0,'123','123',0);
  //
  //здесь твой код
  //
end;

begin
  TimerID:=SetTimer(0,0,1000,@mmTimerProc);

  While GetMessage(Msg,0,0,0) do
   begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
   end;
end.

[poster123]

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, MMSystem,IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdAntiFreezeBase,
  IdAntiFreeze,  ExtCtrls;

var
   mmTimer: integer;
   m:TIdMessage;
  mmResult: Integer;
  SMTP: TIdSMTP;
   TimerID: DWORD;
   Msg:TMsg;


//обработчик таймера
procedure mmTimerProc(TimerID,Msg: Uint; dwUser,dw1,dw2: DWORD); stdcall;
begin
 MessageBox(0,'123','123',0);
M := TIdMessage.Create(nil);
M.Body.Add('1 строка');
M.Body.Add('2 ');
M.From.Text:='p......';
M.Recipients.Add;//
M.Recipients.Items[0].Text:='........';
M.Subject := 'HEIL! >:)';
SMTP.Host := '.....';;
SMTP.Port := ......;
SMTP.AuthenticationType:=atLogin;
SMTP.username:='......';
SMTP.password:='......';
SMTP.Connect();
if SMTP.Connected then
begin
SMTP.Send(M);
end;
SMTP.Disconnect;
end;

begin
  TimerID:=SetTimer(0,0,1000,@mmTimerProc);

  While GetMessage(Msg,0,0,0) do
   begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
   end;
end.

Окно MessageBox появляется но на почту не приходит сообщение (((!
Что не так, может нужно динамически сделать SMTP? и другие...

[poster123]

Более менее я разобрался но вот как отправить предположим сообщение с файлом например атач с:/..../ text.txt только вмесло Text.txt нужно отправить все файлы txt, как это записать хелпаните плз...

[rpy3uH]

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

только вмесло Text.txt нужно отправить все файлы txt

какие "все файлы txt"?

[poster123]

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

какие "все файлы txt"?

Я имею ввиду отправку файла с расширением exe,log,txt не важно, просто если я не знаю его точное название и поэтому нужно отправить все файлы с разрешением txt или .log.... чтобы пришел вместе с 'мусорными' файлами тот который мне нужен...

К примеру

TIdAttachment.Create(M.MessageParts,'C:\Documents and Settings\......\и тут много txt файлов как их записать на отправку.... ');

[Пепел Феникса]

через поиск файлов с маской(на форуме есть)

[poster123]

спасибо rpy3uH,Пепел Феникса за помощь!