Не могу отправить сообщение на почтовый ящик, помогите плииз:
Код:
var sEmail:String;
begin
sEmail:='mailto:'+sendEmail+'?subject='+sendSubject+'&body='+sendText;
ShellExecute(Handle,'open',PChar(sEmail),nil,nil,SW_SHOWNORMAL);
end;
sendEmail - имя ящика, строка типа 'zzzzz@mail.ru';
sendSubject - строка темы: 'поздравление';
sendText - текст сообщения (текст короткий);
Админ: 3-дневный бан за несоблюдение правил форума по офрмлению кода
При запуске мне пишут: "Не удалось из-за неправильной установки клиента почты по умолчанию".
Что-то не хватает наверное...