• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

  • Автор темы Автор темы Guest_bob_*
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest_bob_*

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

1. Долгий - всё делать руками самому
2. Быстрый - используйте компоненты .. например Indy
 
А можно поподробнее. Я не очень то разбираюсь в программировании. Хотелось бы примерчик.
 
Под руками пример использования 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;
 
Если сильно надо как через Indy то можно поискать .. хотя у них там в примерах есть полный пример как это сделать...
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab