COM实现读取outlook附件代码片段

HRESULT hr;

CComPtr<Outlook::_NameSpace> spSession = NULL;
hr = m_spExplorer->get_Session(&spSession);
ATLASSERT(spSession);

CComPtr<Outlook::MAPIFolder> spMPFolder = NULL;
hr = spSession->GetDefaultFolder(Outlook::olFolderOutbox, &spMPFolder);
ATLASSERT(spMPFolder);

CComPtr<Outlook::_Items> spItems = NULL;
spMPFolder->get_Items(&spItems);

long lCount = 0;
spItems->get_Count(&lCount);
for(long i = 1; i <= lCount; i++)
{
VARIANT var;
var.vt = VT_I4;
var.lVal = i;
IDispatch *pItem = NULL;
spItems->Item(var, &pItem);
Outlook::_MailItem* pMailItem = (Outlook::_MailItem*)(pItem);
CComPtr<Outlook::Attachments> spAttachments = NULL;
pMailItem->get_Attachments(&spAttachments);
long l = 0;
spAttachments->get_Count(&l);
for (long j = 1; j <= l; j++)
{
VARIANT varAt;
varAt.vt = VT_I4;
varAt.lVal = j;
CComPtr<Outlook::Attachment> spAttachment = NULL;
spAttachments->Item(varAt, &spAttachment);
BSTR strAtName;
spAttachment->get_FileName(&strAtName);
//spAttachment->SaveAsFile(L"C:\\"+ strAtName); 
}
}