请问各位大侠:
因公司需要,在DELPHI的程序中要访问EXCHANGE中的联系人。
(包括自己PC上的联系人和在SERVER上的整个公司的联系人,解决为盼,,
先给以20分,解决再给100分
因公司需要,在DELPHI的程序中要访问EXCHANGE中的联系人。
(包括自己PC上的联系人和在SERVER上的整个公司的联系人,解决为盼,,
先给以20分,解决再给100分
解决方案 »
- sql字符字段排序问题
- Delphi7.0读取注册表时的问题
- 在连接数据库时候,出现奇怪的问题!
- 一个关于qtintf.Dll动态连接库的问题
- 安装了delphi7,发现delphi6里面的一些控件丢失了?
- 如何转换呀(在线等待)
- 大家好,请高手赐教,有关在应用程序中如何打开并编辑Word 文档??急需
- netwolfds(晓竹)请来拿分
- 这个问题怎么解决啊,我是菜鸟一个!!
- 我使用Query控件出现了如下问题:'Error creating cursor handle'
- 关于Delphi调试时的一个问题,关于ADO的一个问题
- 哪里有关于ms 发布的编程使用的关于media player的资料,像sdk库什么的。哪位高手知道?
var Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end; MailItem := Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add('[email protected]');
MailItem.Subject := 'your subject';
MailItem.Body := 'http://kingron.myetang.com';
MailItem.Attachments.Add('C:\Windows\system.dat');
MailItem.Send;
Oulook := Unassigned;
end;
*************************
发送HTML格式邮件
下面的代码没有测试,因为我没有Outlook,而我又找不到Outlook express的CLSID或者ProgID…… :-(
var
Oe,MI:OleVariant;
begin
Oe:=CreateOleObject('Outlook.Application');
MI:=Oe.CreateItem(0);
MI.Subject:='subject';
MI.HTMLBody:='<html>..Input your HTML Source Here....</html>';
MI.Recipients.Add('Mail address like :[email protected]');
MI.Send; MI:=Unassigned;
OE:=Unassigned;
end;
但用ole發mail我知道
我就不知道怎么把自己pc上和server上的聯系人調出來用
盼解決
set oCDOSession = application.creatObject("MAPI.Session")
oCDOSession.logoin "","",False,False,0
btCaption Caption
if not err then
set orecip = oCDOSession .addressbook(Nothing,txtCaption,_ture,true,1,ButtonText,"","",0)
end if
if not err then
item.userproperties.find(fieldname).value = orecip(1).naem
end if
oCDOSession.logoff
oCDOSession = Nothingend sub这个程序是点一个按钮把通讯本打开,其它的你在慢慢研究吧。下面是MS的CDO的介绍。你也可以在MSDN中找,也可以在OUTLOOK的帮助中找到(前提是你装了office的vb帮助)对于CDO的开发应用介绍。