🚀 go-pugleaf

"Rodolfo Frino" <rodolfofrino@yahoo.com> wrote in message
news:3f77e4bb@newsgroups.borland.com...

> Can you post an example of the code you refer to?

Here is an adaptation of your OE code.  I have tested this with my OE, it
works for me:

    #include <utilcls.h>
    #include <oleacc.h>
    #include <mshtml.h>

    #define CTRLID_DOCHOST  1000
    #define CTRLID_ENVELOPE  1015
    #define CTRLID_REBAR  1999
    #define CTRLID_TOOLBAR  2101

    #define CTRLID_CC   1003
    #define CTRLID_SUBJECT  1004

    HWND __fastcall FindNewMessageWnd()
    {
        HWND hWnd = FindWindow("ATH_Note", "New Message");
        if( !hWnd )
        {
            // wait for the window to appear, up to 5 seconds
            DWORD dw = 0;
            do
            {
                Sleep(500);
                hWnd = FindWindow("ATH_Note", "New Message");
            }
            while( (hWnd == NULL) && (++dw < 10) );
        }
        return hWnd;
    }

    HWND __fastcall FindReBarWnd(HWND hWnd)
    {
        // find the ReBar that hosts the Toolbar containing the
        // "Send" button

        HWND hSizableReBarWnd = GetDlgItem(hWnd, 0);
        if( hSizableReBarWnd )
            return GetDlgItem(hSizableReBarWnd, CTRLID_REBAR);
        return NULL;
    }

    HWND __fastcall FindMainTextWnd(HWND hWnd)
    {
        if( hWnd )
        {
            // obtain the HWND of the Internet Explorer instance
            // that is used for the main text of the message

            HWND hDocHost = GetDlgItem(hWnd, CTRLID_DOCHOST);
            if( hDocHost )
            {
                HWND hMimeEdit = GetWindow(hDocHost, GW_CHILD);
                if( hMimeEdit )
                    return GetWindow(hMimeEdit, GW_CHILD);
            }
        }
        return NULL;
    }

    void __fastcall SetEditText(HWND hWnd, const AnsiString &asText)
    {
        // The edit fields are RichEdit v2.0 instances, which apparently
        // does not handle WM_SETTEXT correctly when sent from
        // another process, so post the individual characters instead.

        if( hWnd )
        {
            int iLength = asText.Length();
            for(int x = 1; x <= iLength(); ++x)
                SendMessage(hWnd, WM_CHAR, (WPARAM)asText[x], 0);
        }
    }

    void __fastcall SetMainMsgText(HWND hWnd, const AnsiString &asText)
    {
        // Since the main text is an Internet Explorer instance, use
        // the DHTML DOM to modify the text.  Use ObjectFromLresult()
        // to help get the IHTMLDocument2 interface from the HWND.

        static const UINT uMsg = RegisterWindowMessage("WM_HTML_GETOBJECT");

        if( hWnd )
        {
            HINSTANCE hDll = LoadLibrary("OLEACC.DLL");
            if( hDll )
            {
                LPFNOBJECTFROMLRESULT pfObjectFromLresult =
(LPFNOBJECTFROMLRESULT)GetProcAddress(hDll, "ObjectFromLresult");
                if( pfObjectFromLresult )
                {
                    TInitOle ole;
                    TComInterface<IHTMLDocument2> spDoc;

                    LRESULT lRes = 0;
                    SendMessageTimeout(hWnd, uMsg, 0, 0, SMTO_ABORTIFHUNG,
1000, (DWORD*)&lRes);

                    if( SUCCEEDED(pfObjectFromLresult(lRes,
IID_IHTMLDocument2, 0, (LPVOID*)&spDoc)) )
                    {
                        TComInterface<IHTMLElement> spBody;
                        if( SUCCEEDED(spDoc->get_body(&spBody)) )
                            spBody->put_innerText(WideString(asText));
                    }
                }

                FreeLibrary(hDll);
            }
        }
    }


    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        if( ShellExecute(NULL, "open", "mailto:rodolfofrino@yahoo.com", 0,
0, SW_SHOWNORMAL) > (HINSTANCE)32 )
        {
            // find the new message window
            HWND hNewMsgWnd = FindNewMessageWnd();
            if( hNewMsgWnd )
            {
                // find the envelope containing the header fileds
                HWND hEnvelope = GetDlgItem(hNewMsgWnd, CTRLID_ENVELOPE);
                if( hEnvelope )
                {
                    // fill in the desired headers of the message
                    SetEditText(GetDlgItem(hEnvelope, CTRLID_CC),
"name2@hotmail.com");
                    SetEditText(GetDlgItem(hEnvelope, CTRLID_SUBJECT), "This
is the subject");
                }

                // set the main text of the message
                SetMainMsgText(FindMainTextWnd(hNewMsgWnd), "Hello E-World,
this is the body of my e-mail
(yahoo)\n\nname@hotmail.com\n\n!@#$%^&*()_+{}|:\"<>?\n\"Bye Bye\"!");

                // submit the message by simlating the "Send" button being
clicked
                HWND hReBar = FindReBarWnd(hNewMsgWnd);
                if( hReBar )
                    SendMessage(hReBar, WM_COMMAND, MAKEWPARAM(0x9DDB, 0),
(LPARAM)GetDlgItem(hReBar, CTRLID_TOOLBAR));
            }
        }
    }


Gambit