🚀 go-pugleaf

"Remy Lebeau \(TeamB\)" <no.spam@no.spam.com> wrote:
>
>"Royce Fessenden" <rfessenden@dmp.com> wrote in message
>news:46e03084$1@newsgroups.borland.com...
>
>> I can send an email but I can't get the attachment to be included.
>
>That is because you are putting the text in the wrong place and setting the
>wrong ContentType for the message.  Try this instead:
>
>    int TMainForm::TestFunction(void)
>    {
>        AnsiString FileToAttach = "C:\\Link\\Logs\\Logs.zip";
>
>        if( !FileExists(FileToAttach) )
>        {
>            Log->Lines->Add("File <" + FileToAttach + "> does not exist.");
>            return -1;
>        }
>
>        Log->Lines->Add("Attaching file " + FileToAttach);
>        TDMPCursor MyCursor(crHourGlass);
>
>        MailMessage->ContentType = "multipart/mixed";
>
>        TIdText *txt = new TIdText(MailMessage->MessageParts, NULL);
>        txt->Body->Add("With attachment.");
>        txt->ContentType = "text/plain";
>
>        TIdAttachment* LogFile = new
>TIdAttachment(MailMessage->MessageParts, FileToAttach);
>        LogFile->FileName = ExtractFileName(FileToAttach);
>        //LogFile->ContentType = GetMIMETypeFromFile(LogFile->FileName);
>        LogFile->ContentType = "application/zip";
>
>        SMTPClient->Connect();
>        try
>        {
>            SMTPClient->Send(MailMessage);
>        }
>        __finally
>        {
>            SMTPClient->Disconnect();
>        }
>
>        Log->Lines->Add("TestFunction Completed");
>        return 0;
>    }
>
>
>Gambit
>
>

Now I'm getting an Access violation at the line:  txt->Body->Add("With attachment.");

Body appears to be NULL, though the debug shows a valid address for the ->Add() method.  I tried several things, including replacing the NULL (second parameter) in the txt constructor with MailMessage->Body.  I can change the place where I get an error, but anything that will run and send an email does not send the attachment.  There's got to be something else I'm missing.

Royce