Работа с серверами 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"