🚀 go-pugleaf

"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