Что здесь не так? Ошибка таже в функции 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;