如何通过编程获取Outook的联系人？立即结帐。谢谢！

Question

如题。

Answer 1

http://www.vckbase.com/document/viewdoc/?id=660

Answer 2

_Application m_olApp;
_NameSpace m_olNameSpace;
MAPIFolder m_olMAPIFolder;
_Folders m_olFolders;
_Items m_olItems;
_ContactItem m_olContactItem;
VARIANT varIndex;if ( !m_olApp.CreateDispatch ("Outlook.Application", &pError))
{
pError .ReportError ();
}m_olNameSpace.AttachDispatch (m_olApp.GetNamespace ("MAPI"));
//取得联系人文件夹 defaultfoldertype =10, InBox =6
m_olMAPIFolder.AttachDispatch (m_olNameSpace.GetDefaultFolder (10));
m_olNameSpace.ReleaseDispatch ();//取得联系人文件夹下的项目集合
m_olItems.AttachDispatch (m_olMAPIFolder.GetItems ());//遍历集合
for (int i =1; i <= m_olItems.GetCount (); i++)
{
varIndex.vt =VT_I4;
varIndex.lVal = i;
//取得单个项目
m_olContactItem.AttachDispatch (m_olItems.Item (varIndex));
strTmp.Format ("%s [%s]", m_olContactItem.GetFullName (), m_olContactItem.GetEmail1Address ());MessageBox(strTmp);
m_olContactItem.ReleaseDispatch ();
}