[garih5]

Помогите написать программу наподобие почтовой. На компьютере имеются два текстовых файла. Запускаем прогу, нажимаем кнопку и в фоновом режиме отравляются эти файлы на адрес заданном в программе. Перегуглил море информации, но так ничего толкового и не нашел. Заранее благодарен.

[NameX]

Код:

  //вкладка indy clients, ставишь на форму IdSMTP (ящик синий такой нарисован)
//вкладка indy misc, ставишь IdMessage
  IdMessage1.Body.Text:='Тело письма';
  IdMessage1.From.Text:='Заголовок от кого пришло письмо';
  IdMessage1.Recipients.Add.Text:='yachik@mail.ru'; //кому письмо
  IdMessage1.Subject:='Tema pisma';
//прикрепить файл:
  IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,'C:\virus.sys');
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Host:='smtp.mail.ru';
  IdSMTP1.Port:=2525;
  IdSMTP1.Username:='po4ta@po4ta.ru'; //здесь через какую почту отправлять
  IdSMTP1.Password:='password';//пароль
  IdSMTP1.Connect();
  if IdSMTP1.Connected then
    IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;

[RazzSpace]

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

Код:

  //вкладка indy clients, ставишь на форму IdSMTP (ящик синий такой нарисован)
//вкладка indy misc, ставишь IdMessage
  IdMessage1.Body.Text:='Тело письма';
  IdMessage1.From.Text:='Заголовок от кого пришло письмо';
  IdMessage1.Recipients.Add.Text:='yachik@mail.ru'; //кому письмо
  IdMessage1.Subject:='Tema pisma';
//прикрепить файл:
  IdAttachment1:=TIdAttachment.Create(IdMessage1.MessageParts,'C:\virus.sys');
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Host:='smtp.mail.ru';
  IdSMTP1.Port:=2525;
  IdSMTP1.Username:='po4ta@po4ta.ru'; //здесь через какую почту отправлять
  IdSMTP1.Password:='password';//пароль
  IdSMTP1.Connect();
  if IdSMTP1.Connected then
    IdSMTP1.Send(IdMessage1);
  IdSMTP1.Disconnect;

Сам проверял то?

[Assistant]

в теле письма всё равно будет видно от кого пришло, для этого и требуют SMTP аутентификацию... прошли те времена...