VPF::рассылка писем по e-mail, платформа intraweb

toshkaexe

Дата 29.4.2008, 18:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 57
Регистрация: 16.2.2007

Репутация: нет
Всего: 1

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

Snowy

Дата 29.4.2008, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

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

toshkaexe

Дата 29.4.2008, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 57
Регистрация: 16.2.2007

Репутация: нет
Всего: 1

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

)

TIdSMTP

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

Exai1e

Дата 29.4.2008, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30

Цитата(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 при отправке неск писем в подряд, надо вводить код с картинки... => придется еще и получать картинку, расшифровывать ее и автоматически вводить цифры

Это сообщение отредактировал(а) Exai1e - 29.4.2008, 19:28

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »