Функция CreateSMTPConnection создает подключение к SMTP серверу и возвращает объект типа SMTPConnection. С помощью этого объекта программист может отправлять письма.

Аргумент Host содержит IP-ардес или доменное имя сервера, а так же может содержать TCP-порт через :. Если SSL=False, то используется нешифрованное соединение (если в аргументе Host не указан порт, то используется порт 25). Если аргумент SSL=True, то используется шифрованное SSL-соединение (если не указан порт, то используется порт 465). Аргументы Login и Password содержат логин и пароль учетной записи почтового сервера. Если почтовый сервер не требует авторизации, то эти аргументы могут быть пустыми.

Обьект SMTPConnection содержит единственный метод:

Отправляет письмо. Аргументы From, To содержат EMail адреса. Аргумент Mail содержит письмо.

Procedure OnCreate;
Var
  C : SMTPConnection;
  Mail : String;
Begin      
  // Формирование письма
  Mail :=  'From: Bot <noreply@gmail.com>'+chr(10)+                    // Отправитель
           'To: Aleksey <user1@gmail.com>'+chr(10)+                    // Получатель
           'Subject: Test'+chr(10)+                                    // Тема
           'Content-Type: text/plain; charset="windows-1251"'+chr(10)+ // Кодировка письма
           chr(10)+           
           'Здравствуйте, это проверка.';                              // Тело письма
           
  // Подключение к почтовому серверу (SMTP)
  C := CreateSMTPConnection('smtp.gmail.com', True, 'мой логин', 'мой пароль');

  // Отправка письма
  C.Send('test@gmail.com',  // Отправитель
         ['user1@gmail.com', 'user2@yandex.ru'], // Получатели
         Mail
        );          
        
  // Можно отправить еще что нибудь
  C.Send('test@gmail.com', ['user2@gmail.com'], Mail);  
End;