如何把outlook的地址簿导入到程序中

Question

rt

Answer 1

http://expert.csdn.net/Expert/topic/1862/1862622.xml?temp=.5444452
http://www.delphipages.com/threads/thread.cfm?ID=65087&G=65081

Answer 2

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1289987好大一个星星啊~

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
const olFolderContacts = $A;varoutlook, NameSpace, Contacts, Contact: OleVariant;i: Integer;
s: string;
beginoutlook := CreateOleObject('Outlook.Application');NameSpace := outlook.GetNameSpace('MAPI');Contacts := NameSpace.GetDefaultFolder(10);
//for i := 1 to Contacts.Folders.Count do//beginContact := Contacts.items.item(2);
 //olDistributionList 69
 //olContact 40
//ShowMessage(Contact.MEMBERCOUNT);
ShowMessage(Contact.GetMember(1).address);//end;Outlook := UnAssigned;end;