Xbase++ Requires Chilkat v11.0.0+

Transition from MailMan.FetchMultipleHeaders to MailMan.FetchUidlSet

Provides instructions for replacing deprecated FetchMultipleHeaders method calls with FetchUidlSet. Xbase++

LOCAL nSuccess
LOCAL oMailman
LOCAL oSaUidls
LOCAL oStUidls
LOCAL nNumBodyLines
LOCAL oBundleObj
LOCAL nHeadersOnly
LOCAL oBundleOut

nSuccess := 0

oMailman := CreateObject("Chilkat.MailMan")

//  ...
//  ...

oSaUidls := CreateObject("Chilkat.StringArray")
oSaUidls:Append("aaa")
oSaUidls:Append("bbb")
oSaUidls:Append("ccc")

oStUidls := CreateObject("Chilkat.StringTable")
oStUidls:Append("aaa")
oStUidls:Append("bbb")
oStUidls:Append("ccc")

nNumBodyLines := 5

//  ------------------------------------------------------------------------
//  The FetchMultipleHeaders method is deprecated:

oBundleObj := oMailman:FetchMultipleHeaders(oSaUidls, nNumBodyLines)
IF (oMailman:LastMethodSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oSaUidls:destroy()
    oStUidls:destroy()
    RETURN
ENDIF

//  ...
//  ...

oBundleObj:destroy()

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

nHeadersOnly := 1

oBundleOut := CreateObject("Chilkat.EmailBundle")
nSuccess := oMailman:FetchUidlSet(oStUidls, nHeadersOnly, nNumBodyLines, oBundleOut)
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oSaUidls:destroy()
    oStUidls:destroy()
    oBundleOut:destroy()
    RETURN
ENDIF

oMailman:destroy()
oSaUidls:destroy()
oStUidls:destroy()
oBundleOut:destroy()