пробема с кодом отправки email

[danik123]

Доброго времени суток!
немного подправил пост нашел описанный исходник только он не компилится. Пробовал компилить на Borland C++ Builder ошибок не выдает создает два файла .tds b .obj но ехешника не создает поиогите найти ошибку в коде или подскажите на чем компилить?
Тому кто реально поможет подкину красивый семизнак "814-21-21"

#include <vcl.h>
#include<Idsmtp.hpp>
#include<IdMessage.hpp>
#include <iostream.h>

TIdSMTP *smtp;
TIdMessage *msg;
TIdAttachment *files;

void filefound()  // функция присоединения файлов к письму..(В папке с прогой должна быть папка "files" с файлами)
{
   TSearchRec sr;
  if (FindFirst("files\\*.*", faAnyFile, sr) == 0)
  {
   do
    {
   if ((sr.Attr & faAnyFile) == sr.Attr)
      {
        if(!(sr.Name=="." || sr.Name==".."))
           files = new TIdAttachment(msg->MessageParts,"files\\" + sr.Name);
      }
    } while (FindNext(sr) == 0);
    FindClose(sr);
  }
}

void main()
{
  smtp = new TIdSMTP(NULL);
  msg = new TIdMessage(NULL);

  filefound(); // функция присоединения файлов к письму..(В папке с прогой должна быть папка "files" с файлами)

  smtp->Port=25; //Порт
  smtp->Host="smtp.mail.ru"; //Хост mail.ru работает через раз...
  smtp->UserId="login@mail.ru"; // ID отправителя
  smtp->Password="password";// Пароль

  msg->From->Text="login@mail.ru"; //то же, что и  ID отправителя
  msg->Recipients->EMailAddresses="mak7v@mail.ru"; // Получатель
  msg->Subject="Subject"; //Тема письма
  msg->Body->Text="Test__mak7v";   //Тело письма, содержимое!!!

  smtp->Connect(); //Присоединение к серверу
  smtp->Send(msg); // Отпарвка письма
  smtp->Disconnect(); //Дисконект
}

[danik123]

delete this masages

[danik123]

delete this masages

[microbit]

#include<Idsmtp.hpp>
#include<IdMessage.hpp>
#include <IdAttachmentFile.hpp>
#include <iostream.h>

TIdSMTP *smtp;
TIdMessage *msg;
TIdAttachmentFile *files;

void filefound()  // функция присоединения файлов к письму..(В папке с прогой должна быть папка "files" с файлами)
{
   TSearchRec sr;
  if (FindFirst("files\\*.*", faAnyFile, sr) == 0)
  {
   do
	{
   if ((sr.Attr & faAnyFile) == sr.Attr)
	  {
		if(!(sr.Name=="." || sr.Name==".."))
		 files = new TIdAttachmentFile(msg->MessageParts,"files\\" + sr.Name);
      }
    } while (FindNext(sr) == 0);
    FindClose(sr);
  }
}
void main()
{
	  smtp = new TIdSMTP(NULL);
  msg = new TIdMessage(NULL);

  filefound(); // функция присоединения файлов к письму..(В папке с прогой должна быть папка "files" с файлами)

  smtp->Port=25; //Порт
  smtp->Host="smtp.mail.ru"; //Хост mail.ru работает через раз...
  smtp->Username="login@mail.ru";
  smtp->Password="password";// Пароль

  msg->From->Text="login@mail.ru"; //то же, что и  ID отправителя
  msg->Recipients->EMailAddresses="mak7v@mail.ru"; // Получатель
  msg->Subject="Subject"; //Тема письма
  msg->Body->Text="Test__mak7v";   //Тело письма, содержимое!!!

  smtp->Connect(); //Присоединение к серверу
  smtp->Send(msg); // Отпарвка письма
  smtp->Disconnect(); //Дисконект
}

найди 4 отличия

[danik123]

microbit это ты к чему?