![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как из моей программы организовать отправку e-mail [D7, XP]
susergey © (2006-10-22 19:04:00)Уважаемые Мастера!
Как из моей программы организовать отправку e-mail, например, кнопка с адресом, клик на ней - запуск почтового клиента, установленного в системе по умолчанию.
susergey (2006-10-23 23:04:00) [1]
> КиТаЯц ©
Спасибо, именно то, что надо!
КиТаЯц (2006-10-23 10:53:00) [2]На
procedure SendMyMail(hWnd: Integer; Mail: string; Tema: string; MailText: string);
begin
ShellExecute(hWnd, 'open', PAnsiChar('mailto:'+Mail+'?subject='+Tema+'&body='+MailText), nil, nil, 1);//SW_SHOWNORMAL)
end;
Работает под Outlook
Пример использования нужен?
Dmitrij_K (2006-10-22 21:29:00) [3]этот вопрос задается минимум раз в неделю
пользуйся поиском
susergey (2006-10-22 19:24:00) [4]Еще вопросик, а как задать определенную тему в сообщении (по умолчанию)?
susergey (2006-10-22 19:11:00) [5]> Dmitrij_K (22.10.06 19:08) [1]
Спасибо огромное!
Dmitrij_K (2006-10-22 19:08:00) [6]
uses shellapi
shellexecute(0,'open','mailto:pochta@mail.ru',nil,nil,SW_SHOWNORMAL)