(Visual FoxPro) Transition from MailMan.FetchMultipleMime to MailMan.FetchMimeBd

Provides instructions for replacing deprecated FetchMultipleMime method calls with FetchMimeBd.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loMailman
LOCAL loSaUidls
LOCAL loStUidls
LOCAL loSaMime
LOCAL lnSuccess
LOCAL loBdMime
LOCAL lnNumUidls
LOCAL i

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan')
loMailman = CreateObject('Chilkat.MailMan')

* ...
* ...

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringArray')
loSaUidls = CreateObject('Chilkat.StringArray')
loSaUidls.Append("aaa")
loSaUidls.Append("bbb")
loSaUidls.Append("ccc")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringTable')
loStUidls = CreateObject('Chilkat.StringTable')
loStUidls.Append("aaa")
loStUidls.Append("bbb")
loStUidls.Append("ccc")

* ------------------------------------------------------------------------
* The FetchMultipleMime method is deprecated:

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

* ...
* ...

RELEASE loSaMime

* ------------------------------------------------------------------------
* Do the equivalent using FetchMimeBd.

lnSuccess = 0
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdMime = CreateObject('Chilkat.BinData')
lnNumUidls = loStUidls.Count
i = 0
DO WHILE i < lnNumUidls
    lnSuccess = loMailman.FetchMimeBd(loStUidls.StringAt(i),loBdMime)
    * ...
    * ...

    i = i + 1
ENDDO

RELEASE loMailman
RELEASE loSaUidls
RELEASE loStUidls
RELEASE loBdMime