导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2003/10/4 1:13:09
标题:
Delphi做一通讯录导入outlook地址的请教
浏览:2192
加入我的收藏
楼主:
各位好呀!我想问一下,用delphi做了一个通讯录的小型数据库,其中想实现从outlook导入地址到我的通讯录这个功能,具体应该怎么做呀!!请帮帮忙,指导一下吧!不胜感激呀! [img]faces
----------------------------------------------
Maggie
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2003/10/4 12:36:53
1楼:
我想知道!
----------------------------------------------
作者:
2003/10/5 22:55:10
2楼:
uses ComObj; procedure TForm1.Button1Click(Sender: TObject); const olFolderContacts = $0000000A; var outlook, NameSpace, Contacts, Contact: OleVariant; i: Integer; begin outlook := CreateOleObject('Outlook.Application'); NameSpace := outlook.GetNameSpace('MAPI'); Contacts := NameSpace.GetDefaultFolder(olFolderContacts); for i := 1 to Contacts.Items.Count do begin Contact := Contacts.Items.Item(i); {now you can read any property of contact. For example, full name and email address} ShowMessage(Contact.FullName + ' <' + Contact.Email1Address + '>'); end; Outlook := UnAssigned; end; { 以下就是outlook邮件的的字段 Birthday Business2TelephoneNumber BusinessAddress BusinessAddressCity BusinessAddressCountry BusinessAddressPostalCode BusinessAddressPostOfficeBox BusinessAddressState BusinessAddressStreet BusinessFaxNumber BusinessHomePage BusinessTelephoneNumber CompanyAndFullName CompanyMainTelephoneNumber CompanyName ComputerNetworkName Department Email1Address Email1AddressType Email1DisplayName Email2Address Email2AddressType Email2DisplayName Email3Address Email3AddressType Email3DisplayName FirstName FTPSite FullName FullNameAndCompany GovernmentIDNumber Hobby Home2TelephoneNumber HomeAddress HomeAddressCity HomeAddressCountry HomeAddressPostalCode HomeAddressPostOfficeBox HomeAddressState HomeAddressStree HomeFaxNumber HomeTelephoneNumber Initials ISDNNumber JobTitle Language LastName LastNameAndFirstName MailingAddress MailingAddressCity MailingAddressCountry MailingAddressPostalCode MailingAddressPostOfficeBox MailingAddressState MailingAddressStreet MiddleName NickName OfficeLocation OrganizationalIDNumber PersonalHomePage PrimaryTelephoneNumber Profession Suffix Title WebPage}
----------------------------------------------
网络,数据库,IOCP应用,API应用等,欢迎交流: http://blog.163.com/huangjian_w/
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2003/10/6 8:30:13
3楼:
高手向你学习!
----------------------------------------------