#include<winsock.h>
#include<vcl.h>
WINAPI SendMail(void)
{
   WSADATA stWSADataTCPIP;
    if(WSAStartup(0x0101, &stWSADataTCPIP))
    {
       SOCKET nSMTPServerSocket;
       struct sockaddr_in smtp_address;
       int nConnect;
       int iLength;
       int iMsg = 0;
       int iEnd = 0;
       BYTE sBuf[4096];

         char *MailMessage[] =
         {
           "HELO axel.ru\r\n",
           "MAIL FROM:<vasya_pupkin@cool_mail.ru>\r\n",   // отправитель
           "RCPT TO:<loki_hapuk@mail.ru>\r\n",            // получатель
           "DATA\r\n",
           "здрасте, я smtp\r\n\r\n.\r\n",                   // сам собсна текст
           "QUIT\r\n",
           NULL
         };
         //---------------------------------------------------------------------

           if(nSMTPServerSocket != INVALID_SOCKET)
             {
               smtp_address.sin_family = AF_INET;
               // IPшник сервера
               smtp_address.sin_addr.s_addr = inet_addr("194.67.23.111");
               smtp_address.sin_port = htons(25);

               nConnect = connect(nSMTPServerSocket, (PSOCKADDR)&smtp_address,
                                                          sizeof(smtp_address));

                   if(nConnect)  { }
                   else  {
                      do  {
                           iLength = recv(nSMTPServerSocket, (LPSTR)sBuf+iEnd, sizeof(sBuf)-iEnd, 0);
                           iEnd += iLength;
                           sBuf[iEnd] = '\0';
                           send(nSMTPServerSocket, (LPSTR)MailMessage[iMsg], strlen(MailMessage[iMsg]), 0);
                           iMsg++;
                           } while(MailMessage[iMsg]);
                         }

              closesocket(nSMTPServerSocket);
          }
  }
return void;
}
//----------------------------
 WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
  SendMail();
  ExitProcess(0);
  return 0;
}