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

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

Guest_bob_*

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

Barmutik

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

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

Guest

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

Barmutik

#4
Под руками пример использования 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;
 
B

Barmutik

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