Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.06 c
14-1099471256
1008
2004-11-03 11:40
2004.11.21
Опять политика, но с маленькой просьбой


3-1098506764
Настенька
2004-10-23 08:46
2004.11.21
Поиск по всем полям!!!


14-1099663127
Alibaba
2004-11-05 16:58
2004.11.21
Timer в Excel


6-1095343344
sirin
2004-09-16 18:02
2004.11.21
Net Share


14-1099638640
anonim
2004-11-05 10:10
2004.11.21
Как крякнуть кряк?