|
#1
|
|||
|
|||
сообщения SendTo
Не могу отправить сообщение на почтовый ящик, помогите плииз:
Код:
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 - текст сообщения (текст короткий); При запуске мне пишут: "Не удалось из-за неправильной установки клиента почты по умолчанию". Что-то не хватает наверное... Последний раз редактировалось Admin, 03.10.2018 в 19:57. |