Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2017, 20: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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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