Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > рассылка писем по e-mail, платформа intraweb

Автор: toshkaexe 29.4.2008, 18:43

Делаю очередной проект. Мне нужно реализовать в системе автоматическую рассылку писем по e-mail. Текст адресата, высвечивается на форме карточки. Существуют ли какие-то мануалы на тему организации рассылки? Как подступиться к такой задаче? smile

Автор: Snowy 29.4.2008, 18:55

Существует множество способов отправки почты.
Многие описаны в DRKB.
Также для WEB сервисов обычно вызывают внешний sendmail.
Тут уж тебе выбирать, что больше подходит...
Ну, например, TIdSMTP должен вполне подойти...

Автор: toshkaexe 29.4.2008, 19:00

Цитата(Snowy @ 29.4.2008, 18:55

)

TIdSMTP

Я пока ни с одним из вами предложенных способов не знаком. Что наиболее просто в изучении?

Автор: Exai1e 29.4.2008, 19:26

Цитата(toshkaexe @ 29.4.2008, 20:00)

Цитата(Snowy @ 29.4.2008, 18:55

)

TIdSMTP

Я пока ни с одним из вами предложенных способов не знаком. Что наиболее просто в изучении?

TIdSMTP

там отправить письмо пару строк кода smile

Код


  fmMain.IdSMTP1.Host := 'smtp.mail.ru';
  fmMain.IdSMTP1.Port := 25;
  fmMain.IdSMTP1.Username := MyLogin;
  fmMain.IdSMTP1.Password := MyPassword;
  fmMain.IdMessage1.CharSet := 'WINDOWS-1251';
  fmMain.IdMessage1.Subject := fmMain.edSubject.Text;
  fmMain.IdMessage1.Recipients.EMailAddresses := fmMain.edTarget.Text + fmMain.cbHost.Text;
  fmMain.IdMessage1.From.Address := MyLogin + MyHost;
  fmMain.IdMessage1.Body.Text := fmMain.edSendText.Text;
  try
    fmMain.IdSMTP1.Connect;
    fmMain.IdSMTP1.Send(fmMain.IdMessage1);
    fmMain.StatusBar1.Panels[0].Text := 'Сообщение отправленно';
  except
    ShowMessage('Отправка не удалась');
  end;
  fmMain.IdSMTP1.Disconnect;

вот только например используя mail.ru при отправке неск писем в подряд, надо вводить код с картинки... => придется еще и получать картинку, расшифровывать ее и автоматически вводить цифры