Отправка файла по почте

[leffken]

Всем доброго времени суток .
пишу на bds 2006 delphi
ищу по сети уже довольно много времени : как сделать отправку файла по почте . находил кучу исходников , но там либо что то в uses писать надо , что конкретно не написано . Либо просто пишут все работает(от куда беру исходник) , копирую код все подсвечивается красным(не известное что то ) . подскажите как сделать отправку файла по почте от и до ...
желательно что бы это было как из консольного приложения .
заранее благодарен .

[Usov]

Как то так, выдрано с контекста:

  function SendMes(AMes, ASubj, AFrom, APwd, ATo, AAttach: String; var AErrMes: String): Boolean;
  var
    idSMTP: TIdSMTP;
    IdMessage: TIdMessage;
    idTextPart : TIdText;
    idAtt: TIdAttachmentFile;
  begin
    Result := False;

    idSMTP := TIdSMTP.Create;
    idSMTP.Host := fmMain.edHost.Text;
    idSMTP.Port := fmMain.sePort.Value;
    idSMTP.Username := AFrom;
    idSMTP.Password := APwd;

    IdMessage := TIdMessage.Create(nil);
    IdMessage.Recipients.EMailAddresses := ATo;
    IdMessage.From.Address := AFrom;
    IdMessage.Subject :='';
    IdMessage.ExtraHeaders.Add('Subject: ' + ASubj);
    //IdMessage.CharSet := 'windows-1251';
    //IdMessage.ContentType := 'text/html';
    IdMessage.ContentType := 'multipart/mixed';
    IdMessage.Encoding := meMime;
    //IdMessage.Body.Text := AMes;

    if not fmMain.chbNoBody.Checked then
    begin
      idTextPart := TIdText.Create(IdMessage.MessageParts, nil);
      idTextPart.ContentType := 'text/html';
      idTextPart.CharSet := 'windows-1251';
      idTextPart.Body.Add(AMes);// описание в html виде
      //idTextPart.ParentPart := 0;
    end;

    if FileExists(AAttach) then
    begin
      idAtt := TIdAttachmentFile.Create(IdMessage.MessageParts, AAttach);
      idAtt.ContentType := 'application/octet-stream';
      idAtt.FileName := AAttach;
    end;


    //SMTPMsg.IsEncoded := True;

    try
      idSMTP.Connect;
      idSMTP.Send(IdMessage);
      idSMTP.Disconnect;
      Result := True;
      //Log('Уведомление отослано.');
      //SaveLog('Уведомление отослано.', ChangeFileExt(ParamStr(0), '.log'), True, False);
    except
      on E: Exception do
      begin
        AErrMes := E.Message;
        //Log('Ошибка отправки уведомления: ' + E.Message);
        //SaveLog('Ошибка отправки уведомления: ' + E.Message, ChangeFileExt(ParamStr(0), '.log'), True, False);
      end;
    end;
    if not fmMain.chbNoBody.Checked then idTextPart.Free;
    if FileExists(AAttach) then idAtt.Free;
    IdMessage.Free;
    idSMTP.Free;
  end;