как прикрепить несколько файлов и отправить их по

[Guest_bob_*]

Как прикрепить нескольколько файлов и отправить их на определенный e-mail
без использования почтовых программ.

 

[Barmutik]

Есть несколько способов:

1. Долгий - всё делать руками самому
2. Быстрый - используйте компоненты .. например Indy

 

[Guest]

А можно поподробнее. Я не очень то разбираюсь в программировании. Хотелось бы примерчик.

 

[Barmutik]

Под руками пример использования TNMSMTP:

   SynchronizeSMTP.Host := MailSettingsForm.ServerEdit.Text;
  SynchronizeSMTP.Port := StrToInt(MailSettingsForm.PortEdit.Text);
  SynchronizeSMTP.UserID := '';
  SynchronizeSMTP.Connect;
 except
  WaitForm.Hide;
  MessageDlg(MainForm.MultiLanguage.
   TranslateString('Не могу установить связь с почтовым сервером!') + #13#10 +
   MainForm.MultiLanguage.
   TranslateString('Свяжитесь с администратором для разрешения данной проблемы!'), mtError, [mbOK], 0);
  Exit;
 end;
 try
  SynchronizeSMTP.PostMessage.FromAddress := MailSettingsForm.AddressEdit.Text;
  SynchronizeSMTP.PostMessage.FromName := MailSettingsForm.NameEdit.Text;
  SynchronizeSMTP.PostMessage.Subject := MailSettingsForm.SubjectEdit.Text;
  SynchronizeSMTP.PostMessage.ToAddress.Add(MailSettingsForm.ReceiverAddressEdit.Text);
  SynchronizeSMTP.PostMessage.ToBlindCarbonCopy.Add('');
  SynchronizeSMTP.PostMessage.ToCarbonCopy.Add('');
  CopyFile(MailSettingsForm.FileNameEdit.Text, AFileName, nil);
  Compressor.InputFile := AFileName;
  Compressor.OutputFile := ZippedFileName;
  Compressor.Compress;
  SynchronizeSMTP.PostMessage.Attachments.Add(ZippedFileName);
  SynchronizeSMTP.PostMessage.Body.Add(MainForm.MultiLanguage.
   TranslateString('Отчёт от') + ' ' +
   FormatDateTime('dd.mm.yyyy hh:nn:ss', Now));
  SynchronizeSMTP.SendMail;

 

[Barmutik]

Если сильно надо как через Indy то можно поискать .. хотя у них там в примерах есть полный пример как это сделать...