Работа с серверами POP3,SMTP,IMAP

ActiveX для работы с серверами POP3,SMTP,IMAP. Полное управление почтой: прием, посылка, удаление, печать ... Представлен в виде набора DLL-файлов.

Работа с серверами POP3,SMTP,IMAP

ActiveX для работы с серверами POP3,SMTP,IMAP. Полное управление почтой: прием, посылка, удаление, печать ... Представлен в виде набора DLL-файлов.

Ниже показан пример, взятый из помощи к компоненту. Все достаточно просто и стабильно работает в VFP.

Файл справки прилагается к архиву компонента, можете разобраться во всем сами. Но позже, я планирую написать несколько примеров работы с компонентом для тех, кому лень разбираться 😉

Скачать сам компонент можно тут - Easymail Objects
Скачивайте, запускайте и у вас появится несколько новых .dll в системе.

Теперь о лицензии ... компонент поставляется как shareware и стоит 399$. Но для русских программистов 😉 есть LicenseKey ...
в нижеприведенном коде строка POP3.DemoMode=1 заменяется на:
POP3.DemoMode = 0
POP3.LicenseKey='iron/S18I500R1AX40C0Rb100'
... и все работает ... лишь бы совесть не грызла 🙂

-------
Procedure DisplayMail(strServer, strAccount, strPassword)

Private x, POP3

POP3 = CreateObject("EasyMail.POP3.5")
POP3.Account = strAccount
POP3.Password = strPassword
POP3.MailServer = strServer
POP3.DemoMode = 1

&& POP3.DemoMode = 0
&& POP3.LicenseKey='iron/S18I500R1AX40C0Rb100'

x = POP3.Connect()
If x <> 0 Then
return
EndIf
x = POP3.DownloadMessages(0)

POP3.Disconnect
If x <> 0 Then
return
EndIf

For Each Message In POP3.Messages
MessageBox("SUBJECT: " + Message.Subject, 0, "Message Found")
Next Message

Release POP3

EndProc

И запуск функции деается так:
Do DisplayMail With "mail.yourdomain.com", "jdoe", "secret"

Автор: Quiksoft Corp.
0

Автор публикации

не в сети 4 недели

Joys

2
Комментарии: 4Публикации: 194Регистрация: 25-06-2000
Оставить комментарий
Авторизация
*
*
Генерация пароля