Проблемы с запуском почтового клиента - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Проблемы с запуском почтового клиента (http://forum.oszone.net/showthread.php?t=104860)

Проблемы с запуском почтового клиента

Добрый день!
Может кто подскажет в решении следующей проблемы:
Необходимо что бы при нажатии кнопки открывался e-mail клиент и добавлялся адресат, тема и тело (только обязательно Lotus Notes - установлен только он)

при следующем коде Lotus вообще не запускается:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShellExecute(0,NULL,"mailto:test@mail.ru?subject=hello&body=test",NULL,NULL,SW_SHOW);
}

Если же использовать следующий код то Lotus запускается, но возникает вопрос как создать новое письмо с необходимыми данными (адресат, тема и тело)???

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShellExecute(0,NULL,"notes.exe",NULL,NULL,SW_SHOW);

Заранее большое спасибо!
}

vetal_dnepr, Может так:

Код:

ShellExecute(Handle, NULL, "mailto:test@yandex.ru?subject=Tema", NULL, NULL, SW_SHOWNORMAL);

Вместо

Код:

SW_SHOW

использовать

Код:

SW_SHOWNORMAL

Вот небольшой код:
Есть Label1 в которой написано "какая-то строка и адрес: Test@yandex.ru" при наведении курсора на эту строку в событии Label1 Label1MouseEnter строка окрашивается в синий цвет. Аналогичное поведение, в Label1MouseLeave когда курсор мыши покидает эту строку. Цвет становится опять чёрным. Событие Label1Click срабатывает на щелчок.

Код:

//Когда мышь над Label1 надпись окрашивается в синий цвет---------------------

void __fastcall TForm1::Label1MouseEnter(TObject *Sender)

{

 Label1->Font->Color = clBlue;

}

//Когда мышь покидает Label1 надпись стаёт снова чёрной----------------------

void __fastcall TForm1::Label1MouseLeave(TObject *Sender)

{

 Label1->Font->Color = clBlack;

}

// Вызов OutluckExpress, для создания почтового сообщения---------------------

void __fastcall TForm1::Label1Click(TObject *Sender)

{

 ShellExecute(Handle, NULL, "mailto:Test@yandex.ru?subject=Tema", NULL, NULL, SW_SHOWNORMAL);

}

Цитата:

Цитата vetal_dnepr

(только обязательно Lotus Notes - установлен только он) »

Ой, кажется я поторопился... Тогда не знаю... :dont-know

Drongo, Все равно спасибо....