Xbase++ Requires Chilkat v11.0.0+

Transition from MailMan.TransferMultipleMime to MailMan.FetchMimeBd

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

LOCAL nSuccess
LOCAL oMailman
LOCAL oSaUidls
LOCAL oStUidls
LOCAL oSa
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 TransferMultipleMime method is deprecated:

oSa := oMailman:TransferMultipleMime(oSaUidls)
IF (oMailman:LastMethodSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oSaUidls:destroy()
    oStUidls:destroy()
    RETURN
ENDIF

//  ...
//  ...

oSa:destroy()

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

oMailman:ImmediateDelete := 0

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

    //  Mark the email for deletion.
    nSuccess := oMailman:DeleteByUidl(oStUidls:StringAt(i))
    //  ...

    i := i + 1
ENDDO

//  emails marked for deletion will be deleted at this time
nSuccess := oMailman:Pop3EndSession()

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