Компонент 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 ;