Как создать окно e-mail и в ставить туда текст
От: ssv555  
Дата: 01.11.02 11:07
Оценка:
Задача: Создать окно нового письма OutLook, Вложить туда ТЕМУ, АДРЕСС, И САМО СООБЩЕНИЕ,
т.е пользователю останется только нажать пимпочку "Отправить".
Я сделал так:

var em_subject, em_body, em_mail: string;
begin
em_subject := Тема';
em_body := 'Текст сообщения. Hello World!';
em_mail := 'mailto:kuda@nibud.ru?subject=' + em_subject + '&body=' + em_body;

ShellExecute(Application.Handle,'open',PChar(em_mail), nil, nil, 2);
end;

Такой вариант работает, но при условии что тело сообщения не превышает 411 символов,
по какой причине так происходит не знаю.

Помогите кто нибуть, решить эту проблему, пусть даже другим способом, с исходником.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.