Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

Как открыть окно Outlook?   Найти похожие ветки 

← →
46_55_41_44 ©   (2004-11-10 09:48) [0]

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

---

← →
Poirot ©   (2004-11-10 10:22) [1]

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

---

← →
begin...end ©   (2004-11-10 10:28) [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.

---

← →
BaDeVlad   (2004-11-11 09:21) [3]

...
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, так же можно добавлять несколько получателей, аттачменты и проч. Но глючит страшно...

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c