🚀 go-pugleaf

"Paw Suddergaard" <paw@easyflex.dk> wrote in message
news:428c63af@newsgroups.borland.com...

> I can send the email, and the attachments. But the html come out as
code...

That is because you are not setting up the message properly at all.

>     TIdText(IdMessage->MessageParts, TempList); //just the same...
>     TIdText(IdMessage->MessageParts, TempList); //html

That shouldn't even compile.  You need to call TIdText's constructor via the
'new' operator.

Also, you never set up the ContentType for the TIdText instances at all.

Also, you have memory leaks in your use of temporary TStringList that you
never free properly.

Use this code instead:

    try
    {
        IdMessage->From->Address = FromEmail;
        IdMessage->From->Name = FromName;
        IdMessage->ReplyTo->EMailAddresses = FromEmail;
        IdMessage->Subject = eSubject->Text;
        IdMessage->Recipients->EMailAddresses = ToEMail;
        TIdText *TempText = new TIdText(IdMessage->MessageParts, NULL);
        TempText->ContentType = "text/plain";
        // fill in TempText->Body with plain text...
        TempText = new TIdText(IdMessage->MessageParts, NULL);
        TempText->ContentType = "text/html";
        // fill in TempText->Body with html...
        TStringList *TempList = FindImagesInHTML(Filename);
        try
        {
            for(int i = 0; i < TempList->Count; ++i)
            {
                TIdAttachment *IImagePart = new
TIdAttachment(IdMessage->MessageParts, TempList->Strings[i]);
                IImagePart->ContentType = "image/jpg";
                IImagePart->ContentID =
ExtractFileName(TempList->Strings[i]);
            }
        }
        __finally {
            delete TempList;
        }
        IdSMTP->Host = frmToolL->Host;
        IdSMTP->Username = frmToolL->UserId;
        IdSMTP->Connect();
        try {
            IdSMTP->Send(IdMessage);
        }
        __finally {
            IdSMTP->Disconnect();
        }
    }
    catch(const Exception &) {
        //...
    }


Gambit