~Jack~
Специалист
В этом уроке я покажу вам, как открыть почтовую программу установленную в системе по умолчанию и на автомате заполнит необходимые поля для отправки сообщения (кому, копия, текст сообщения).
Ну что поехали... Я надеюсь что Delphi у вас уже открыт, поэтому сразу создаем новый проект и кидаем на форму один компонент Button с закладки Standard. Больше на форме у нас ничего не будет.
Теперь переходим в код и добавим в раздел uses модуль ShellApi. Дальше, создаем обработчик событий на кнопке, между begin и end прописываем вот такой код:
ShellExecute(GetDesktopWindow,'open',
'mailto:Имя получателя <yourmail@mail.ru>'+
'?Subject=Тема'+
'&Body=Текст сообщения'+
'&CC=Копия'+
'&BCC= Скрытая копия',
0,0,SW_SHOWNORMAL);
Запускаем - тестим - улыбаемся )
Ну что поехали... Я надеюсь что Delphi у вас уже открыт, поэтому сразу создаем новый проект и кидаем на форму один компонент Button с закладки Standard. Больше на форме у нас ничего не будет.
Теперь переходим в код и добавим в раздел uses модуль ShellApi. Дальше, создаем обработчик событий на кнопке, между begin и end прописываем вот такой код:
ShellExecute(GetDesktopWindow,'open',
'mailto:Имя получателя <yourmail@mail.ru>'+
'?Subject=Тема'+
'&Body=Текст сообщения'+
'&CC=Копия'+
'&BCC= Скрытая копия',
0,0,SW_SHOWNORMAL);
Запускаем - тестим - улыбаемся )