I'm trying to write a simple routine to send emails using CDO and Borland C++ Builder 5 on a Win2k machine.

The MSDN Example listed below (listing1) doesn't work with  BCB. It sometimes gets and internal compiler error and finds duplicate declarations. The BCB help says that using the #import is not a recommended method and that I should use the "Import type library" menu option instead. I tried that approach also and what I have now is listing 2:
It compiles and runs Ok, but nothing is sent or received. If I use :

fld = Flds->get_Item(cdoURLProxyServer);
fld->set_Value(TVariantInParam("Server:8080"));
fld->Release();

instead of :

Flds->get_Item(cdoURLProxyServer)->set_Value(TVariantInParam("Server:8080"));
fld->Release();

then I get and AV on the fld->set_Value line.

There's to be no Flds->Update() method.

and the Stm->SaveToFile(... line also causes and AV.

Any help would be appreciated.



Listing 1: MSDN Example;
========================
#import "d:\program files\common files\system\ado\msado15.dll" no_namespace
#import <cdosys.dll> no_namespace
#include <iostream.h>

void main()
{
  CoInitialize();
  {
    IMessagePtr   iMsg(__uuidof(Message));
    IBodyPartPtr  iBp;
    IBodyPartsPtr iBps;
    _StreamPtr    Stm;
    _bstr_t       filepath;

    IConfigurationPtr iConf(__uuidof(Configuration));
    FieldsPtr         Flds;
    Flds         =    iConf->Fields;
    Flds->Item[cdoSendUsingMethod]->Value       =
          _variant_t(cdoSendUsingPort);
    Flds->Item[cdoSMTPServerName]->Value        =
          _variant_t("somehost@microsoft.com");
    Flds->Item[cdoSMTPConnectionTimeout]->Value = _variant_t((long)10);
    Flds->Item[cdoSMTPAuthenticate]->Value      = _variant_t(cdoBasic);
    Flds->Item[cdoSendUserName]->Value          = _variant_t("username");
    Flds->Item[cdoSendPassword]->Value          = _variant_t("password");
    Flds->Item[cdoURLProxyServer]->Value        = _variant_t("server:80");
    Flds->Item[cdoURLProxyBypass]->Value        = _variant_t("<local>");
    Flds->Item[cdoURLGetLatestVersion]->Value   =
          _variant_t(VARIANT_TRUE);
    Flds->Update();

    iMsg->To        = "\"SomeOne\" <someone@fake.microsoft.com>";
    iMsg->From      = "\"Another\" <another@fake.microsoft.com>";
    iMsg->Subject   = "Here is a subject for the message.";

    /*
    ** attach an html file to message
    ** your local path goes in the "path"
    ** variable below
    */
    try
    {
      filepath  = _bstr_t(path) + _bstr_t("\\htmlfile.html");
      iMsg->AddAttachment(filepath,"","");
    }
    catch (_com_error e)
    {
      //...
    }

    /*
    ** Attach Word 2000 file to message
    */
    try {
      filepath  = _bstr_t(path) + _bstr_t("\\wordfile.doc");
      iMsg->AddAttachment(filepath,"","");
    }
    catch (_com_error e)
    {
      //...
    }
   
    /*
    ** Create MTHML body.
    */
    try
    {
      iMsg->CreateMHTMLBody(
                  "http://mypage",
                  cdoSuppressAll,
                  "",
                  "");
    }
    catch (_com_error e)
    {
      //...
    }

    iMsg->Send();

    // save message
    Stm    = iMsg->GetStream();
    Stm->SaveToFile(_bstr_t("message.eml"),adSaveCreateOverWrite);

  }
  CoUninitialize();
}

Listing 2:
============
#pragma hdrstop
#include <cdo_tlb.h>
#include <cdosysstr.h>
#include "cdosys_i.c"

extern "C" int TestMessage()
{
      TCOMIMessage        iMsg;
      TCOMIConfiguration iConf;
      IBodyPart         *iBp;
      IBodyParts            *iBps;
      _Stream               *Stm;
      int rcode;
      HRESULT hr;
      TInitOle                  tInit;

      /*
      ** Create an instance of the Message and configuration COM class.
      */
      iMsg = CoMessage::Create();
      iConf = CoConfiguration::Create();

      Fields                *Flds;
      Flds = iConf->get_Fields();
      Field *fld;
      fld = Flds->get_Item(cdoSendUsingMethod);
      fld->set_Value(TVariantInParam((short)cdoSendUsingPort));
      fld->Release();
      fld = Flds->get_Item(cdoSMTPServer);
      fld->set_Value(TVariantInParam("192.168.0.1"));
      fld->Release();
      fld = Flds->get_Item(cdoSMTPServerPort);
      fld->set_Value(TVariantInParam((long)25));
      fld->Release();
      fld = Flds->get_Item(cdoSMTPConnectionTimeout);
      fld->set_Value(TVariantInParam((long)10));
      fld->Release();
      Flds->get_Item(cdoSMTPAuthenticate)->set_Value(TVariantInParam(cdoBasic));
//      fld->Release();
      fld = Flds->get_Item(cdoSendUserName);
      fld->set_Value(TVariantInParam("softlif2"));
      fld->Release();
      fld = Flds->get_Item(cdoSendPassword);
      fld->set_Value(TVariantInParam("j3raboam"));
      fld->Release();
      Flds->get_Item(cdoURLProxyServer)->set_Value(TVariantInParam("Stan:3128"));
//      fld->Release();
      Flds->get_Item(cdoURLProxyBypass)->set_Value(TVariantInParam("<local>"));
//      fld->Release();
      Flds->get_Item(cdoURLGetLatestVersion)->set_Value(TVariantInParam(VARIANT_TRUE));
//      fld->Release();
//      Flds->Update();
      Flds->Release();

      iMsg->set_Configuration(iConf);
      wchar_t from[] = L"\"Someone\" <someone@somewhere.co.nz>";
      iMsg->set_To(from);
      iMsg->set_From(L"\"Another\" <someone@somewhere.co.nz>");
      iMsg->set_Subject(L"Here is a subject for the message.");

      /*
      ** attach an html file to message
      ** your local path goes in the "path"
      ** variable below
      */
      if (iMsg->Send() != S_OK)
            rcode = R_ERROR;


      // save message
      Stm    = iMsg->GetStream();
      Stm->SaveToFile(L"e:\\temp\\message.eml",adSaveCreateOverWrite);
      Stm->Release();
      iMsg->Release();
      iConf->Release();
      return(rcode);