Какой LicenseCode нужен что бы отправлять почту?
Есть такой код для отправки почты:
oSmtp := TMail.Create(Application);
oSmtp.LicenseCode := 'TryIt';
oSmtp.FromAddr := '[email protected]';
oSmtp.AddRecipientEx('[email protected]', 0);
oSmtp.Subject := 'theme';
oSmtp.BodyText := 'text';
oSmtp.ServerAddr := 'smtp.mail.ru';
oSmtp.UserName := '[email protected]';
oSmtp.Password := 'password';
oSmtp.ConnectType := ConnectTryTLS;
if oSmtp.SendMail() = 0 then
begin
end else
begin
end;
По началу всё нормально работало, а сейчас во второй строке выдаёт ошибку "Trial Version Expired!".
Где бы я не смотрел примеры кода, используют oSmtp.LicenseCode := 'TryIt';.
Подскажите, что я делаю не так?
Ответы (1 шт):
Автор решения: zed
→ Ссылка
Вы используете демо-версию коммерческого компонента для отправки почты EASendMail SMTP Component.
Соответственно, по окончании демо-периода вам надо этот компонент купить Purchase EASendMail SMTP Component, после чего вам вышлют ключ, который вы и сможете подставить вместо TryIt.