微软专家看了，关于outlook automation

[WQ]

我想到出outlook的通讯簿
由框架代码最好

我写的有错
_Application olApp;
_Items olItem;
_ContactItem olConItem;
MAPIFolder olContactFolder;
COleException e;
if(!olApp.CreateDispatch("Outlook.Application", &e))
{
CString str;
str.Format("CreateDispatch() failed w/error 0x%08lx", e.m_sc);
AfxMessageBox(str, MB_SETFOREGROUND);
return;
}
// Logon. Doesn't hurt if you are already running and logged on...
_NameSpace olNs(olApp.GetNamespace("MAPI"));
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
olNs.Logon(covOptional, covOptional, covOptional, covOptional);
// 读
// Get Default Contact Folder information...
olContactFolder=olNs.GetDefaultFolder(olFolderContacts);
olItem = olContactFolder.GetItems();
CComVariant varTemp((long)1);
olConItem = olItem.Item(varTemp);

///////////////////////////////////////////////////
说olFolderContacts undeclared identifier

[masterz]

_Application olApp;
_Items olItem;
_ContactItem olConItem;
MAPIFolder olContactFolder;
COleException e;
if(!olApp.CreateDispatch("Outlook.Application", &e))
{
CString str;
str.Format("CreateDispatch() failed w/error 0x%08lx", e.m_sc);
AfxMessageBox(str, MB_SETFOREGROUND);
return;
}
// Logon. Doesn't hurt if you are already running and logged on...
_NameSpace olNs(olApp.GetNamespace("MAPI"));
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
olNs.Logon(covOptional, covOptional, covOptional, covOptional);
// 读
// Get Default Contact Folder information...
const long olFolderContacts = 10;
olContactFolder=olNs.GetDefaultFolder(olFolderContacts);
olItem = olContactFolder.GetItems();
//CComVariant varTemp((long)1);
COleVariant varTemp((long)1);
olConItem = olItem.Item(varTemp);
AfxMessageBox(olConItem.GetFirstName());

[strip]

#include <comdef.h>
#include "msoutl.h"
// Ole-initialization class.
class OleInitClass {
public:
OleInitClass() {
OleInitialize(NULL);
}
~OleInitClass() {
OleUninitialize();
}
};
// This global class calls OleInitialize() at
// application startup, and calls OleUninitialize()
// at application exit...
OleInitClass g_OleInitClass;
void CGetOutlookContactsDlg::OnButton1()
{
// Start Outlook.
// If it is already running, you'll use the same instance...
_Application olApp;
COleException e;
if(!olApp.CreateDispatch("Outlook.Application", &e)) {
CString str;
str.Format("CreateDispatch() failed w/error 0x%08lx", e.m_sc);
AfxMessageBox(str, MB_SETFOREGROUND);
return;
}

// Logon. Doesn't hurt if you are already running and logged on...
_NameSpace olNs(olApp.GetNamespace("MAPI"));
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
olNs.Logon(covOptional, covOptional, covOptional, covOptional);

MAPIFolder olContactFolder;
const long olFolderContacts = 10;

olContactFolder=olNs.GetDefaultFolder(olFolderContacts);

_Items olItems = olContactFolder.GetItems();
long lCount = olItems.GetCount();
for( long i=0; i<lCount; i++ )
{
variant_t vIndex = (i+1l);
_ContactItem olContact(olItems.Item( vIndex ));
TRACE("%s\n", olContact.GetFullName());
}

// // Create and open a new contact
// _ContactItem olItem(olApp.CreateItem(2));
//
// // Setup Contact information...
// olItem.SetFullName("James Smith");
// COleDateTime bdDate;
// bdDate.SetDate(1975, 9, 15);
// olItem.SetBirthday(bdDate);
// olItem.SetCompanyName("Microsoft");
// olItem.SetHomeTelephoneNumber("704-555-8888");
// olItem.SetEmail1Address("[e-mail]");
// olItem.SetJobTitle("Developer");
// olItem.SetHomeAddress("111 Main St.\nCharlotte, NC 28226");
//
// // Save Contact
// olItem.Save();




AfxMessageBox("All done.", MB_SETFOREGROUND);
olNs.Logoff();

}

[strip]

FYI:

enum OlDefaultFolders
{
olFolderDeletedItems = 3,
olFolderOutbox = 4,
olFolderSentMail = 5,
olFolderInbox = 6,
olFolderCalendar = 9,
olFolderContacts = 10,
olFolderJournal = 11,
olFolderNotes = 12,
olFolderTasks = 13,
olFolderDrafts = 16,
olPublicFoldersAllPublicFolders = 18
};

[masterz]

http://www.codeguru.com/misc/OutlookContacts.html