| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как создать почтовой сообщение

Aladdinych ©   (2007-10-19 13:42:00) 

Как из приложения на Delphi создать почтовой сообщение с прикрепленным файлом для почтовой программы по умолчанию

---

Savek   (2007-10-19 14:32:00) [1]


     send:=TMapiControl.Create(self);
     with send do begin
       Reset;
       FromName:='Big Brother';
       FromAdress:='myadress@mail.ru';
       Subject:='Hello';
       Body:='This is body';
       AttachedFiles.Add('c:\MyFile.txt');
       Recipients.Add('recipient@mail.ru');
       ShowDialog:=true;
       SendMail;
       Free;
     end;


---

Наверх