|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.05.2017, 20:44 | #1 |
Новичок
Джуниор
Регистрация: 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; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |