(Visual FoxPro) POP3 Fetch a Single Email by UIDL
Demonstrates how to fetch a single email by UIDL.
LOCAL loMailman
LOCAL loSa
LOCAL lcUidl
LOCAL i
LOCAL lnNumUidls
LOCAL loEmail
* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
loMailman = CreateObject('Chilkat_9_5_0.MailMan')
loMailman.MailHost = "pop.example.com"
loMailman.PopUsername = "myLogin"
loMailman.PopPassword = "myPassword"
loMailman.MailPort = 995
loMailman.PopSsl = 1
loSa = loMailman.GetUidls()
IF (loMailman.LastMethodSuccess = 0) THEN
? loMailman.LastErrorText
RELEASE loMailman
CANCEL
ENDIF
* Download each email by UIDL.
i = 0
lnNumUidls = loSa.Count
DO WHILE i < lnNumUidls
lcUidl = loSa.GetString(i)
? lcUidl
loEmail = loMailman.FetchEmail(lcUidl)
IF (loMailman.LastMethodSuccess = 0) THEN
? loMailman.LastErrorText
RELEASE loMailman
CANCEL
ENDIF
? loEmail.Subject
? ""
RELEASE loEmail
i = i + 1
ENDDO
RELEASE loSa
RELEASE loMailman
|