Lianja

Transition from MailMan.FetchMultipleMime to MailMan.FetchMimeBd

Provides instructions for replacing deprecated FetchMultipleMime method calls with FetchMimeBd. Lianja

llSuccess = .F.

loMailman = createobject("CkMailMan")

// ...
// ...

loSaUidls = createobject("CkStringArray")
loSaUidls.Append("aaa")
loSaUidls.Append("bbb")
loSaUidls.Append("ccc")

loStUidls = createobject("CkStringTable")
loStUidls.Append("aaa")
loStUidls.Append("bbb")
loStUidls.Append("ccc")

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

loSaMime = loMailman.FetchMultipleMime(loSaUidls)
if (loMailman.LastMethodSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    release loSaUidls
    release loStUidls
    return
endif

// ...
// ...

release loSaMime

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

llSuccess = .F.
loBdMime = createobject("CkBinData")
lnNumUidls = loStUidls.Count
i = 0
do while i < lnNumUidls
    llSuccess = loMailman.FetchMimeBd(loStUidls.StringAt(i),loBdMime)
    // ...
    // ...

    i = i + 1
enddo


release loMailman
release loSaUidls
release loStUidls
release loBdMime