Как вызвать OutLook ?

← →
satron (2003-11-06 17:17) [0]

Здравствуйте Мастера.
Подскажите пожалуйста, как вызвать Аутлук чтобы поля "кому", "тема письма" были заполнены и тело письма заполнено определенным текстом ?
Спасибо.

← →
Pattern (2003-11-06 17:22) [1]

ShellExecute(Handle, nil, "mailto:vasya@pupkin.ru?subj="От Васьки Пупкина"", nil, nil, SW_RESTORE);
Только данный код вызовет не сам "аутглюк", а ту почтовую программу, которая по умолчанию является почтовым клиентом на данном компе.

← →
satron (2003-11-06 17:24) [2]

... а как же тама сообщения и текст письма ?

← →
Glaz (2003-11-06 17:27) [3]

Пользуйся MAPI

← →
Pattern (2003-11-06 17:27) [4]

"Тама" сообщения или псё таки тема?
subj - и есть твоя темы сообщения
body - текст письма...

← →
satron (2003-11-06 17:34) [5]

... а код написан дословно?
там точно знак вопроса - как разделитель между адресом и темой..?
попробовал, не вписывает тему...
очень нужно, пожалуйста подскажите.

← →
Glaz (2003-11-06 17:37) [6]

Если нужен код через MAPI(правда в С++)напиши

← →
satron (2003-11-06 17:39) [7]

нет, спасибо, я в MAPI не понимаю...

← →
Pattern (2003-11-06 17:47) [8]

Ну во первых впиши в uses ShellAPI.
Далее пишешь в обработчике
ShellExecute(Handle, nil, "mailto:vasya@pupkin.ru?subj="От Васьки Пупкина"&body="А это сам текст сообщения"", nil, nil, SW_RESTORE);
К сожалению в данном методе я так и не смог избавиться от кавычек. Так что пример с MAPI тебе будет наверное полезней этой.

← →
Pattern (2003-11-06 17:53) [9]

to Glaz
Всё таки размети, плиз, примерчик с MAPI...

← →
Glaz (2003-11-06 17:59) [10]

LHANDLE Session;
typedef
ULONG (__stdcall *MyLogon_f)(ULONG ulUIParam, LPTSTR lpszProfileName,
LPTSTR lpszPassword, FLAGS flFlags, ULONG ulReserved, LPLHANDLE lplhSession);

MyLogon_f MyLogon;
HINSTANCE dllInstance=LoadLibrary("MAPI32.dll");
MyLogon=(MyLogon_f)GetProcAddress(dllInstance,"MAPILogon");
MyLogon((unsigned long)Application->Handle,"","",MAPI_LOGON_UI, 0, &Session);
MapiMessage* Mess= new MapiMessage();
MapiRecipDesc* Rec= new MapiRecipDesc();
Rec->lpszName="";//кому
Rec->lpszAddress="";//куда
Rec->ulEIDSize=0;
Rec->lpEntryID=0;
Rec->ulReserved=NULL;
Rec->ulRecipClass=MAPI_TO;
Mess->ulReserved=0;
Mess->lpszSubject="";//предмет
Mess->lpszNoteText="";//текст
Mess->lpOriginator=NULL;
Mess->nRecipCount=1;
Mess->lpRecips=Rec;
Mess->lpszMessageType=NULL;
Mess->lpszDateReceived=NULL;
Mess->lpszConversationID= "";
Mess->flFlags=0;
Mess->nFileCount=0;
Mess->lpFiles=NULL;

typedef
ULONG (_stdcall* MySendmail_f)(LHANDLE lhSession, ULONG ulUIParam,
lpMapiMessage lpMessage, FLAGS flFlags, ULONG ulReserved);

MySendmail_f MySendMail;
MySendMail=(MySendmail_f)GetProcAddress(dllInstance,"MAPISendMail");
MySendMail(Session,(unsigned long)Application->Handle,Mess,MAPI_DIALOG, 0);
typedef
ULONG FAR PASCAL (_stdcall* MyLogoff_f)(LHANDLE lhSession, ULONG ulUIParam, FLAGS flFlags, ULONG ulReserved);
MyLogoff_f MyLogoff;
MyLogoff=(MyLogoff_f)GetProcAddress(dllInstance,"MAPILogoff");
MyLogoff(Session,0,0,0);
FreeLibrary(dllInstance);

← →
Pattern (2003-11-06 18:02) [11]

Да, что-то похожее на правду (просто пока ещё не проверял)... Помню, что довольно обширный код. Но должна работать..

Как вызвать OutLook ? Найти похожие ветки