#include "easendmailobj.tlh"

using namespace EASendMailObjLib;

int _tmain(int argc, _TCHAR* argv[])
{

	::CoInitialize( NULL );

    IMailPtr oSmtp = NULL;
    oSmtp.CreateInstance( "EASendMailObj.Mail");
    oSmtp->LicenseCode = _T("TryIt");

    // Set your sender email address
    oSmtp->FromAddr = _T("ralew1@wp.pl");

    // Add recipient email address
    oSmtp->AddRecipientEx( _T("rabarbar923@gmail.com"), 0 );

    // Set email subject
    oSmtp->Subject = _T("HTML email from Visual C++ project with attachment");

    // Set HTML body format
    oSmtp->BodyFormat = 1;

    // Set HTML body text
    oSmtp->BodyText = _T("<font size=5>This is</font> <font color=red><b>a test</b></font>");

    // Add attachment from local disk
    if(oSmtp->AddAttachment( _T("D:\Fraps\changes.txt")) != 0)
    {
        _tprintf( _T("Failed to add attachment with error: %s\r\n"),
             (const TCHAR*)oSmtp->GetLastErrDescription());
    }



    // Your SMTP server address
    oSmtp->ServerAddr = _T("smtp.wp.pl");

    oSmtp->UserName = _T("ralew1@wp.pl");
    oSmtp->Password = _T("tu bylo moje haslo");

    oSmtp->SSL_init();

    _tprintf(_T("Start to send HTML email ...\r\n" ));

    if( oSmtp->SendMail() == 0 )
    {
        _tprintf( _T("email was sent successfully!\r\n"));
    }
    else
    {
        _tprintf( _T("failed to send email with the following error: %s\r\n"),
            (const TCHAR*)oSmtp->GetLastErrDescription());
    }

    if( oSmtp != NULL )
        oSmtp.Release();

	getch();

    return 0;
}