控制OUTLOOK

请问各位大侠：  
   因公司需要，在DELPHI的程序中要访问EXCHANGE中的联系人。
   （包括自己PC上的联系人和在SERVER上的整个公司的联系人，解决为盼，，  
   先给以20分，解决再给100分

解决方案 »

  1.   

    看看delphi中的servers这个控件页上的关于outlook的东西怎么用，再用控件去访问outlook中的全球地址簿，这样你的所有联系人都可以得到了。我以前用VB做过，有源码，但VB与Delphi不是一码事，我只能说说原理。
      

  2.   

    不知道楼主是不是用过OLE DB，如用VBA中的宏一样的功能；在OUTLOOK中先实现你的要求，录制成一个宏，然后用VB 编辑器看一看VBA的代码就可以了
      

  3.   

    Turbopower的Office partner可以用www.51delphi上有得下
      

  4.   

    DELPHI里调用Outlook:(转贴）const olMailItem = 0; 
    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;
      

  5.   

    上面這位兄弟,多謝了
      但用ole發mail我知道
      我就不知道怎么把自己pc上和server上的聯系人調出來用
      盼解決
      

  6.   

    我用的是CDO，类似于ADO，是MS提供的一组COM组件，用来很简单直接的控制Exchange及OutLook对像。你也可以把它理解为一组API。我是看了MS出的一本<Outlook与Exchange程序设计>后在公司做了一些开发。这个cdo也是个DLL，在完全安装了outlook之后(安装上了开发组件)就有了。你把这个dll放到你的delphi中来就行了。显示通汛簿源码如下：sub FindAddress(FieldName,Caption,ButtonText)
    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的开发应用介绍。
      

  7.   

    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/_olemsg_overview_of_cdo.asp?frame=true