Вопрос по ShellExecute

[SANIOK_AV]

Доброго времени суток!!!
в программе выполняю запуск почтового агента по умолчанию (у меня MS Outlook):

ShellExecute(GetDesktopWindow(),
              'open',
              PChar('mailto:'+
              '?subject=Privet'+
              '&body='+ StrTxt +
              '&attach='+OpenDialog1.FileName),
              nil, nil, SW_SHOWNORMAL);

Всё работае: тема письма вносится, текст письма тоже вносится...
а вот вложение не работает...
Может кто-то знает в чём дело, подскажите пожалуйста!
Заранее благодарен!!!

[uberchel]

Держи!

if OpenDialog1.Execute then
ShellExecute(GetDesktopWindow(), 'open',PChar('mailto:'+'?subject=Privet'+
'&body='+ StrTxt +'&attach='+'"'+OpenDialog1.FileName+'"'),
 nil, nil,SW_SHOWNORMAL);

[KORN]

а почему ты не указываешь адрес отправителя7

[SANIOK_AV]

Сообщение от uberchel

Держи!

if OpenDialog1.Execute then
ShellExecute(GetDesktopWindow(), 'open',PChar('mailto:'+'?subject=Privet'+
'&body='+ StrTxt +'&attach='+'"'+OpenDialog1.FileName+'"'),
 nil, nil,SW_SHOWNORMAL);

не работает...

Сообщение от KORN

а почему ты не указываешь адрес отправителя7

отправителя или получателя?

[KORN]

пардон, получателя

if not OpenDialog1.Execute then
exit;

ShellExecute(handle, 'open', PChar('mailto:'+frommail.text+'?subject=Privet'+
'&body='+ StrTxt +'&attach="'+OpenDialog1.FileName+'"'),
 nil, nil,SW_SHOWNORMAL);

frommail.text - едит к в котором адрес получателя

[SANIOK_AV]

Сообщение от KORN

пардон, получателя

if not OpenDialog1.Execute then
exit;

ShellExecute(handle, 'open', PChar('mailto:'+frommail.text+'?subject=Privet'+
'&body='+ StrTxt +'&attach="'+OpenDialog1.FileName+'"'),
 nil, nil,SW_SHOWNORMAL);

frommail.text - едит к в котором адрес получателя

дело в том что адрес получателя я хочу вводить вручную...

[KORN]

ну а я что написал7 указал же что frommail.text - edit к в котором адрес получателя