DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: mulancc
今日帖子: 0
在线用户: 2
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
女 maggie (maggie) ★☆☆☆☆ -
注册会员
2003/10/4 1:13:09
标题:
Delphi做一通讯录导入outlook地址的请教 浏览:1654
加入我的收藏
楼主: 各位好呀!我想问一下,用delphi做了一个通讯录的小型数据库,其中想实现从outlook导入地址到我的通讯录这个功能,具体应该怎么做呀!!请帮帮忙,指导一下吧!不胜感激呀!按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 按此在新窗口浏览图片 [img]faces
----------------------------------------------
Maggie
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/10/4 12:36:53
1楼: 我想知道!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 huangjian_w (海纳百川) ★☆☆☆☆ -
盒子活跃会员
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楼: 高手向你学习!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行37.10938毫秒 RSS