// The following example codes demonstrate parsing winmail.dat - TNEF stream
// 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 ); 

        if( oMail->IsEncrypted == VARIANT_TRUE ) 
        { 
            // this email is encrypted, we decrypt it by user default certificate.
            // you can also use specified certificate like this
            // ICertificatePtr oCert = NULL;
            // oCert.CreateInstance("EAGetMailObj.Certificate");
            // oCert->LoadFromFile(_T("c:\\test.pfx"), _T("pfxpassword"), CRYPT_USER_KEYSET);
            // oMail = oMail->Decrypt( oCert );
            oMail = oMail->Decrypt( NULL ); 

        } 

        if( oMail->IsSigned == VARIANT_TRUE ) 
        { 
            // This email is digital signed.
            ICertificatePtr oCert = oMail->VerifySignature(); 
            _tprintf( _T("This email contains a valid digital signature.\r\n")); 
            // You can add the certificate to your certificate storage like this
            // oCert->AddToStore( CERT_SYSTEM_STORE_CURRENT_USER,
            // _T("addressbook"));
            // then you can use send the encrypted email back to this sender.
        } 

        // 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); 

            if( _tcsicmp((const TCHAR*)pAtt->Name, _T("winmail.dat")) == 0 ) 
            { 
                // this attachment is in OUTLOOK RTF (TNEF) format, decode it here.
                _variant_t tatts; 
                tatts = oMail->ParseTNEF( pAtt->Content, VARIANT_TRUE ); 

                long XLBound = 0, XUBound = 0; 
                SAFEARRAY* tpsa = tatts.parray; 
                SafeArrayGetLBound( tpsa, 1, &XLBound ); 
                SafeArrayGetUBound( tpsa, 1, &XUBound ); 
                for( long x = XLBound; x <= XUBound; x++ ) 
                { 
                    _variant_t vttAtt; 
                    SafeArrayGetElement( tpsa, &x, &vttAtt ); 
                    IAttachmentPtr ptAtt; 
                    vttAtt.pdispVal->QueryInterface( __uuidof(IAttachment), (void**)&ptAtt ); 
                    _tprintf(_T("winmail.dat: %s\r\n"), (const TCHAR*)ptAtt->Name); 
                } 
                continue; 
            } 

            _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; 
}