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

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

Как открыть окно Outlook? [D7]

46_55_41_44 ©   (2004-11-10 09:48:00) 

Как открыть окно Outlook? при этом автоматически вписать адрес получателя, attachment и все такое...
Помогите кто может!

---

BaDeVlad   (2004-11-11 09:21:00) [1]

...
uses ShellApi
...

function SendLetter(Addr, Subj, Body: string): Boolean;
var
 MapiMessage: TMapiMessage;
 MError: Cardinal;
begin
 with MapiMessage do
 begin
   ulReserved := 0;
   lpszSubject := PChar(Subj);
   lpszNoteText := PChar(Body);
   lpszMessageType := nil;
   lpszDateReceived := nil;
   lpszConversationID := nil;
   flFlags := 0;
   lpOriginator := nil;
   nRecipCount := 0;
   lpRecips := nil;
   nFileCount := 0;
   lpFiles := nil;
 end;

 MError:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG, 0);
 Result:= MError = 0;
end;

Это из стандартного примера. Смотри в хелпе MapiSendMail, так же можно добавлять несколько получателей, аттачменты и проч. Но глючит страшно...

---

begin...end   (2004-11-10 10:28:00) [2]

46_55_41_44 ©   (10.11.04 9:48)

Насчёт attachment'а не знаю, а с адресом и темой - вот так:

ShellExecute(Handle, 'open', 'mailto:mail@mail.ru?subject=SubjectText'; NIL, NIL, SW_SHOWNORMAL)

---------------------
Sorry, I'm drunk now.

---

Poirot   (2004-11-10 10:22:00) [3]

:))) Servers->Outlook
Закладка такая есть:)))) И потом работай скока душе угодно:))

---

Наверх