Можно использовать
SMTP Mail v1.6 - Stabilized
http://www.mibuso.com/dlinfo.asp?FileID=366
через который можно сделать все тоже самое без появления вопроса Security.
Компонента правда не русскоязычная, поэтому для конвертации можно воспользоваться вот такой функцией EncodedString:
Код:
EXIT(CONVERTSTR(Str,'ЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪюабцдефгхийклмнопярстужвьызшэщчъ',
'абвгдежзийклмнопрстуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'));
Использовать ее очень просто:
Код:
SMTPMail.SetFromAdress('Вася@mail.ru');
SMTPMail.SetToAdress('Петя@yandex.ru');
SMTPMail.SetSubject(EncodedString('Уведомление программы Navision'));
SMTPMail.AddLine('<HTML><HEAD>');
SMTPMail.AddLine('<META http-equiv=Content-Type content="text/html; charset=windows-1251"></HEAD>');
SMTPMail.AddLine('Привет мир!');
SMTPMail.SetHost('mail.provider.ru');
SMTPMail.Send;