Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 01.05.2017, 21:44   #1
Mary_7
Новичок
Джуниор
 
Регистрация: 01.05.2017
Сообщений: 1
Печаль Отправка сообщений на почту с Delphi

Доброго времени суток! Прошу помощи. Не могу написать правильно программу, чтобы могла отправлять письма из столбца в таблице с циклом (за 5 дней до окончания срока действия сертификата соответствия отправляет письмо поставщику). Программа в Delphi связана с базой данных access, сообщения не отправляет при нажатии на кнопку, но выдает сообщение Already Connected! Что не так с программой? я новичок в этом..

procedure TForm1.Button4Click(Sender: TObject);
var
msg:TIdMessage;
i:Integer;
begin
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT Журнал_сертификатов.Срок_годности_с ертификата, Журнал_сертификатов.Код_сертификата FROM Журнал_сертификатов');
ADOQuery2.Open;

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT Поставщик.email FROM Поставщик');
ADOQuery1.Open;
For i := 1 to ADOQuery2.RecordCount do
begin
if DaysBetween(Date, strToDate(ADOQuery2.FieldValues['Срок_годности_сертификата'])) < 5 then
begin
try IdSMTP1.AuthType:=satDefault;
IdSMTP1.Host:='insecure.mail.ee';
IdSMTP1.Port:=587;
IdSMTP1.Username:='check_sert@mail. ee';
IdSMTP1.Password:='*****';
IdSMTP1.Connect;msg:=TIdMessage.Cre ate(nil);
msg.CharSet:='windows-1251';
msg.Body.Add('Срок действия сертификата ');
msg.Body.Add(ADOQuery2.FieldValues['Код_сертификата']);
msg.Body.Add(' заканчивается ');
msg.Body.Add(ADOQuery2.FieldValues['Срок_годности_сертификата']);
msg.Subject:='Сертификат';
msg.From.Address:='check_sert@mail. ee';
msg.From.Name:='check_sert';
msg.Recipients.EMailAddresses:=ADOQ uery1.FieldValues['email'];
msg.IsEncoded:=True;
IdSMTP1.Connect;
IdSMTP1.Send(msg);
msg.Free;
IdSMTP1.Disconnect;
except
on e:Exception do
begin
ShowMessage(e.Message);
msg.Free;
IdSMTP1.Disconnect;
end;
end;
end;
ADOQuery2.Next;
end;
Mary_7 вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi - Отправка сообщений вконтакте romantik1993 Работа с сетью в Delphi 5 12.03.2015 05:30
Отправка сообщения на почту Delphi XE5 Android =_=Настя=_= Общие вопросы Delphi 5 11.04.2014 19:59
Отправка данных на почту. [Delphi] vitaxa94 Помощь студентам 4 16.11.2010 18:16
Отправка сообщений... вконтакте.ру... Delphi 7 Dionix Работа с сетью в Delphi 2 04.10.2009 12:34
отправка файла на почту CraZZy RabbIt Общие вопросы Delphi 9 21.04.2009 18:59