Visual FoxPro

Transition from MailMan.FetchMultipleMime to MailMan.FetchMimeBd

Provides instructions for replacing deprecated FetchMultipleMime method calls with FetchMimeBd. Visual FoxPro

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

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