message_caption(1,'Mail'); //заголовок окна
mail_init('mx.mail.ru'); // smtp сервер почты (без авторизации)
mail_addfile(working_directory+'\em.bmp');  //отправляемый файл
if mail_send('tests_my1@mail.ru','tests_my2@mail.ru','My Subgect - lol','my message')
// 1) адрес, с которого отправляется сообщение
// 2) адрес, которому присылается сообщение
// 3) заголовок сообщения
// 4) текст сообщения
      {
      show_message('Sucess'); //если все отправлено, то пишет Sucess
      text=mail_debug();
      }
else
      {
      show_message('Error'); //иначе error, сообщение не отправлено
      text=mail_debug();
      show_message(text);
      }