Xbase++ Requires Chilkat v11.0.0+

Transition from MailMan.FetchMultipleMime to MailMan.FetchMimeBd

Provides instructions for replacing deprecated FetchMultipleMime method calls with FetchMimeBd. Xbase++

LOCAL nSuccess
LOCAL oMailman
LOCAL oSaUidls
LOCAL oStUidls
LOCAL oSaMime
LOCAL oBdMime
LOCAL nNumUidls
LOCAL i

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")

//  ------------------------------------------------------------------------
//  The FetchMultipleMime method is deprecated:

oSaMime := oMailman:FetchMultipleMime(oSaUidls)
IF (oMailman:LastMethodSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oSaUidls:destroy()
    oStUidls:destroy()
    RETURN
ENDIF

//  ...
//  ...

oSaMime:destroy()

//  ------------------------------------------------------------------------
//  Do the equivalent using FetchMimeBd.

nSuccess := 0
oBdMime := CreateObject("Chilkat.BinData")
nNumUidls := oStUidls:Count
i := 0
DO WHILE i < nNumUidls
    nSuccess := oMailman:FetchMimeBd(oStUidls:StringAt(i), oBdMime)
    //  ...
    //  ...

    i := i + 1
ENDDO

oMailman:destroy()
oSaUidls:destroy()
oStUidls:destroy()
oBdMime:destroy()