关于outlook通讯录导入到我自己做的系统问题，请大侠们指教！

Question

请问各位大侠，怎么把outlook通讯录或foxmail中同学录导入到自己的数据库中，我是用delphi的
搞定，有分相送！[email protected],先谢各位！

Answer 1

OutLook的通讯录可以使用Ldap协议访问,LDAP在VC上开发比较简单.DELPHI中没用过,不清楚.
或者在VC上写个访问LDAP的DLL,DELPHI调用.

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  OutlookObj, ObjSpace, ObjFolder: Variant;
  i: Integer;
begin
  OutlookObj:=CreateOleObject('Outlook.Application');
  ObjSpace:=OutlookObj.GetNameSpace('MAPI');
  ObjFolder:=ObjSpace.GetDefaultFolder(10);
  for i:=1 to ObjFolder.Items.Count do
     ShowMessage(ObjFolder.Items[i].CompanyAndFullName + 
            ' <' + ObjFolder.Items[i].Email1Address + '>');   OutlookObj.Quit;
end;