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

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

Электронная почта [D7, XP]

Первокласник Вася ©   (2008-05-22 15:54:00) 

Привет!

Как пользоваться функцией MAPI?


function MapiSendMail(lhSession: LHANDLE; ulUIParam: Cardinal;
 var lpMessage: TMapiMessage; flFlags: FLAGS; ulReserved: Cardinal): Cardinal;
begin
 InitMapi;
 if @SendMail = nil then
   @SendMail := GetProcAddress(MAPIModule, 'MAPISendMail');
 if @SendMail <> nil then
   Result := SendMail(lhSession, ulUIParam, lpMessage, flFlags, ulReserved)
 else Result := 1;
end;


---

Anatoly Podgoretsky   (2008-05-23 09:24:00) [1]

Ну тогда в стиле первокласников, а то действительно как то заумно

N := MapiSendMail(a, b, c, d, e);

---

brother   (2008-05-23 08:42:00) [2]

> N := MapiSendMail(lhSession, ulUIParam, lpMessage, flFlags,
>  ulReserved);

жестко, а для первокласника - филькина грамота)

---

Anatoly Podgoretsky   (2008-05-22 16:16:00) [3]

N := MapiSendMail(lhSession, ulUIParam, lpMessage, flFlags, ulReserved);

---

Palladin   (2008-05-22 16:11:00) [4]

ну как например функцией IntToStr или, скажем, FileExists... заполнить значения параметров и вызвать...

---

Первокласник Вася   (2008-05-22 16:08:00) [5]

А какими таким же как и другими :)

---

Palladin   (2008-05-22 16:00:00) [6]

та наверное так же как и другими...

---

Наверх