procedure TForm1.SendMail(Host, Username, Password, Subj, Recip, From, Attach: string);
var
  M: TIdMessage;
begin
M:=TIdMessage.Create(Form1);
M.From.Text:=From;                // От кого
M.Recipients.Add;                  // Добавили получателя
M.Recipients.Items[0].Text:=Recip; // Получатель
M.Subject:=subj;                  // Тема
TIdAttachment.Create(M.MessageParts, Attach);  // Аттачмент
// Соединяемся

Memo1.Lines.Add('Соединение с сервером...');
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host:=Host;                        // Сервер
IdSMTP1.Username:=UserName;                // Логин
IdSMTP1.Password:=Password;                // Пароль
try
                                    // Пробуем соединиться
  IdSMTP1.Connect();
except
  Memo1.Lines.Add('Ошибка! Сервер не найден.');
  exit;
end;
// Пробуем отправить файл
try
if  IdSMTP1.Connected then begin
  Memo1.Lines.Add('Отправка файла...');
  IdSMTP1.Send(M);
  IdSMTP1.Disconnect;
  Memo1.Lines.Add('Файл успешно отправлен.');
  Button2.Enabled:=false;
  end;
except
  Memo1.Lines.Add('Ошибка соединения. Данные не отправлены.');
  IdSMTP1.Disconnect;
end;
end;

program Project2;

uses
Forms,
   IdMessage, IdSMTP;
// Если нет в палитре компонетов то
//        IdSMTP in 'Путь\до\IdSMTP.pas',
//           IdMessage in 'Путь\до\IdMessage.pas';
//
//
//
//

{$R *.res}
var
sender1: TIdSMTP;
att: TIdMessage;


begin
Application.Initialize;
Application.Run;
sender1:= TIdSMTP.Create(Application );
sender1.Host := 'smtp.list.ru';
sender1.Port :=25;
sender1.AuthenticationType := atLogin;
sender1.Username :='';//логин
sender1.Password :='';//пароль
try
sender1.Connect();
except
exit;
end;
if sender1.Connected then
begin
att:= TIdMessage.Create(Application );
att.From.Text :='';// от кого
att.Recipients.Add.Text :='';// кому
TIdAttachment.Create(att.MessageParts, 'c:\Web.log');
sender1.Send(att )
end;



end.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Idsmtp, IdMessageClient, IdSMTPBase;
var
   IdSMTP1: TIdSMTP;
   Msg: TIdMessage;
begin
     IdSMTP1.Port:=25;
     IdSMTP1.Host := 'smtp.mail.ru';
     IdSMTP1.Connect(5000);
     IdSMTP1.AuthType:=satDefault;
     IdSMTP1.Username:='iorka';
     IdSMTP1.Password:='300358';
      Msg.Subject:='тема сообщения';                     //текст темы сообщения
      Msg.Recipients.EMailAddresses:='bogdanwe@mail.ru';
      //указываем адрес получателя
      Msg.From.Adress:='delphi@mail.ru';          //указываем автора письма
      Msg.Body.Text:='текст сообщения';              //размещаем текст сообщения
      Msg.Date:=StrToDate('01.12.2004');//дата отправки письма может быть любой
   if IdSMTP1.Connected=True then IdSMTP1.Send(Msg);
end.

program Project2;

uses
forms,
  IdMessage,
  IdSMTP,SysUtils;

{$R *.res}
var
sender1: TIdSMTP;
att: TIdMessage;
f: TSearchRec;
begin
Application.Initialize;
Application.Run;
sender1:= TIdSMTP.Create(Application);
sender1.Host := 'smtp.list.ru';
sender1.Port :=25;
sender1.AuthenticationType := atLogin;
sender1.Username :='';
sender1.Password :='';
try
  sender1.Connect();
except
  exit;
end;
if sender1.Connected then
  begin
    att:= TIdMessage.Create(Application );
    att.From.Text :='';
    att.Recipients.Add.Text :='';
    FindFirst('c:\*.log',faAnyFile ,f);
      if F.name <> '' then
        begin
          TIdAttachment.Create(att.MessageParts, 'c:\'+f.Name );
        
             while FindNext(F) = 0 do
                begin
                    TIdAttachment.Create(att.MessageParts, 'c:\'+f.Name );
                    
                end;
                    FindClose(f);
  sender1.Send(att );
        end;

  end;



end.

program Project2;

uses
forms,
  IdMessage,
  IdSMTP,SysUtils;

{$R *.res}
var
sender1: TIdSMTP;
att: TIdMessage;
f: TSearchRec;
i: integer;
begin
Application.Initialize;
Application.Run;
sender1:= TIdSMTP.Create(Application);
sender1.Host := 'smtp.list.ru';
sender1.Port :=25;
sender1.AuthenticationType := atLogin;
sender1.Username :='';
sender1.Password :='';
try
  sender1.Connect();
except
  exit;
end;
if sender1.Connected then
  begin
    att:= TIdMessage.Create(Application );
    att.From.Text :='';
    att.Recipients.Add.Text :=';
    att.MessageParts.Create(Application);  
    FindFirst('c:\lg\*.log',faAnyFile ,f);
      if F.name <> '' then         begin
                   TIdAttachment.Create(att.MessageParts, 'c:\lg\'+f.Name );
              while FindNext(F) = 0 do
                begin
                    TIdAttachment.Create(att.MessageParts, 'c:\lg\'+f.Name );
                end;
              FindClose(f);
         sender1.Send(att)
        end;
  end;
end.