====== Как да се настрои изпращане на мейли през печатните форми ======


Инструкция за настройка:

**1. Необходимо е да се създаде пайплайн с име SMTP**. В него се поставя следния код:

<code>
select
 (select G.CONSTANT_VALUE from SYS$GET_ACTION_CONST_AS_STR(1, null, 'SMTP_HOST_NAME') G) HOST_NAME,
 (select G.CONSTANT_VALUE from SYS$GET_ACTION_CONST_AS_STR(1, null, 'SMTP_PORT') G) PORT,
 (select G.CONSTANT_VALUE from SYS$GET_ACTION_CONST_AS_STR(1, null, 'SMTP_USERNAME') G) USERNAME,
 (select G.CONSTANT_VALUE from SYS$GET_ACTION_CONST_AS_STR(1, null, 'SMTP_PASSWORD') G) SMTP_PASSWORD 
from
 RDB$DATABASE
</code> 

**2. В константи на интерфейси се създават 4 константи**:

SMTP_HOST_NAME - попълва се хоста - за gmail е smtp.gmail.com \\
SMTP_PORT - за gmail е 578 \\
SMTP_USERNAME - мейл, от който се изпращат мейлите (изпращач) \\
SMTP_PASSWORD - парола за мейла изпращач

**3. В calc в Report->ReportOnStartFirstPass** се поставя следния код:

<code>
if (SMTP.FieldObjects['HOST_NAME'].Value <> null) then
   Report.EmailSettings.HostAddress := SMTP['HOST_NAME'];
 if (SMTP.FieldObjects['PORT'].Value <> null) then
   Report.EmailSettings.Port := SMTP['PORT'];
 if (SMTP.FieldObjects['USERNAME'].Value <> null) then
   Report.EmailSettings.Username := SMTP['USERNAME'];
 if (SMTP.FieldObjects['USERNAME'].Value <> null) then
   Report.EmailSettings.FromAddress := SMTP['USERNAME'];
 if (SMTP.FieldObjects['SMTP_PASSWORD'].Value <> null) then
   Report.EmailSettings.Password := SMTP['SMTP_PASSWORD'];
</code>

**4. В Design -> User Interface -> EmailSettings -> ShowEmailDialog = True**

**5. В настройките на имейла се позволява изпращане на мейли от външни приложения**.

  * За gmail се прави от следната настройка : \\
Настройки -> Препращане и POP/IMAP достъп -> POP/IMAP достъп = POP/IMAP достъпът да се активира.
  * Настройки на профила (клик върху аватара на профила) -> Сигурност -> Достъп на не толкова надеждни приложения -> Включи