🚀 go-pugleaf

"Remy Lebeau \(TeamB\)" <no.spam@no.spam.com> wrote:
>
>"Royce" <rfessenden@dmp.com> wrote in message
>news:46e19c52$1@newsgroups.borland.com...
>
>> Is there any other information I might be able to provide that might help?
>
>Please show the exact code you are using now.
>
>
>Gambit
>
>
>
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->ContentType = "text/plain";
    txt->Body->Append("txt With zips attached.");

    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;
}

The .dfm settings of the components are as follows:
object SMTPClient: TIdSMTP
    MaxLineAction = maException
    Host = 'mail.dmp.com'
    Port = 25
    AuthenticationType = atNone
    HeloName = 'Link'
    Password = 'xxxxxx'
    Username = 'engtesting'
    Left = 176
    Top = 52
  end
  object MailMessage: TIdMessage
    AttachmentEncoding = 'MIME'
    BccList = <>
    CCList = <>
    ContentType = 'Application/Zip'
    ContentTransferEncoding = 'Base64'
    Encoding = meMIME
    From.Address = 'engtesting@dmp.com'
    From.Name = 'engtesting'
    From.Text = 'engtesting <engtesting@dmp.com>'
    Recipients = <
      item
        Address = 'rfessenden@dmp.com'
        Name = 'Royce'
        Text = 'Royce <rfessenden@dmp.com>'
      end>
    ReplyTo = <>
    Subject = 'Email via Link'
    Left = 176
    Top = 104
  end