// The following example codes demonstrate parsing email (*.EML) file
// To get full sample projects, please download and install EAGetMail on your machine.
// To run it correctly, please change email server, user, password, folder, file name value to yours

#include "stdafx.h" 

#include "eagetmailobj.tlh" 
using namespace EAGetMailObjLib; 

void ParseEmail( LPCTSTR lpszFile ) 
{ 
    try 
    { 
        IMailPtr oMail = NULL; 
        oMail.CreateInstance("EAGetMailObj.Mail"); 
        oMail->LicenseCode = _T("TryIt"); 

        oMail->LoadFile( lpszFile, VARIANT_FALSE ); 

        // Parse email sender
        _tprintf(_T("From: %s\r\n"), (const TCHAR*)oMail->From->Address); 

        // Parse to recipient
        _variant_t varry = oMail->To; 
        SAFEARRAY *psa = varry.parray; 
        long i = 0, LBound = 0, UBound = 0; 
        SafeArrayGetLBound( psa, 1, &LBound ); 
        SafeArrayGetUBound( psa, 1, &UBound ); 
        for( i = LBound; i <= UBound; i++ ) 
        { 
            _variant_t vt; 
            SafeArrayGetElement( psa, &i, &vt ); 

            IMailAddressPtr pAddr; 
            vt.pdispVal->QueryInterface(__uuidof(IMailAddress), (void**)&pAddr); 
            _tprintf(_T("To: %s\r\n"), (const TCHAR*)pAddr->Address); 
        } 

        // Parse CC
        varry = oMail->Cc; 
        psa = varry.parray; 
        SafeArrayGetLBound( psa, 1, &LBound ); 
        SafeArrayGetUBound( psa, 1, &UBound ); 
        for( i = LBound; i <= UBound; i++ ) 
        { 
            _variant_t vt; 
            SafeArrayGetElement( psa, &i, &vt ); 

            IMailAddressPtr pAddr; 
            vt.pdispVal->QueryInterface(__uuidof(IMailAddress), (void**)&pAddr); 
            _tprintf(_T("Cc: %s\r\n"), (const TCHAR*)pAddr->Address); 
        } 

        // Parse email subject
        _tprintf(_T("Subject: %s\r\n"), (const TCHAR*)oMail->Subject); 

        // Parse email text body
        _tprintf(_T("TextBody: %s\r\n"), (const TCHAR*)oMail->TextBody); 

        // Parse email HTML body
        _tprintf(_T("HtmlBody: %s\r\n"), (const TCHAR*)oMail->HtmlBody); 

        // Parse attachment
        varry = oMail->Attachments; 
        psa = varry.parray; 
        SafeArrayGetLBound( psa, 1, &LBound ); 
        SafeArrayGetUBound( psa, 1, &UBound ); 
        for( i = LBound; i <= UBound; i++ ) 
        { 
            _variant_t vt; 
            SafeArrayGetElement( psa, &i, &vt ); 

            IAttachmentPtr pAtt; 
            vt.pdispVal->QueryInterface(__uuidof(IAttachment), (void**)&pAtt); 
            _tprintf(_T("Attachment: %s\r\n"), (const TCHAR*)pAtt->Name); 
        } 

    } 
    catch( _com_error &ep ) 
    { 
        _tprintf(_T("Error: %s\r\n"), (const TCHAR*)ep.Description()); 
    } 
} 

int _tmain(int argc, _TCHAR* argv[]) 
{ 
    // Initialize COM environment
    ::CoInitialize( NULL ); 

    ParseEmail(_T("c:\\my folder\\test.eml")); 

    return 0; 
}