Загрузка окна эл. почты "Создать сообщение"

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
Alex_AA
Сообщения: 5
Зарегистрирован: 25 окт 2006, 06:07

Добрый день!
Планируется, что при нажатии на кнопке Button должно открываться окно электронной почты "Создать сообщение":
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec('c:\Program Files\Internet Explorer\iexplore.exe mailto:xxxxx@xxxxxx.ru', SW_SHOWNORMAL);
end;
Но в дополнение к этому окну ("Создать сообщение") открывается еще окно "Нет страницы для отображения - Microsoft Internet Explorer". Как этого можно избежать? Нужно только окно "Создать сообщение". Подскажите! Заранее благодарен.
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

uses
ShellAPI;

ShellExecute(Handle, nil, 'mailto:xx@xxx.ru', nil, nil, SW_SHOW);
Alex_AA
Сообщения: 5
Зарегистрирован: 25 окт 2006, 06:07

Спасибо!!!!!!!!!!!!!!!!!!!!!
BBB
Сообщения: 1298
Зарегистрирован: 27 дек 2005, 13:37

Если в примере Duncon
'mailto:xx@xxx.ru'
заменить на
'mailto:xx@xxx.ru?subject=ТемаПисьма'
то в появившейся форме нового письма уже будет заполнен сабжект.
Alex_AA
Сообщения: 5
Зарегистрирован: 25 окт 2006, 06:07

Спасибо, ВВВ. Так несомненно круче! Добавлю в код.
Ответить