Delphi уроки - Открываем почту и заполняем поля на автомате

Опубиковано: 22.02.2009 г., автор: , просмотров: 19359

Delphi уроки - Почтовик и Автозаполнение полей

В этом уроке я покажу вам, как открыть почтовую программу установленную в системе по умолчанию и на автомате заполнит необходимые поля для отправки сообщения (кому, копия, текст сообщения).

Ну что поехали... Я надеюсь что Delphi у вас уже открыт, поэтому сразу создаем новый проект и кидаем на форму один компонент Button с закладки Standard. Больше на форме у нас ничего не будет.

Теперь переходим в код и добавим в раздел uses модуль ShellApi. Дальше, создаем обработчик событий на кнопке, между begin и end прописываем вот такой код:

ShellExecute(GetDesktopWindow,'open',
'mailto:Имя получателя <yourmail@mail.ru>'+
'?Subject=Тема'+
'&Body=Текст сообщения'+
'&CC=Копия'+
'&BCC= Скрытая копия',
0,0,SW_SHOWNORMAL);

Запускаем - тестим - улыбаемся )

Вот и всё, в моём The Bat код работает, прям базовая отправка смс через компьютер получается ))

P.P.S. Хотите вперед всех остальных посетителей сайта получать свежие Видео уроки, Аудио подкасты, статьи по Delphi.
Участвовать в конкурсах и постепенно вливаться в нашу команду ?!
Тогда прямо сейчас подписывайтесь на бесплатную мультимедийную рассылку сайта delphiexpert.ru
Нас уже больше чем 1500 человек !



Похожие материалы

Последние из рубрики

proger 20 Июн 2013 в 00:00 #
А как к сообщению прикрепить файл?
Станислав 26 Ноя 2011 в 00:00 #
Спасибо! Хороший пример. Всё отлично работает.
Дима самоучка 29 Мар 2011 в 00:00 #
а можно ли сделать чтобы имя получателя можно было вписать в edit1???
BoL4oNoK 12 Сен 2010 в 00:00 #
А зачем самим отправлять?) Это надо, чтобы упростить жизнь юзверю) Так ему только нажать кнопочку "отправить" остается)
Максим 20 Окт 2009 в 00:00 #
все здорово, а как отправить? :)

ОтменитьДобавить комментарий