Добро пожаловать на MidletPascal - а теперь еще скоро и Android и Iphone...
Авторизироваться
Меню сайта
Категории раздела
Наш опрос
Стоит ли на нашем сайте публиковать мобильные новости?
Всего ответов: 175
Мини-чат
200
Статистика

Онлайн : 2
Гостей: 2
Пользователей: 0
Главная » Файлы » Библиотеки » Сеть и Bluetooth

Lib_smtp2
[ Скачать с сервера (8.0Kb) ] 13.08.2009, 08:39

Переделанная версия либы Lib_smtp. Автор: odd.

Простейший пример для сервера MAIL.RU (остальные - аналогично):

Program SMTP2test;
Uses smtp2;
Var i: integer;
  from, to, subj, text: string;
Begin
  smtp2.account('lib_test', '123456'); // Логин и пароль от MAIL.RU ящика
  smtp2.auth_mode(1); // 1 - значит, что SMTP сервер требует авторизации
  from:='lib_test@mail.ru'; // от кого
  to:='odd-coder@yandex.ru'; // кому
  subj:='Test msg'; // Тема письма
  text:='Hi there! Привет!'; // Текст письма
  i:=smtp2.send('smtp.mail.ru', 2525, from, to, subj, text);
  if (i=1) DrawText('Отправлено', 5, 5);
  else DrawText('Ошибка отправки', 5, 5);
  Repaint; Delay(5000);
End. 




Категория: Сеть и Bluetooth | Добавил: admin
Просмотров: 1254 | Загрузок: 445 | Комментарии: 2 | Рейтинг: 0.0/0
Всего комментариев: 2
24.11.2010 в 20:56 Спам
не пашет это Г!
13.12.2009 в 14:54 Спам
у меня чего-то вообще не работает это...
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]