Program SMTP2test;
Uses smtp2;
Var i: integer;
from, rcpt, subj, text : string;
Begin
smtp2.account('zakir.gimranov', 'пароль');
smtp2.auth_mode(1);
i:=smtp2.send('smtp.mail.ru', 2525, '
[email protected]', '
[email protected]', 'Test', 'Hi there! Привет!');
End.
100% рабочий пример лично проверил (версия MP 2.02)