Visual FoxPro

Transition from MailMan.FetchMultiple to MailMan.FetchUidlSet

Provides instructions for replacing deprecated FetchMultiple method calls with FetchUidlSet. Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL loSaUidls
LOCAL loStUidls
LOCAL loBundleObj
LOCAL lnHeadersOnly
LOCAL lnNumBodyLines
LOCAL loBundleOut

lnSuccess = 0

loMailman = CreateObject('Chilkat.MailMan')

* ...
* ...

loSaUidls = CreateObject('Chilkat.StringArray')
loSaUidls.Append("aaa")
loSaUidls.Append("bbb")
loSaUidls.Append("ccc")

loStUidls = CreateObject('Chilkat.StringTable')
loStUidls.Append("aaa")
loStUidls.Append("bbb")
loStUidls.Append("ccc")

* ------------------------------------------------------------------------
* The FetchMultiple method is deprecated:

loBundleObj = loMailman.FetchMultiple(loSaUidls)
IF (loMailman.LastMethodSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loSaUidls
    RELEASE loStUidls
    CANCEL
ENDIF

* ...
* ...

RELEASE loBundleObj

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

lnHeadersOnly = 0
* Irrelevant because we are not downloading headers-only.
lnNumBodyLines = 0

loBundleOut = CreateObject('Chilkat.EmailBundle')
lnSuccess = loMailman.FetchUidlSet(loStUidls,lnHeadersOnly,lnNumBodyLines,loBundleOut)
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loSaUidls
    RELEASE loStUidls
    RELEASE loBundleOut
    CANCEL
ENDIF

RELEASE loMailman
RELEASE loSaUidls
RELEASE loStUidls
RELEASE loBundleOut