Компонент 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 у разі успішного завантаження листи. У функцію передається:
- номер листа по по списком;
- Чи видаляти лист з сервера після зачитуванні.
- 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 ;