Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Mary_7
0 / 0 / 0
Регистрация: 01.05.2017
Сообщений: 1
#1

Отправка сообщений на почту с Delphi

01.05.2017, 20:06. Просмотров 138. Ответов 1
Метки нет (Все метки)

Доброго времени суток! Прошу помощи. Не могу написать правильно программу, чтобы могла отправлять письма из столбца в таблице с циклом (за 5 дней до окончания срока действия сертификата соответствия отправляет письмо поставщику). Программа в Delphi связана с базой данных access, сообщения не отправляет при нажатии на кнопку, но выдает сообщение Already Connected! Что не так с программой? я новичок в этом..
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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.Create(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:=ADOQuery1.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;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2017, 20:06
Ответы с готовыми решениями:

Отправка письма на почту
как реализовать? Перелазил инет половина не работает) Помогите плз!

Отправка на почту через указатель
отправка на почту через указатель (поинтер) вроде этого ...

Файл: Отправка файла на почту
Добрый день. Я только начинаю изучать Delphi. Мне нужно, когда человек нажал...

Отправка письма на почту со вложением
Всем привет! Хочу написать программу для отправки письма со вложением по 1...

Отправка текста из Edit на почту
Как реализовать, чтоб при нажатии на кнопку, текст из edit1 отправлялся на...

1
krapotkin
3390 / 3005 / 1039
Регистрация: 14.04.2014
Сообщений: 14,575
Записей в блоге: 15
01.05.2017, 22:12 #2
если вы ключом в замке вертите а замок уже открыт, то дверь вам посылает сообщение
замок уже открыт, д@@@л!
что делать?
вопрос не имеет отношения к программированию. чисто на здравый смысл
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.05.2017, 22:12

Проверка наличия файлов и отправка на почту
Всем привет! Программа делает скрины каждые 10 сек и сохраняет их в папку....

Программа поиска файла и отправка на почту
unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

Отправка сообщений
Добрый день ув. форумчане. Нужна ваша помощь!!!! Имеется программа написана на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru