Visual FoxPro

Transition from MailMan.GetHeaders to MailMan.FetchRange

Provides instructions for replacing deprecated GetHeaders method calls with FetchRange. Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL lnNumBodyLines
LOCAL lnFromIndex
LOCAL lnToIndex
LOCAL loBundleObj
LOCAL lnKeepOnServer
LOCAL lnHeadersOnly
LOCAL loBundleOut

lnSuccess = 0

loMailman = CreateObject('Chilkat.MailMan')

* ...
* ...

lnNumBodyLines = 3
lnFromIndex = 0
lnToIndex = 9

* ------------------------------------------------------------------------
* The GetHeaders method is deprecated:

loBundleObj = loMailman.GetHeaders(lnNumBodyLines,lnFromIndex,lnToIndex)
IF (loMailman.LastMethodSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

* ...
* ...

RELEASE loBundleObj

* ------------------------------------------------------------------------
* Do the equivalent using FetchRange.
* Your application creates a new, empty EmailBundle object which is passed 
* in the last argument and filled upon success.

lnKeepOnServer = 1
lnHeadersOnly = 1

loBundleOut = CreateObject('Chilkat.EmailBundle')
lnSuccess = loMailman.FetchRange(lnKeepOnServer,lnHeadersOnly,lnNumBodyLines,lnFromIndex,lnToIndex,loBundleOut)
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loBundleOut
    CANCEL
ENDIF

RELEASE loMailman
RELEASE loBundleOut