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