#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","ADOEOF")
#import <cdosys.dll> no_namespace 

void send(_TCHAR* pFrom,_TCHAR* pTo,_TCHAR* pSubject,_TCHAR* pBody,_TCHAR* fName,_TCHAR* contentType)throw(_com_error)
{ 
   IMessagePtr iMsg(__uuidof(Message)); 
   FieldsPtr BFlds;
   IBodyPartPtr iBpf;
   _StreamPtr   Stm;

   BFlds = iMsg->Fields;
   BFlds->Item[cdoTo]->Value      = pTo; 
   BFlds->Item[cdoFrom]->Value    = pFrom; ;
   BFlds->Item[cdoSubject]->Value = pSubject; 
   BFlds->Item[cdoTextDescription]->Value = pBody; 
   BFlds->Update();
   iBpf= iMsg->BodyPart->AddBodyPart(- 1 );
   iBpf->ContentMediaType = contentType;
   iBpf->ContentTransferEncoding = "base64";
   Stm = iBpf->GetDecodedContentStream();
   Stm->LoadFromFile(fName);
   Stm->Flush();
   iMsg->Send();
}