怎样在Delphi中使用OutLook(30分)

K

Kuly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #1

请教各位高手，在Delphi中怎样才能调用OutLook对象。

 

A

APNDY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #2

use shellapi;
shellexecute(handle,'open','mailto:apndy@163.net?subject=abc&body=efg',nil,nil,sw_shownormal);

 

S

silverring

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #3

delphi自带outlookApplication这个控件！

 

L

liwens

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #4

var Aaddressee,ASubject,Atext,AParam:string;
begin
Aaddressee:= 'E_MAIL地址';
ASubject:='会议提醒';
Atext := '该开会了！^00^';
AParam :='mailto:' + Aaddressee+ '?subject=' + ASubject+ '&Body=' + Atext;
shellexecute( handle,'open',PChar(AParam),nil,nil,sw_shownormal);

 

X

xhlight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #5

用ole自动化或直接用delphi自带的outlookApplication控件！
var
Excel: OleVariant;
begin
try
Excel:=CreateOleObject('Outlook.Application');
........
except
messagebox(handle,'没有安装outlool程序！','提示',MB_OK+MB_ICONINFORMATION);
end;
end;