Компонент TISPROMAIL

Знаходиться на вкладці Розширені. Компонент TISPROMail.

Функції:

  • function Connect (TargetHost: AnsiString; TargetPort: AnsiString; UserName: AnsiString; Password: AnsiString): boolean - підключення к до хосту поштової служби (повертає true при вдалому підключенні);
  • procedure Disconnect - відключення от від хоста;
  • function GetEMailsCount : Integer - повертає кількість листів в поштовій скриньці;
  • function GetEMail (EMailIndex : Integer ; Delete : boolean ): Boolean - повертає true у разі успішного завантаження листи. У функцію передається:
    1. номер листа по списком;
    2. Чи видаляти лист з сервера після зачитуванні.
  • procedure SaveAttachByPath (i : Integer ; path : String) - отримати додаток до листа (в разі наявності в тексті листа html розмітки у вкладення додається html -файл з цим вмістом). Параметр path визначає шлях, по якому зберігати файл (якщо шлях не зазначений або такого шляху не існує, то з'явиться вікно вибору шляху);
  • function GetAttachesCount : Integer - повертає кількість вкладень в листі.

Властивості:

  • EMailTo - ім'я одержувача листа;
  • EMailFrom - ім'я відправника листа;
  • EMailSubject - тема листа;
  • EmailText - текст листа.

Код програми отримання імені одержувача, імені відправника, теми і тексту листа:

procedure Button1OnClick (Sender: TISPROComponent);

var

i, j: integer;

begin

if (Mail1.Connect ('mail.intelserv.kiev.ua', '110', ' ******* ', ' ******** ')) then

begin

for i: = 0 to Mail1.GetEMailsCount - 1 do

begin

if (Mail1.GetEmail (i, false)) then

begin

ShowMessage ('To:' + Mail1.EMailTo);

ShowMessage ('From:' + Mail1.EMailFrom);

ShowMessage ('Subject:' + Mail1.EMailSubject);

ShowMessage ('Text:' + Mail1.EMailText);

for j: = 0 to Mail1.GetAttachesCount - 1 do

Mail1.SaveAttachByPath (j, 'D: \\ tmpfiles ');

end;

end;

end;

end;