JMail

[by_HT]

Что здесь не так? Ошибка таже в функции Send.

SMTPServer := 'mail.tyumbit.ru';
UserName := 'byht';
Password := '######';
IF GUIALLOWED THEN
  window.OPEN('#1##########################################################');
IF GUIALLOWED THEN
  window.UPDATE(1,STRSUBSTNO(Text048,SMTPServer,UserName));

IF ISCLEAR(MailClient) THEN
  CREATE(MailClient);
CREATE(Mail);
Mail.From := 'byht@tyumbit.ru';
Mail.FromName := 'Description';
Mail.Subject := 'Subject';
Mail.AddRecipient('hexersoft@mail.ru');


IF GUIALLOWED THEN
  window.UPDATE(1,Text005);

Mail.MailServerUserName := UserName;
Mail.MailServerPassWord := Password;
IF NOT Mail.Send(SMTPServer,FALSE) THEN
  MESSAGE(Mail.ErrorMessage());

IF GUIALLOWED THEN
  window.CLOSE;