FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9176
Вход
Посылка smtp сообщения через winsock control

Класс на основе winsock control для посылки сообщений по протоколу smtp. Использует charset windows-1251 для текста. Написан на VFP8?,но будет работать и в VFP6, если не присоединять файлы, так как для кодирования используется функция strconv, отсутствующая в младших версиях. Могу помочь в написании аналогичной функции для VFP6.


 
Прислал: Crip_   Категория: Сети (Интернет и др.)


Посылка smtp сообщения через winsock control

В основе лежит библиотека взятая с universalthread.com. Исправлены ошибки и произведена доработка до почти товарного вида. Есть маленькие кривости с таймером но уже не стал исправлять. Вроде и так хорошо работает.
Описание класса можно найти в методе zreadme.
Пример использования:
local loMail
loMail=NEWOBJECT("foxsock")
loMail.host = "MyMailServer"
loMail.message = "Тест"
loMail.recipient = "solochak@land.ru"
loMail.sender = "anonymous@land.ru"
loMail.subject = "SMTP Winsock"
loMail.attachment = "c:\TEST1.CAB,c:\TEST2.CAB"
loMail.Send()


 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.849) Вложение [8.4]kb
Дополнения пользователей
Посылка smtp сообщения через winsock control
[+][?]
Петров Андрей
26.11.05 16:46:23

Не совсем понял что значит MyMailServer. Например есть ящик jellfish@mail.ru какой будет хост?
www.mail.ru/mail.ru/mail не проходит. Точнее функция Send отрабатывает и возвращает .t. но письмо
не приходит...
Петров Андрей
26.11.05 16:48:31

Не совсем понял что значит MyMailServer. Например есть ящик jellfish@mail.ru какой будет хост?
www.mail.ru/mail.ru/mail не проходит. Точнее функция Send отрабатывает и возвращает .t. но письмо
не приходит...
Петров Андрей
26.11.05 16:48:35

Не совсем понял что значит MyMailServer. Например есть ящик jellfish@mail.ru какой будет хост?
www.mail.ru/mail.ru/mail не проходит. Точнее функция Send отрабатывает и возвращает .t. но письмо
не приходит...
Alex Roublev
26.11.05 18:33:45

У меня та же беда : (
dimka2
21.09.06 09:39:31

Возвращает .t.
Письмо не шлет. Байда полная.
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика