Модуль рассылки

Сделал для вас проект с примером.

При старте проекта проверяется, есть ли адресаты, которым пора отправить напоминание, если есть, то будет показана форма со списком адресатов

procedure Form1_OnShow (Sender: string; Action: string);
begin
    frmSendMail.TableGrid1.dbUpdate;
    if frmSendMail.TableGrid1.RowCount > 0 then frmSendMail.ShowModal;

    Form1.Button1.Click;
end;

в настройках компонента frmSendMail.TableGrid1 задается фильтр, чтобы показать адресаты, которым пора отправить сообщение

(employees.sent <> 1) and ( date(employees.dateEvent) < date('now',  '+10 days') )

Если сообщение адресату доставлено, это отмечается в поле employees.sent

Здравствуйте Дмитрий!!! Это замечательный пример!!!
Давайте пороссуждаем все вместе!!!
===========================================
Мы Все знаем, что при  ОГРОМНОЙ рассылке писем с одного адресса...можно попасть БАН!!!
Вопрос:
Дмитрий...к Вашему выше примеру есть возможность дописать...например:
- Создаём отдельную форму <<  мои емайлы >>, где есть грид
  его мы заполняем своими емайломи с которых будет идти рассылка писем!!!
- когда мы кликаем на << frmSendMail.Button1.Click  >>...происходит следущее
  письмо отправляется, но отправитель письма...на каждое отправления меняется
  по очереди из списка формы <<  мои емайлы >> .
P./S. если с нашего емайла произошла ошибка при очередном отправлении письма, то
ЛЮБУЮ СИСТЕМНУЮ ОШИБКУ ИГНОРИРОВАТЬ, заменяя на наше сообщение к примеру:
<< Произошла ошибка при отправлении письма с адресса << RZ-007@yandex.ru >>
далее...наш емайл << RZ-007@yandex.ru >> перемещается в чёрный список,
а отправка писем  продолжается так же используя из формы <<  мои емайлы >>по очерёдно
перебирать адресса отправителя......
Заранее извените...,если Вам не сложно...

Думаю да, когда будет время, попробую реализовать.