5,386
社区成员
发帖
与我相关
我的任务
分享请问如何将outlook的.wab的通讯录导入自己的数据库？
如何把OE的.wab或者.csv文件中的通讯录导入自己的数据库?
最好有源码:heqin153@sina.com
最好有源码:heqin153@sina.com
...全文
请发表友善的回复…
发表回复
ujjcel 2004-03-14
- 打赏
- 举报
up
horin153 2003-10-20
- 打赏
- 举报
dickeybird888(于伟刚) :我已经收到你的mail,并试运行了一下,不错.好像warning较多,我再研究参考一下.多谢.
grail_(grail_) :感谢你的支持,尽管你晚了点.给你20分.
dickeybird888(于伟刚) :本来给你100分,但给了20分给grail_(grail_),我再开新贴弥补,你请注意.
揭帖.
grail_(grail_) :感谢你的支持,尽管你晚了点.给你20分.
dickeybird888(于伟刚) :本来给你100分,但给了20分给grail_(grail_),我再开新贴弥补,你请注意.
揭帖.
grail_ 2003-10-20
- 打赏
- 举报
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
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
grail_ 2003-10-20
- 打赏
- 举报
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
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
horin153 2003-10-20
- 打赏
- 举报
http://www.microsoft.com/AccessDev/AccWhite/ExchWiz.htm这个链接似乎已经不存在了.而且是vb的示例.其实我有vc的例子;而我现在是想把自己以前的一个delphi程序(自己用)增加通讯录导入功能,需要delphi的源码(我久没碰delphi,已经生疏了,惭愧).
dickeybird888 2003-10-20
- 打赏
- 举报
我有一个wab的例子，可能对你有帮助，你看看吧！
（·￥·）
（·￥·）
rainsea 2003-10-20
- 打赏
- 举报
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.”
