Lianja Requires Chilkat v11.0.0+

Transition from MailMan.TransferMultipleMime to MailMan.FetchMimeBd

Provides instructions for replacing deprecated TransferMultipleMime 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 TransferMultipleMime method is deprecated:

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

//  ...
//  ...

release loSa

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

loMailman.ImmediateDelete = .F.

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

    //  Mark the email for deletion.
    llSuccess = loMailman.DeleteByUidl(loStUidls.StringAt(i))
    //  ...

    i = i + 1
enddo

//  emails marked for deletion will be deleted at this time
llSuccess = loMailman.Pop3EndSession()


release loMailman
release loSaUidls
release loStUidls
release loBdMime