请问如何将outlook的.wab的通讯录导入自己的数据库？

Question

如何把OE的.wab或者.csv文件中的通讯录导入自己的数据库?
最好有源码:[email protected]

Answer 1

If you need to turn the tables and access Outlook data in order to write that 
data to a remote data store, what options do you have? Although this article 
focuses on bringing enterprise data into Outlook workflow applications, I’ll 
briefly discuss the current options you face when you want to bring MAPI data 
into a database. An Microsoft Exchange indexed sequential access method (ISAM) 
driver is available which can link or import an Microsoft Exchange folder 
(Mailbox or Public folder) or an Microsoft Exchange Address Book (including the 
GAL) with Microsoft Access.Download the Outlook Microsoft ExchangeWizard at 
http://www.microsoft.com/AccessDev/AccWhite/ExchWiz.htm. This URL also contains 
a comprehensive article on “Accessing Exchange and Outlook Data Using Visual 
Basic.”

Answer 2

我有一个wab的例子，可能对你有帮助，你看看吧！
（·￥·）

Answer 3

http://www.microsoft.com/AccessDev/AccWhite/ExchWiz.htm这个链接似乎已经不存在了.而且是vb的示例.其实我有vc的例子;而我现在是想把自己以前的一个delphi程序(自己用)增加通讯录导入功能,需要delphi的源码(我久没碰delphi,已经生疏了,惭愧).

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
var Ns:_NameSpace;
   Fd:MAPIFolder;
   Im:Items;
   ContItem:ContactItem;
   i:integer;
begin
 self.OutlookApplication1.Connect;
 Ns:=OutlookApplication1.GetNamespace('MAPI');
 Fd:=Ns.GetDefaultFolder(olFolderContacts);
 Im:=Fd.Items;
 for i:=1 to Im.Count do
 begin
   ContItem:=Im.Item(i) as _ContactItem;
   ListBox1.Items.Add(ContItem.Email1Address);
 end; self.OutlookApplication1.disConnect;end;这里只取了email  

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
var Ns:_NameSpace;
   Fd:MAPIFolder;
   Im:Items;
   ContItem:ContactItem;
   i:integer;
begin
 self.OutlookApplication1.Connect;
 Ns:=OutlookApplication1.GetNamespace('MAPI');
 Fd:=Ns.GetDefaultFolder(olFolderContacts);
 Im:=Fd.Items;
 for i:=1 to Im.Count do
 begin
   ContItem:=Im.Item(i) as _ContactItem;
   ListBox1.Items.Add(ContItem.Email1Address);
 end; self.OutlookApplication1.disConnect;end;这里只取了email  

Answer 6

dickeybird888(于伟刚) :我已经收到你的mail,并试运行了一下,不错.好像warning较多,我再研究参考一下.多谢.
grail_(grail_) :感谢你的支持,尽管你晚了点.给你20分.
dickeybird888(于伟刚) :本来给你100分,但给了20分给grail_(grail_),我再开新贴弥补,你请注意.
揭帖.