CDO using Borland C++ Builder 5

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);
dchellAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

DanRollinsCommented:
You might be able to avoid compiler errors in listing #1 by using this technique:

Compile once.  The #import will generate a .H files like,

    d:\myproj\test\debug\cdosys.tlh
and
    d:\myproj\test\debug\msado15.tlh
   
At that point, comment out the #import lines and add these lines:

#include "d:\myproj\test\debug\cdosys.tlh"
#include "d:\myproj\test\debug\msado15.tlh"

But you should also check into the files that you are #import-ing.  DO a full-disk search for msado15.dll and cdosys.dll and make sure that you are importing the right files.  You must import the same dll that will be loaded when you instantiate the object and if there are two or more copies of the a DLL then that becomes a bit iffy.

-- Dan
0
dchellAuthor Commented:
Thanks, That's solved the Internal Compiler error problems, now I  get:

MSADO15.LH(844) Unrecognized __declspec modifier
MSADO15.TLH(844) Declaration does not specifiy a tag or an identifier
MSADO15.TLH(840) 'GetRow' is not a member of 'ADORecordConstruction'
0
dchellAuthor Commented:
Don't panic, I've fixed that one - the following line was missing two close brackets/
0
Cloud Class® Course: Certified Penetration Testing

This CPTE Certified Penetration Testing Engineer course covers everything you need to know about becoming a Certified Penetration Testing Engineer. Career Path: Professional roles include Ethical Hackers, Security Consultants, System Administrators, and Chief Security Officers.

DanRollinsCommented:
Which line was that?  I have no problem compiling that file with VC++
-- Dan
0
dchellAuthor Commented:
Now it compiles fine but I have the following 3 unresolved externals at link time:
__stdcall_com_issue_error(long)
_com_dispatch_method(IDispatch *, long, unsigned short, unsigned short, void *, const wchar_t *, ...)
_stdcall_com_util::ConvertStringToBSTR(const char *)

MSDN says that _com_dispatch_method is an undocumented runtime library function. It's obviously not in BCB's runtime library - I've searched all files on my disk for _com_dispatch_method - nothing.

0
DanRollinsCommented:
According to the MSDN article:
PRB: Use IDispatch for Objects Created by a DataSpace Object
it should be easy to create a replacement for that function.  I don't have the code.

Do you have a file named COMSUPP.LIB ? that seems to provide the code for a number of these utility fns.

-- Dan
0
dchellAuthor Commented:
I didn't have a comsupp.lib, so I hunted around and found one - but BCB doesn't like the format of it. I get a linker error: COMSUPP.LIB contains and invalid OMF record, type 0x21 (possible COFF).

The problem is that there's 111 calls to _com_dispatch_method in the automatically generated cdosys.tli file and then there's _stdcall_com_issue_error and ConvertStringToBSTR to replace.
0
DanRollinsCommented:
If you can get the comsupp.dll, you can use the borland tools to generate a .LIB file for it.

-- Dan
0
dchellAuthor Commented:
Yep, I'd thought of that too, but it's not an import library - it's part of the VC static runtime library.
0
DanRollinsCommented:
You might be better off using a different system for sending emails.  There are many available that are totally compiler agnostic.  Have you rejected that idea?

-- Dan
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
dchellAuthor Commented:
Well I started off using MAPI and Extended MAPI but I have a problem with the MAPI Spooler hanging - see http://www.experts-exchange.com/Programming/Programming_Platforms/Win_Prog/Q_20513569.html

In my travels through MSDN I spotted CDO as a possibility and thought I'd give it a try.

I do have another option - and that is to install Visual Studio (I have it on CD) and compile just the CDO module with that - but I'm a bit short of disk space (need to clean out some games). It's not a favoured option as it makes debugging somewhat tiresome. I've also left a message on the Borland newsgroups and am waiting for a response.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Development

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.